Context Navigation

alt.macsyma@ 1

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: 278 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:[
15	collinear(M,A,P),
16	collinear(M,B,Q),
17	collinear(M,C,R),
18	perp(A,P,B,C),
19	perp(B,Q,A,C),
20	perp(C,R,A,B)
21	];
22

Note: See TracBrowser for help on using the repository browser.