Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Accueil
Albums
Formulaires
Banque d'images
Papiers
Documentation
Téléchargement
Chimie
Édition de 1383.jps
[
retour
]
Édition de
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
Tapez les 3 lettres : AWE