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
|