Last change
on this file since 1 was 1, checked in by Marek Rychlik, 15 years ago |
First import of a version circa 1997.
|
File size:
374 bytes
|
Line | |
---|
1 | if get('geometry,'version)=false then load(geometry);
|
---|
2 |
|
---|
3 | /* Points */
|
---|
4 | A:[0,0];
|
---|
5 | B:[u1,0];
|
---|
6 | C:[0,u2];
|
---|
7 | M1:[x1,0];
|
---|
8 | M2:[0,x2];
|
---|
9 | M3:[x3,x4];
|
---|
10 | H:[x5,x6];
|
---|
11 | O:[x7,x8];
|
---|
12 |
|
---|
13 | /* Equations */
|
---|
14 | eqns:append(
|
---|
15 | append(
|
---|
16 | midpoint(M1,A,B),
|
---|
17 | midpoint(M2,A,C),
|
---|
18 | midpoint(M3,B,C)
|
---|
19 | ),
|
---|
20 | [
|
---|
21 | perp(A,H,B,C),
|
---|
22 | collinear(B,H,C),
|
---|
23 | eqlen(O,A,O,M1),
|
---|
24 | eqlen(O,A,O,M2),
|
---|
25 | eqlen(O,A,O,M3),
|
---|
26 | eqlen(O,A,O,H)
|
---|
27 | ]);
|
---|
Note:
See
TracBrowser
for help on using the repository browser.