Présentation de rect_003.jps

/syracuse/bbgraf/albums/geometrie_02/rect_003.jpg
autocrop %% ABC equilateral avec AB = 5 /A {-2 0} def /B {3 0} def /C {B A 60 rotatepoint} def %% H projete orthogonal de A sur (BC) A B C orthoproj /H defpoint %% M le point de [AC] tel que AM = 3 A C A 3 interdroitecercle /M defpoint %% P projete orthogonal de M sur [AH] M A H orthoproj /P defpoint [A B C H M P] points [A B C] polygone .5 setlinewidth orange A H B angledroit A P M angledroit [A H] ligne [M P] ligne noir setTimesItalic (A) A dltext (B) B drtext (C) C uctext (H) H urtext (M) M ultext (P) P drtext setTimes (5) A B milieu dctext (3) A M milieu ultext