Édition du fichier 2880.jps

%% auteur : Mora

15 setxunit
-17 5 setxrange
-5 6 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

/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$
A  cctexlabel

boxit               %% encadrement du prochain label
(B) node            %% declaration d'un node rectangulaire (A)
#tex# Valeur finale\par ~~~~~~~$V_F$
B  cctexlabel

/angleA -90 def       %% angle de depart en A
/angleB -90 def     %% angle d'arrivee en B

(A) (B) (->) ncangle
<latex>
\hspace{1.5cm}$\displaystyle{\times (1+T)$\\
 multiplicateur
</latex>
-6 -2.5 [1 dup] dctexlabel

Tapez les 3 lettres : AWE