Fichier 067.jps — Modifié le 1 Octobre 2006 à 16 h 50
%% auteur :Gilles Mora
15 setxunit
-17 5 setxrange
-5 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# $V_0$
A cctexlabel
boxit %% encadrement du prochain label
(B) node %% declaration d'un node rectangulaire (A)
#tex#$V_1$
B cctexlabel
(B) (A) (->) 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+t)$\\
</latex>
-6 -2.5 [1 dup] dctexlabel
<latex>
$\times (1+t')$
</latex>
-6 2.7 [1 dup] uctexlabel