-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