Édition de 819.jps

[ retour ] Édition de 819.jps.

50 setxunit
7.5 setborder
90 setangle_repere
-.5 8 setxrange
-.5 7 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   x-ln (x)
} def
gsave
   rouge
   1 setlinewidth
  .01  xmax {f} Courbe
grestore
      {} courbe                      %% trace de la ligne de rapperl
      .25 setlinewidth
      /u0 7 def           %% 1er terme
      /n 5 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
      1 setlinewidth
      pointilles                             
                                             
      [                                      
      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   
      u0 xtick
      setTimesItalic 
         (u)   u0 0 dtext
      setTimesRoman 
         (0)   indice

Tapez les 3 lettres : AWE