1383.jps

%% auteur : 


%%% auteur : Gilles Mora

-9.9 10 setxrange
-2 3 setyrange

30 setxunit

%% parametrage de la suite arithmetique

%%%%%%%%%%%%%%%%%%%%

/u0 -8 def
/r 2 def
/n 4 def
%%%%%%%%%%%%%%%%%%%%


%% parametrage des ponts fleches

%%%%%%%%%%%%%%%%%%%%

/h 1 def       %% ordonnee legende

/arcangleA 80 def
/arcangleB arcangleA def
%%%%%%%%%%%%%%%%%%%%



%/les_un

%   [u0 n {dup r add} repeat] %% les n+1 premiers termes

%def


%% dessin de la suite

%les_un [n 1 add {0} repeat] fuz {circ2} plot


%% dessin des ponts fleches

u0 
n {
3 dict begin
   /x exch def
   x 0 (A) enode
   x r add 0 (B) enode
   (A) (B) (->) ncarc
   x r add
end
} repeat
pop

%% legende

#tex# $+r$

u0 
n {
3 dict begin
   /x exch def
   x h
   x r add h
   milieu [1.5 dup] uctexlabel
   x r add
end
} repeat
pop

/un 4 def
/r 2 def
/n1 1 def


un 
n1 {
1 dict begin
   /x exch def
   x 0 (A) enode
   x r add 0 (B) enode
   (A) (B) (->) ncarc
   x r add
end
} repeat
pop

%% legende

#tex# $+r$

un 
n1 {
1 dict begin
   /x exch def
   x h
   x r add h
   milieu [1.5 dup] uctexlabel
   x r add
end
} repeat
pop


#tex# $u_0$
-8 0 [2 dup] dctexlabel


#tex# $u_1$
-6 0 [2 dup] dctexlabel

#tex# $u_2$
-4 0 [2 dup] dctexlabel

#tex# $u_3$
-2 0 [2 dup] dctexlabel

#tex# $u_4$
0 0 [2 dup] dctexlabel

#tex# $...........$
2 0 [2 dup] cctexlabel

#tex# $u_n$
4 0 [2 dup] dctexlabel

#tex# $u_{n+1}$
6 0 [2 dup] dctexlabel


#tex# On passe d'un terme de la suite au terme suivant en ajoutant $r$

 0 -1 [1.5 dup] dctexlabel