source: CGBLisp/examples/RCS/apollonius.macsyma,v@ 1

head    1.1;
access;
symbols;
locks; strict;
comment @# @;


1.1
date    2009.01.19.09.12.21;    author marek;   state Exp;
branches;
next    ;


desc
@@


1.1
log
@Initial revision
@
text
@if get('geometry,'version)=false then load(geometry);

/* Points */
A:[0,0];
B:[u1,0];
C:[0,u2];
M1:[x1,0];
M2:[0,x2];
M3:[x3,x4];
H:[x5,x6];
O:[x7,x8];

/* Equations */
eqns:append(
        append(
                midpoint(M1,A,B),
                midpoint(M2,A,C),
                midpoint(M3,B,C)
        ),
        [
                perp(A,H,B,C),
                collinear(B,H,C),
                eqlen(O,A,O,M1),
                eqlen(O,A,O,M2),
                eqlen(O,A,O,M3),
                eqlen(O,A,O,H)
        ]);
@