home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
HYPERPT.GEO
< prev
next >
Wrap
Text File
|
1993-04-07
|
753b
|
60 lines
point A(-2.34;-0.22)
point B(0.51;0.51)
point C(1.94;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 dΘcrivent une hyperbole. Construisons l''un de ces cercles.'
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 'Si B dΘcrit le cercle C1, D va dΘcrire une hyperbole de foyers A et C et de cercle directeur C1.'
C1
C
C1
rΘpΦte
macro Ellipse_pt_par_pt
nomme E1
fin.