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
|
Line | |
---|
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.