%% auteur : Abidi 15 setxunit -10 10 setxrange -10 10 setyrange /arcangleU 10 def %% angle au depart de la fleche /arcangleV 10 def %% oppose de l'angle a l'arrivee de la fleche /nodesep 4 def %% espace en picas separant les points A et B de %% l'extremite de la connexion /dx_boxit 3 store /dy_boxit 3 store /U {0 5} def /U2 {0.005 5.005} def /V {0 -5} def %setTimes %circleit %% encerclement du prochain label U2 (U2) enode %% declaration d'un node circulaire (A) (U) ovalnode %% declaration d'un node circulaire (A) \begin{tabular}{c} $u$\\activateur \end{tabular} U cctexlabel %circleit %% encerclement du prochain label (V) ovalnode %% declaration d'un node circulaire (B) \begin{tabular}{c} $v$\\inhibiteur \end{tabular} V cctexlabel (V) (U) (->) ncarc (U) (V) (->) ncarc (U) (U2) (->) {10 10}