home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / ELLIPT.GEO < prev    next >
Text File  |  1993-04-07  |  713b  |  60 lines
  1. point A(-0.08;0.14)
  2. point B(5.64;1.6)
  3. point C(2.42;1.6)
  4.  
  5. def_macro 'Ellipse pt par pt',Ellipse_pt_par_pt
  6. obj_initiaux cpp
  7. obj_finaux p
  8. nomme B
  9. nomme A
  10. nomme C1
  11. A
  12. B
  13. mΘdiatrice
  14. nomme D1
  15. C1
  16. centre
  17. nomme C
  18. B
  19. C
  20. droite_2_pts
  21. nomme D2
  22. D1
  23. D2
  24. inter
  25. nomme_inter D
  26. D
  27.  
  28. fin_macro
  29.  
  30. A
  31. B
  32. cercle_centre_pt
  33. nomme C1
  34. commente 'Les centres des cercles tangents α C1 et passant par C appartiennent α l''ellipse de foyers A et C. Voici un de ceux-ci.'
  35. A
  36. B
  37. droite_2_pts
  38. nomme D1
  39. B
  40. C
  41. mΘdiatrice
  42. nomme D2
  43. D1
  44. D2
  45. inter
  46. nomme_inter D
  47. D
  48. C
  49. cercle_centre_pt
  50. nomme C2
  51. commente 'En dΘplaτant B sur C1, D dΘcrit donc une ellipse... '
  52. C1
  53. C
  54. C1
  55. rΘpΦte
  56. macro Ellipse_pt_par_pt
  57. nomme E1
  58.  
  59. fin.
  60.