home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / PODELLI.GEO < prev    next >
Text File  |  1993-07-09  |  1KB  |  75 lines
  1. def_macro 'Projection orthogonale',projection_orthogona
  2. obj_initiaux dp
  3. obj_finaux p
  4.  
  5.   nomme C
  6.   nomme D0
  7.   D0
  8.   C
  9.   droite_perpendiculaire
  10.   nomme D1
  11.   D1
  12.   D0
  13.   inter
  14.   nomme_inter A
  15.   A
  16.  
  17. fin_macro
  18.  
  19. def_macro 'Ellipse pt par pt',Ellipse_pt_par_pt
  20. obj_initiaux cpp
  21. obj_finaux p
  22.  
  23.   nomme B
  24.   nomme A
  25.   nomme C1
  26.   A
  27.   B
  28.   mΘdiatrice
  29.   nomme D1
  30.   C1
  31.   centre
  32.   nomme C
  33.   B
  34.   C
  35.   droite_2_pts
  36.   nomme D2
  37.   D1
  38.   D2
  39.   inter
  40.   nomme_inter D
  41.   D
  42.  
  43. fin_macro
  44.  
  45. point A(0;0)
  46. point B(6.07;0)
  47. point C(2.86;0.73)
  48. A
  49. B
  50. cercle_centre_pt
  51. nomme C1
  52. C
  53. C1
  54. rΘpΦte
  55. mΘdiatrice
  56. nomme E1
  57. point D(-0.11;3.542)
  58. E1
  59. D
  60. macro projection_orthogona
  61. nomme E
  62. E1
  63. Θtiquette 'Tangentes α l''ellipse, enveloppe de cette famille de droites'
  64. E1
  65. Θtiquette 'Podaire de l''ellipse par rapport α D'
  66. E1
  67. Θtiquette 'Tangentes α l''ellipse, enveloppe de cette famille de droites'
  68. E
  69. Θtiquette 'Podaire de l''ellipse par rapport α D'
  70. C
  71. Θtiquette 'Foyer de l''ellipse'
  72. A
  73. Θtiquette 'Foyer de l''ellipse et centre du cercle directeur C1'
  74. fin.
  75.