500 setwidth
-1 32 setxrange
-2 6 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
subticks
ymarks
traceaxes
axesarrow
unites
/f {setxvar
#rpn# 0.1*x*(20-x)
} def
-1 5 setyrange %% amplitude sur Oy
600 setwidth %% on impose la largeur de l'image
/u0 1 def %% 1er terme
/n 30 def %% nombre de termes
/l2 [u0 n {dup f} repeat] def %% l2 = le tableau des ordonnees [u0 u1 ... u(n-1)]
/l1 [0 n 1 stepto] def %% l1 = le tableau des abscisses [0 1 ... n-1]
l1 l2 fuz {point} plot %% on represente les points (l1, l2)
0 1 10 1 sub {
/i exch def
setTimesRoman
i 1 add ( ) cvs
i 1 add 0 dctext
} for
|