-4 4 setxrange
-5 5 setyrange

175 setheight
300 setwidth

/A {0 3} def
/B {-1 4} def
/C {-3 0} def
/D {1 .5} def
/E {} def
/F {0 3.5} def

/f {
   setxvar
   x dup mul neg 2 x mul sub 3 add 
   x 1 sub 2 mul Exp .5 mul add
} def
/delta {1 sub -3 mul 1 f add} def

tracerepere
marks
[A B C E F] points
D dashpoint

-2 -1 {f} Hachcourbe
gsave
   pointilles
   [-2 dup f dupp projx] ligne
   [-1 dup f dupp projx] ligne
grestore

(delta) courbe
medium setlinewidth
{f} courbe


setTimesItalic
   (A) A dltext
   (B) B utext
   (C) C ultext
   (D) D urtext
   (F) F rtext
setSymbol
   (G) 2.55 dup f ltext
   (D) 2.5 dup delta urtext