-4 5 setxrange
-1 1 setyrange
20 setxunit

traceOx

xticks
0 xtick
[-2 0 1 3] {xmark} apply

/A{xmin 0} def   
/B {3 0} def
1.7 setlinewidth

[A B] (-]) ligne