%% auteur : 

60 setxunit
7.5 setborder
90 setangle_repere
-5 5 setxrange
-1 4 setyrange
traceaxes
axesarrow
marks


/f {setxvar
   -0.3 x mul Exp 
} def
gsave
   noir
   2 setlinewidth
   continu
    {f} courbe
grestore




/A{-4  -0.3 -4 mul Exp} def
/B{-2  -0.3 -4 mul Exp } def
/C{-4 -0.3 -2 mul Exp} def
/D{-2  -0.3 -2 mul Exp} def
/E{0  -0.3 -2 mul Exp} def
/F{-2 1} def
/G{0 1} def
/H{2  1} def
/I{2  -0.3 2 mul Exp} def
/K{4  -0.3 2 mul Exp} def
/L{4  -0.3 4 mul Exp} def
/M{2  -0.3 4 mul Exp} def
/N{0  -0.3 2 mul Exp} def 
/R{-4 0} def
/S{-2 0} def
/T{2 0} def
/U{4 0} def

pointilles
[A B] ligne
[D E] ligne
[G H] ligne
[I K] ligne
[A R] ligne
[B S] ligne
[H T] ligne
[K U] ligne

continu
[C D] ligne
[F G] ligne
[N I] ligne
[L M] ligne