-1 12 setxrange
-1 6 setyrange
traceaxes
ticks
axesarrow
/f {
setxvar
pi x mul 6 div Sin 4 mul
} def
/A {3 dup f} def
/B {5 dup f} def
/C {10 0} def
O A B C 4 dashpoints
B C tracesegment
0 5 Tracecourbe
0 5 Hachurecourbe
1 xmark
3 xmark
5 xmark
10 xmark
1 ymark
2 ymark
4 ymark
setTimesItalic
(A) A uptext
(B) B uprighttext
(C) C uprighttext
(O) O downlefttext
(x') xmin 0 downtext
(x) xmax 0 downlefttext
/f {
-.4 mul 4 add
} def
5 10 Hachurecourbe
|