Context Navigation

apollonius.macsyma

Last change on this file was 1, checked in by Marek Rychlik, 17 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.