%% auteur : Gilles MORA -8 8 setxrange -4 4 setyrange 30 setxunit 30 setyunit /A{-2 2} def /B{2 2} def /C{2 -2} def /D{-2 -2} def [A B C D]polygone /E{-6 0} def /F{-6 -1} def /G{-6 1} def /u{4 0} def /v{4 -1.5} def /w{4 1.5} def /H{2 0.5} def /I{2 0} def /J{2 -0.5} def H w vect I u vect J v vect E u vect F w vect G v vect setTimes %(5) E [2 2] ltext (-2) F [2 2] ltext (2,1) G [2 2] ltext (7) 6.5 1.8 [2 2] ltext %(-5) 7 0 [2 2] ltext (2,25) 7.5 -2 [2 2] ltext (Machine f) 0 0.2 [1.5 1.5] dtext $x$ boxit -6 0 [2 dup] cltexlabel $f(x)$ boxit 6 0 [2 dup] crtexlabel %% adresse IP : 89.225.136.74