20 setxunit
7.5 setborder
90 setangle_repere
-2 7 setxrange
-2 7 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
1.75 setlinewidth
continu
bleu
/X {settvar
#rpn# (t+1)*(t+1)/2
} def
/Y {settvar
#rpn# (t-1)*(t-1)/2
} def
-3 3 {X} {Y} Courbeparam
noir
0.5 setlinewidth
0.5 0.5 /A defpoint
1.5 -0.5 /AA defpoint
1.125 0.125 /B defpoint
2.625 -0.375 /BB defpoint
0.125 1.125 /C defpoint
-0.375 2.625 /CC defpoint
3.125 0.125 /D defpoint
5.625 0.625 /DD defpoint
A AA droite
B BB droite
C CC droite
D DD droite
|