Fichier 1384.jps — Modifié le 22 Mars 2007 à 17 h 57
%% 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# $\times q$
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# $\times q$
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 multipliant par $q$
0 -1 [1.5 dup] dctexlabel