blob: b91659a54f431a3971c1c00f7b4485a7c304b6a7 (
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
58
59
60
61
62
63
64
65
66
67
68
69
70
|
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 17.05.0 ] */
/* [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*(x0+y1-y0)+b*(y0-(x1-x0));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq5:h2=h0;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq6:subst(eq5,eq4);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq7:solve([eq2,eq3,eq6],[a,b,H]);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq8:subst(eq7,eq1);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq9:dhbydh0=factor(diff(rhs(eq8),h0));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq10:dhbydh1=factor(diff(rhs(eq8),h1));
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq11:expand((x1-x0)^2+(y1-y0)^2)=d^2;
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq12:subst(eq11,eq9);
/* [wxMaxima: input end ] */
/* [wxMaxima: input start ] */
eq13:subst(eq11,eq10);
/* [wxMaxima: input end ] */
/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$
|
