Présentation de geom_004.jps

/syracuse/texpng/jpv/database/term/sti/algebre/complex/geom_004.jpg
-5 6 setxrange -5 6 setyrange %%% les ticks sur les axes /xmkstep 2 def % les marques sur Ox /ymkstep 2 def % les marques sur Oy /xtkstep 1 def % les ticks sur Ox /ytkstep 1 def % les ticks sur Oy /xsubtkstep 1 def % les subticks sur Ox /ysubtkstep 1 def % les subticks sur Oy tracerepere marks /A {2 3 sqrt 2 mul} def /B {2 3 sqrt -2 mul} def /C {-4 0} def /D {-1 3 sqrt} def [A B C D] points [A B C] tracepolygone [B D] traceligne gsave mixte O 4 tracecercle grestore /dt 30 def /angle 120 def verythin setcourbelinewidth O 2 angle dt sub angle dt add tracearc pointilles [D D pop 0] traceligne setTimesItalic (O) O downlefttext (A) A uprighttext (B) B downrighttext (C) C uplefttext (D) D uplefttext