blob: 6ec01b62d1159751edb8c8f64d2378fc94cd4fbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 14.12.1 ] */
/* [wxMaxima: input start ] */
eq1:h=H+a*x+b*y;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq2:h0=H+a*x0+b*y0;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq3:h1=H+a*x1+b*y1;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq4:h2=H+a*x2+b*y2;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq5:solve([eq2,eq3,eq4],[a,b,H]);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq6:subst(eq5,eq1);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq7:dhbydh0=factor(diff(rhs(eq6),h0));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq8:dhbydh1=factor(diff(rhs(eq6),h1));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq9:dhbydh2=factor(diff(rhs(eq6),h2));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq10:x1*y2-x0*y2-x2*y1+x0*y1+x2*y0-x1*y0=d;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq11:subst(eq10,eq7);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq12:subst(eq10,eq8);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq13:subst(eq10,eq9);
/* [wxMaxima: input end ] */
/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$
|
