input newcourbes;
input couleur;
input TEX;


verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\newcommand{\Mathbold}[1]{\mbox{\boldmath$#1$\unboldmath}}
\begin{document}
etex



%
%  
%Attention : les trois figures suivantes sont incompatibles %avec geometriesyr16 !

%
%





%%%%%%%%%%%%%%%%%%%%
%
%  M OU S T AC H E S  et fonctions de répartition
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





beginfig(38)
moustache(255.8,262.3,264.5,266.4,272.9,.5cm,254,0);
endfig;




beginfig(39)

repere(255,0,253,274,-8,110,.5cm,.07cm);
%quad_x(1);
%quad_y(1);
r_axes;
r_origine;
r_unites;

path c;

c:=(1.5mm,2mm)--(0,2mm)--(0,-2mm)--(1.5mm,-2mm);


grad_x(2,2,.4white);
grad_y(10,10,.4white);

draw r_seg(256,0,256,2.4)withcolor blue dashed evenly;

draw r_p(260,4.8)--r_p(260,12.1)withcolor blue dashed evenly;

draw r_seg(258,2.4,258,4.8)withcolor blue dashed evenly;
draw r_seg(260,4.8,260,12.1)withcolor blue dashed evenly;
draw r_seg(262,12.1,262,29.2)withcolor blue dashed evenly;
draw r_seg(264,29.2,264,56)withcolor blue dashed evenly;
draw r_seg(266,56,266,75.6)withcolor blue dashed evenly;
draw r_seg(268,75.6,268,87.9)withcolor blue dashed evenly;
draw r_seg(270,87.9,270,92.7)withcolor blue dashed evenly;
draw r_seg(272,92.7,272,100)withcolor blue dashed evenly;


pickup pencircle scaled 1.6bp;
draw r_seg(253,0,256,0)  withcolor blue;
draw r_seg(256,2.4,258,2.4)  withcolor blue;
draw r_seg(258,4.8,260,4.8)  withcolor blue;
draw r_seg(260,12.1,262,12.1)  withcolor blue;
draw r_seg(262,29.2,264,29.2)  withcolor blue;
draw r_seg(264,56,266,56)  withcolor blue;
draw r_seg(266,75.6,268,75.6) withcolor blue;
draw r_seg(268,87.9,270,87.9) withcolor blue;
draw r_seg(270,92.7,272,92.7) withcolor blue;
draw r_seg(272,100,275,100) withcolor blue;



draw c shifted r_p(256,0) withcolor blue;
draw c shifted r_p(258,2.4) withcolor blue;
draw c shifted r_p(260,4.8) withcolor blue;
draw c shifted r_p(262,12.1) withcolor blue;
draw c shifted r_p(264,29.2) withcolor blue;
draw c shifted r_p(266,56) withcolor blue;
draw c shifted r_p(268,75.6) withcolor blue;
draw c shifted r_p(270,87.9) withcolor blue;
draw c shifted r_p(272,92.7) withcolor blue;


r_ppc(256,2.4,blue); 
r_ppc(258,4.8,blue); 
r_ppc(260,12.1,blue);
 r_ppc(262,29.2,blue); 
r_ppc(264,56,blue); 
r_ppc(266,75.6,blue);
r_ppc(268,87.9,blue);
r_ppc(270,92.7,blue);
r_ppc(272,100,blue);






r_ppc(255,25,green);
label.lft(btex $25\%$ etex, r_p(255,25)) withcolor green;
draw r_seg(255,25,262,25) dashed evenly withcolor green;
draw r_seg(262,25,262,0) dashed evenly withcolor green;
label.urt(btex $Q_1$ etex, r_p(262,0)) withcolor green;



r_ppc(255,50,green);
%label.lft(btex $50\%$ etex, r_p(254.5,50)) withcolor green;
draw r_seg(255,50,264,50) dashed evenly withcolor green;
draw r_seg(264,50,264,0) dashed evenly withcolor green;
label.urt(btex $M_e$ etex, r_p(264,0)) withcolor green;



r_ppc(255,75,green);
label.lft(btex $75\%$ etex, r_p(255,75)) withcolor green;
draw r_seg(255,75,266,75) dashed evenly withcolor green;
draw r_seg(266,75,266,0) dashed evenly withcolor green;
label.urt(btex $Q_3$ etex, r_p(266,0))withcolor green;




r_fin;
endfig;






beginfig(40)
moustache(256,262,264,266,272,.5cm,254,0);
endfig;


end