home *** CD-ROM | disk | FTP | other *** search
/ Freelog 3 / Freelog003.iso / Logs / Educ / WinGeom / EUCLIPT.GEO < prev    next >
Text File  |  1993-04-14  |  2KB  |  165 lines
  1. point A(0.49;2.65)
  2. point B(0.13;-2.01)
  3. point C(-1.66;1.22)
  4. point F(-6.22;0.825)
  5. point G(-2.9;-1.4)
  6.  
  7. def_macro 'Euclide',Euclide
  8. obj_initiaux ppp
  9. obj_finaux p
  10.  
  11.   nomme C
  12.   nomme B
  13.   nomme A
  14.   A
  15.   B
  16.   C
  17.   cercle_3_pts
  18.   nomme C1
  19.   C1
  20.   centre
  21.   nomme D
  22.   C
  23.   D
  24.   homothΘtie 2
  25.   nomme E
  26.   E
  27.  
  28. fin_macro
  29.  
  30. def_macro 'Cardioide',Cardioide
  31. obj_initiaux pcp
  32. obj_finaux d
  33.  
  34.   nomme B
  35.   nomme C1
  36.   nomme A
  37.   C1
  38.   centre
  39.   nomme C
  40.   B
  41.   C
  42.   droite_2_pts
  43.   nomme D1
  44.   D1
  45.   A
  46.   droite_perpendiculaire
  47.   nomme D2
  48.   D1
  49.   D2
  50.   inter
  51.   nomme_inter D
  52.   A
  53.   D
  54.   homothΘtie 2
  55.   nomme E
  56.   B
  57.   E
  58.   droite_2_pts
  59.   nomme D3
  60.   D3
  61.  
  62. fin_macro
  63.  
  64. def_macro 'Orthocentre',Orthocentre
  65. obj_initiaux ppp
  66. obj_finaux p
  67.  
  68.   nomme C
  69.   nomme B
  70.   nomme A
  71.   A
  72.   B
  73.   droite_2_pts
  74.   nomme D1
  75.   D1
  76.   C
  77.   droite_perpendiculaire
  78.   nomme D2
  79.   A
  80.   C
  81.   droite_2_pts
  82.   nomme D3
  83.   D3
  84.   B
  85.   droite_perpendiculaire
  86.   nomme D4
  87.   D2
  88.   D4
  89.   inter
  90.   nomme_inter D
  91.   D
  92.  
  93. fin_macro
  94.  
  95. def_macro 'Cercle tangent',Cercle_tangent
  96. obj_initiaux dpp
  97. obj_finaux c
  98.  
  99.   nomme B
  100.   nomme A
  101.   nomme D1
  102.   A
  103.   B
  104.   mΘdiatrice
  105.   nomme D2
  106.   D1
  107.   B
  108.   droite_perpendiculaire
  109.   nomme D3
  110.   D2
  111.   D3
  112.   inter
  113.   nomme_inter C
  114.   C
  115.   A
  116.   cercle_centre_pt
  117.   nomme C1
  118.   C1
  119.  
  120. fin_macro
  121.  
  122. 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'
  123. A
  124. B
  125. C
  126. cercle_3_pts
  127. nomme C1
  128. C1
  129. centre
  130. nomme D
  131. D
  132. C
  133. droite_2_pts
  134. nomme D1
  135. C
  136. D
  137. homothΘtie 2
  138. nomme E
  139. F
  140. G
  141. cercle_centre_pt
  142. nomme C2
  143. commente 'Nous construisons l''image du cercle de centre F passant par G. '
  144. A
  145. B
  146. C2
  147. rΘpΦte
  148. macro Euclide
  149. nomme E1
  150. commente 'Nous pouvons en bougeant le point G voir les images d''autres cercles. '
  151. A
  152. B
  153. droite_2_pts
  154. nomme D0
  155. D0
  156. B
  157. droite_perpendiculaire
  158. nomme D2
  159. D0
  160. A
  161. droite_perpendiculaire
  162. nomme D3
  163. commente 'Si le cercle C2 coupe la perpendiculaire α AB en B, alors l''image a A comme point double.'
  164. fin.
  165.