-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
|