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