Présentation de 1746-2.jps

/syracuse/var/syracuse/bbgraf/tmp/1746-2.png
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# (-8*x)/10 + 3 } def -1 5 setyrange %% amplitude sur Oy 600 setwidth %% on impose la largeur de l'image /u0 -1.5 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