home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / PARAPT.GEO < prev    next >
Text File  |  1993-04-07  |  744b  |  57 lines
  1. point A(-8.21;-4.36)
  2. point B(1.43;-2.9)
  3. point C(-1.07;-1.09)
  4.  
  5. def_macro 'Parabole pt par pt',Parabole_pt_par_pt
  6. obj_initiaux pdp
  7. obj_finaux p
  8. nomme B
  9. nomme D1
  10. nomme A
  11. A
  12. B
  13. mΘdiatrice
  14. nomme D2
  15. D1
  16. B
  17. droite_perpendiculaire
  18. nomme D3
  19. D2
  20. D3
  21. inter
  22. nomme_inter C
  23. C
  24.  
  25. fin_macro
  26.  
  27. A
  28. B
  29. droite_2_pts
  30. nomme D1
  31. commente 'Les centres des cercles tangents α D1 et passant par C forment une parabole. Dessinons l''un de ces cercles.'
  32. D1
  33. B
  34. droite_perpendiculaire
  35. nomme D2
  36. B
  37. C
  38. mΘdiatrice
  39. nomme D3
  40. D2
  41. D3
  42. inter
  43. nomme_inter D
  44. D
  45. C
  46. cercle_centre_pt
  47. nomme C1
  48. commente 'En rΘpΘtant cette construction, nous Θbauchons la parabole de foyer C et de directrice D1.'
  49. C
  50. D1
  51. D1
  52. rΘpΦte
  53. macro Parabole_pt_par_pt
  54. nomme E1
  55.  
  56. fin.
  57.