Présentation de synt_003b.jps

/syracuse/bbgraf/albums/geometrie_2nd/synt_003b.jpg
-6 6 setxrange -12 8 setyrange /A {3 3} def /B {-3 6} def /C {-3 -9} def /E {-1 5} def /F {0 1} def /M {2 0} def /D {C B A vecteur addv} def quadrillage .7 setlinewidth 1 1 setsubtkstep tracerepere 2 2 setmkstep marks [A B C E F M] points 1 setlinewidth [A B C] polygone {3 add} courbe {-.5 mul 1.5 sub} courbe {-.5 mul 1 add} courbe .5 setlinewidth [C D A] ligne %% %% $\vec \imath $ %% %% .4 -.1 [1.5 dup] dctexlabel %% %% %% $\vec \jmath $ %% %% -.1 .2 [1.5 dup] ultexlabel <tex> $d_2 : y = x + 3$ </tex> 3 6 {1 1 atan} uctexlabel <tex> $d_1 : 2y + x + 3 = 0$ </tex> 4 -3.5 {-1 2 atan} dctexlabel <tex> $\Delta : y = -x/2 + 1$ </tex> -4 3 (-5 0) {-1 2 atan} uctexlabel setTimesItalic (x) xmax 0 (-10 0) ultext (y) 0 ymax (0 -10) drtext (A) A urtext (B) B urtext (C) C dltext (D) D urtext (E) E urtext (M) M urtext (F) F urtext (G) -3 0 (0 3) ultext