-4 5 setyrange
quadrillage
gsave
.4 setgray
3 setlinewidth
0 setlinecap
[-2 0 4 0] ligne
grestore
marks
.5 setlinewidth
tracerepere
1.7 setlinewidth
/f1 {2 mul 1 add 3 div} def
/f2 {pop 1} def
/f3 {2 sub} def
-5 1 (f1) Courbe
1 3 (f2) Courbe
3 5 (f3) Courbe
1 setlinewidth
pointilles
0 -1 1 -1 droite
0 2 1 2 droite
[4 dup f3 4 0] ligne
[-2 dup f1 -2 0] ligne
|