50 setxunit
7.5 setborder
90 setangle_repere
-3 3 setxrange
-3 3 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
traceaxes
axesarrow
unites
/f {setxvar
#rpn# (-8*x)/10 + 3
} def
/u0 -1.5 def %% 1er terme
/n 30 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
|