Fichier 159.jps — Modifié le 10 Septembre 2006 à 15 h 07
%% auteur :Gilles Mora
15 setxunit
-18 18 setxrange
-2 4 setyrange
/nodesep 3 def %% espace en picas separant les points A et B de
%% l'extremite de la connexion
/armB 20 def %% longueur en picas du bras en B
/angleA 90 def %% angle de depart en A
/angleB 90 def %% angle d'arrivee en B
/A {-13 0} def
/B {13 0} def
/C{0 0} def
/linearc .5 def %% rayon en unites jps du cercle pour arrondir les
%% angles
/dx_boxit 5 store
/dy_boxit 5 store
setTimes
/linearc .3 store %% pour arrondir les angles
boxit %% encadrement du prochain label
(A) node %% declaration d'un node rectangulaire (A)
#tex# ~~~~Effectif $n_F$\par de la population $F$
A cctexlabel
boxit %% encadrement du prochain label
(B) node %% declaration d'un node rectangulaire (A)
#tex# ~~~~ Effectif $n_A$\par de la population $A$
B cctexlabel
boxit %% encadrement du prochain label
(C) node %% declaration d'un node rectangulaire (A)
#tex# ~~~~Effectif $n_E$\par de la population $E$
C cctexlabel
(A) (C) (->) ncline
(C) (B) (->) ncline
(A) (B) (->) ncangle
#latex# $\times p$
-6.5 0 [1.5 dup] dctexlabel
#latex# $\times p'$
6.5 0 [1.5 dup] dctexlabel
#latex# $\times pp'$
0 3.5 [1.5 dup] cctexlabel