500 setwidth
-1 17 setxrange
-0.5 1.2 setyrange
0.5 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   1-x^2
} def
-1 5 setyrange            %% amplitude sur Oy
600 setwidth              %% on impose la largeur de l'image
      
/u0 0.5 def           %% 1er terme
/n 15 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