Source
%% 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