Présentation de 240.jps

40 setxunit
-5 8 setxrange
-20 2 setyrange
2 setxyrapport
1 2 setquadrillagestep
1 2 setmkstep

quadrillage

traceaxes
marks

/F {
   setxvar
   x 0 lt {
       x 1 add F .5 mul
   } {
       x 0 ge
       x 1 lt and {
           x 1 sub x mul
       }{
           x 1 sub F 2 mul
       } ifelse
   } ifelse
} def

500 setresolution
{F} courbe