Présentation de 2930.jps

%% auteur : 


%% auteur :Gilles Mora 


15 setxunit
-18 10 setxrange
-6 5 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{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# Valeur initiale\par ~~~~$V_I=100$
A  cctexlabel


boxit               %% encadrement du prochain label

(B) node            %% declaration d'un node rectangulaire (A)

#tex# Valeur finale\par ~~~~$V_F=115$
B  cctexlabel
(A) (B) (->) ncangle


/angleA -90 def       %% angle de depart en A

/angleB -90 def     %% angle d'arrivee en B


(A) (B) (->) ncangle

<latex>
\hspace{1.5cm}$\times 1,15$
</latex>
-6 -2.5 [1 dup] dctexlabel





<latex>
\hspace*{1cm}$+15\%$

</latex>
-6 3 [1 dup] uctexlabel