%% Courbe jps
%
%
25 setxunit
7.5 setborder
90 setangle_repere
-5 5 setxrange
-5 5 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep

traceaxes

30 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth

tracerepere marks

setTimesItalic
   (O) O drtext

setTimes (x) 4.8 0.2 cctext

setTimes (y)  -0.2 4.8 cctext

ticks
subticks
marks
traceaxes
axesarrow
unites

-4 -4 /A defpoint
-3 -3 /B defpoint
-2 -2 /C defpoint
-1 -1 /D defpoint
0 0 /E defpoint
1 1 /F defpoint
2 2 /G defpoint
3 3 /H defpoint
4 4 /J defpoint


[A B C D E F G H J] points


/f {setxvar
   1
} def
/g {setxvar
   2
} def
/h {setxvar
   3
} def
/i {setxvar
   4
} def
/j {setxvar
   0
} def
/k {setxvar
   -1
} def
/l {setxvar
   -2
} def
/m {setxvar
   -3
} def
/n {setxvar
   -4
} def

gsave
   noir
   .75 setlinewidth
   continu
 0 1  {f} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
 1 2  {g} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  2 3 {h} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  3 4 {i} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  1 neg 0 {j} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  2 neg 1 neg {k} Courbe
grestore


gsave
   noir
   .75 setlinewidth
   continu
  3 neg 2 neg {l} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  4 neg 3 neg {m} Courbe
grestore

gsave
   noir
   .75 setlinewidth
   continu
  5 neg 4 neg {n} Courbe
grestore