Édition de 814.jps

[ retour ] Édition de 814.jps.

200 setxunit
7.5 setborder
90 setangle_repere
-0.2 1.2 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
gsave
   bleu
   .75 setlinewidth
   pointilles
   {f} courbe
grestore
/u0 0.5 def           %% 1er terme
/n 15 def             %% nb de termes
/l1 [u0 n {dup f} repeat] def  %% l1 = le tableau [u0 u1 ... u(n-1)]
/l2 l1 {f} apply def           %% l2 = le tableau [u1 u2 ... un]
/L1 l1 dup fuz def             %% L1 = (l1, l1) soit [u0 u0 u1 u1 ... un un]
/L2 l1 l2 fuz def              %% L2 = (l1, l2) soit [u0 u1 u1 u2 ... u(n-1) un]
L2 {point} plot                %% on represente L2
{} courbe                      %% trace de la ligne de rappel
gsave
   .5 setlinewidth
   pointilles 
   gris 
   [                                      
   u0 0                           %% le point (u0 0)        
   /i 0 def                               
   L2 length 2 idiv {            
      L1 i getp                   %% le point ( u(i-1) , ui)
      L2 i getp
      /i i 1 add store                    
   } repeat                               
   ] ligne                        %% on relie par des pointilles   
grestore

u0 xtick
setTimesItalic 
   (u)   u0 0 dtext
setTimesRoman 
   (0)   indice

0 1 10 1 sub {
   /i exch def
   setTimesItalic 
   (u)
   l2 i get 
   0 dctext
   setTimesRoman 
   i 1 add (   ) cvs
   indice
} for

Tapez les 3 lettres : AWE