159.jps

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