home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
ELLIPT.GEO
< prev
next >
Wrap
Text File
|
1993-04-07
|
713b
|
60 lines
point A(-0.08;0.14)
point B(5.64;1.6)
point C(2.42;1.6)
def_macro 'Ellipse pt par pt',Ellipse_pt_par_pt
obj_initiaux cpp
obj_finaux p
nomme B
nomme A
nomme C1
A
B
mΘdiatrice
nomme D1
C1
centre
nomme C
B
C
droite_2_pts
nomme D2
D1
D2
inter
nomme_inter D
D
fin_macro
A
B
cercle_centre_pt
nomme C1
commente 'Les centres des cercles tangents α C1 et passant par C appartiennent α l''ellipse de foyers A et C. Voici un de ceux-ci.'
A
B
droite_2_pts
nomme D1
B
C
mΘdiatrice
nomme D2
D1
D2
inter
nomme_inter D
D
C
cercle_centre_pt
nomme C2
commente 'En dΘplaτant B sur C1, D dΘcrit donc une ellipse... '
C1
C
C1
rΘpΦte
macro Ellipse_pt_par_pt
nomme E1
fin.