%% auteur : Peric
-2 20.8 setxrange
%-0.1 1.1 setyrange
-0.1 0.14 setyrange
%28.45 setxunit
14.225 setxunit
%142.25 setyunit
1422.5 setyunit
1 setxmkstep
1 setymkstep

/xmarkstyle {[1.3 dup] dctext} def
/ymarkstyle {[1.3 dup] cltext} def
/quadrillagewidth[.5 .4 .1] def
pointilles
gris
%[1 1]{0.7 setlinewidth} Quadrillage
noir
continu
1.4 setlinewidth
%0.5 0.5 setsubtkstep
%traceaxes
[2 20 1 stepto] {xtick } apply
[2 20 1 stepto] {xmark } apply
[0 0.12 0.02 stepto] {ymark } apply
[0 0.12 0.02 stepto] {ytick } apply
0 ytick 
0 ymark
%marks
[0 0 xmax 0] ligne
[0 0 0 ymax] ligne
%tracerepere
%axesarrow
/L{0.06 0 0.02 0.04 0.02 0.02 0.1 0.06 0.12 0.1 0.08 0.06 0.12 0.08 0.04 0.06 0.02 0 0} def
/P{1 2 3 4 5 6 7 8 9 10 9 8 7 6 5 4 3 2 1} def
/d{0.2} def

[2 20 1 stepto] dup {d sub} apply  exch {d add} apply fuz dup fuz [0 18{dup} repeat] [L] fuz [L] [0 18{dup} repeat] fuz fuz fuz ligne

[4 d sub dup -0.06 exch -0.04 dup 4 d add exch 4 d add -0.06  dup 4 d sub exch] ligne

gsave
%pointilles
dotted
[2 20 1 stepto] [P] {0.01 mul}apply fuz dup {point} papply ligne

[3 -0.1 5 -0.08] ligne
4 -0.09 point
grestore

<latex>
Fréquences
</latex>
7 -0.05 [2 dup] crtexlabel
<latex>
Probabilités
</latex> 
7 -0.09 [2 dup] crtexlabel