Fichier 250.jps — Modifié le 2 Février 2008 à 12 h 47
%% auteur : Péric
28.45 setxunit
-3 15.8 setxrange
-1 7 setyrange
/t {1.7} def
/d {53 sqrt 0.8 mul 7 div} def
/h {-2 7 div mul 5 add} def
/hh {h d add} def
/A {0 dup h} def
/B {2.6 dup h} def
/C {3.4 dup h} def
/D {6.4 dup h} def
/E {7.2 dup h} def
/F {10.2 dup h} def
/G {11 dup h} def
/H {14 dup h} def
/A' {A right 2 mulv up 7 mulv addv normalize 0.8 mulv translatepoint } def
/C' {C up d mulv translatepoint} def
/E' {E up d mulv translatepoint} def
/G' {G up d mulv translatepoint} def
/K {14.8 dup hh} def
/A0 {0 0} def
/B0 {2.6 0} def
/C0 {3.4 0} def
/D0 {6.4 0} def
/E0 {7.2 0} def
/F0 {10.2 0} def
/G0 {11 0} def
/H0 {14 0} def
/K0 {14.8 0} def
1 setlinewidth
gsave
2 setlinewidth
%[A B C D E F G H A' C' E' G' K A0 B0 C0 D0 E0 F0 G0 H0 K0] {times} papply
[A B B0] ligne
[C0 C D D0] ligne
[E0 E F F0] ligne
[G0 G H H0] ligne
[A' K K0] ligne
grestore
gsave
6 setlinewidth
[B C] ligne
[E E'] ligne
[F G] ligne
grestore
gsave
1.5 setlinewidth
pointilles
[4 4] 0 setdash
[C' C] ligne
[D E] ligne
[G' G] ligne
grestore
gsave
[A A' milieu dupp right 7 mulv down 2 mulv addv normalize 2 mulv translatepoint] (->) ligne
grestore
gsave
/fillstyle {noir fill} def
6.8 1.8 0.17 cercle*
[6.8 1.4 6.8 0.7] (->) ligne
grestore
<latex>
Entr\'ee\\
de la bille
</latex>
A [t dup] ultexlabel
<latex>
$\textrm{P}_1$ \ (ferm\'ee)
</latex>
B up 0.9 mulv left .1 mulv addv translatepoint [t dup] urtexlabel
<latex>
$\textrm{P}_2$ \ (ouverte)
</latex>
D up 0.9 mulv left .1 mulv addv translatepoint [t dup] urtexlabel
<latex>
$\textrm{P}_3$ \ (ferm\'ee)
</latex>
F up 0.9 mulv left .1 mulv addv translatepoint [t dup] urtexlabel
<latex>
$s_1$
</latex>
B0 C0 milieu [t dup] dctexlabel
<latex>
$s_2$
</latex>
D0 E0 milieu [t dup] dctexlabel
<latex>
$s_3$
</latex>
F0 G0 milieu [t dup] dctexlabel
<latex>
$s_4$
</latex>
H0 K0 milieu [t dup] dctexlabel