home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 3
/
Freelog003.iso
/
Logs
/
Educ
/
WinGeom
/
PODELLI.GEO
< prev
next >
Wrap
Text File
|
1993-07-09
|
1KB
|
75 lines
def_macro 'Projection orthogonale',projection_orthogona
obj_initiaux dp
obj_finaux p
nomme C
nomme D0
D0
C
droite_perpendiculaire
nomme D1
D1
D0
inter
nomme_inter A
A
fin_macro
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
point A(0;0)
point B(6.07;0)
point C(2.86;0.73)
A
B
cercle_centre_pt
nomme C1
C
C1
rΘpΦte
mΘdiatrice
nomme E1
point D(-0.11;3.542)
E1
D
macro projection_orthogona
nomme E
E1
Θtiquette 'Tangentes α l''ellipse, enveloppe de cette famille de droites'
E1
Θtiquette 'Podaire de l''ellipse par rapport α D'
E1
Θtiquette 'Tangentes α l''ellipse, enveloppe de cette famille de droites'
E
Θtiquette 'Podaire de l''ellipse par rapport α D'
C
Θtiquette 'Foyer de l''ellipse'
A
Θtiquette 'Foyer de l''ellipse et centre du cercle directeur C1'
fin.