home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
EUCLIPT.GEO
< prev
next >
Wrap
Text File
|
1993-04-14
|
2KB
|
165 lines
point A(0.49;2.65)
point B(0.13;-2.01)
point C(-1.66;1.22)
point F(-6.22;0.825)
point G(-2.9;-1.4)
def_macro 'Euclide',Euclide
obj_initiaux ppp
obj_finaux p
nomme C
nomme B
nomme A
A
B
C
cercle_3_pts
nomme C1
C1
centre
nomme D
C
D
homothΘtie 2
nomme E
E
fin_macro
def_macro 'Cardioide',Cardioide
obj_initiaux pcp
obj_finaux d
nomme B
nomme C1
nomme A
C1
centre
nomme C
B
C
droite_2_pts
nomme D1
D1
A
droite_perpendiculaire
nomme D2
D1
D2
inter
nomme_inter D
A
D
homothΘtie 2
nomme E
B
E
droite_2_pts
nomme D3
D3
fin_macro
def_macro 'Orthocentre',Orthocentre
obj_initiaux ppp
obj_finaux p
nomme C
nomme B
nomme A
A
B
droite_2_pts
nomme D1
D1
C
droite_perpendiculaire
nomme D2
A
C
droite_2_pts
nomme D3
D3
B
droite_perpendiculaire
nomme D4
D2
D4
inter
nomme_inter D
D
fin_macro
def_macro 'Cercle tangent',Cercle_tangent
obj_initiaux dpp
obj_finaux c
nomme B
nomme A
nomme D1
A
B
mΘdiatrice
nomme D2
D1
B
droite_perpendiculaire
nomme D3
D2
D3
inter
nomme_inter C
C
A
cercle_centre_pt
nomme C1
C1
fin_macro
commente 'A et B deux points fixes. A C nous associons le cercle ABC, puis son centre D et enfin le diamΘtralement opposΘ de C'
A
B
C
cercle_3_pts
nomme C1
C1
centre
nomme D
D
C
droite_2_pts
nomme D1
C
D
homothΘtie 2
nomme E
F
G
cercle_centre_pt
nomme C2
commente 'Nous construisons l''image du cercle de centre F passant par G. '
A
B
C2
rΘpΦte
macro Euclide
nomme E1
commente 'Nous pouvons en bougeant le point G voir les images d''autres cercles. '
A
B
droite_2_pts
nomme D0
D0
B
droite_perpendiculaire
nomme D2
D0
A
droite_perpendiculaire
nomme D3
commente 'Si le cercle C2 coupe la perpendiculaire α AB en B, alors l''image a A comme point double.'
fin.