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:
309 bytes
|
Rev | Line | |
---|
[1] | 1 | if get('geometry,'version)=false then load(geometry);
|
---|
| 2 | x1:0;
|
---|
| 3 | y1:0;
|
---|
| 4 | y2:0;
|
---|
| 5 |
|
---|
| 6 | /* Triangle */
|
---|
| 7 | A:[x1,y1];
|
---|
| 8 | B:[x2,y2];
|
---|
| 9 | C:[x3,y3];
|
---|
| 10 | M:[x,y];
|
---|
| 11 | P:[u1,v1];
|
---|
| 12 | Q:[u2,v2];
|
---|
| 13 | R:[u3,v3];
|
---|
| 14 | eqns:append([
|
---|
| 15 | collinear(M,A,P),
|
---|
| 16 | collinear(M,B,Q),
|
---|
| 17 | collinear(M,C,R)
|
---|
| 18 | ],
|
---|
| 19 | append(
|
---|
| 20 | midpoint(P,B,C),
|
---|
| 21 | midpoint(Q,A,C),
|
---|
| 22 | midpoint(R,A,B)
|
---|
| 23 | )
|
---|
| 24 | );
|
---|
| 25 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.