%% 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