Source
%% auteur : 
%% auteur : Gilles MORA

-8 10 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
(1,7) F [2 2] ltext
(2,1) G [2 2] ltext
(2,89) 7.5 1.8 [2 2] ltext
%(-5) 7 0 [2 2] ltext
(4,41) 7.5 -2 [2 2] ltext
%(Machine f) 0 0.2 [2 2] dtext

<latex>
$x$
</latex>
boxit
-6 0 [2 dup] cltexlabel

<latex>
$y=f(x)$
</latex>
boxit
6 0 [2 dup] crtexlabel

<latex>
Machine $f$
</latex>
0 0.2 [2 dup] cctexlabel
%% adresse IP : 89.225.136.74