\NeedsTeXFormat{LaTeX2e}
% Macro pour faire des boites à moustaches

\RequirePackage{multido}
\RequirePackage{calc}
\RequirePackage{ifthen}


%\bam{min}{d1}{q1}{med}{q2}{d9}{max}
\newlength{\haut}
\newlength{\bas}
\newcounter{bam}\setcounter{bam}{-1}
\newcommand{\bam}[7]{
    \ifthenelse{\thebam=-1}{
        % C'est la première boite à moustache, il faut mettre en place les premiers éléments
        \psset{fillstyle=solid}
		\psline{->}(0,0)(28,0)
        {\scriptsize
        \multido{\n=0+1}{26}{%
		\psline(\n,.1)(\n,-.1)}
        \multido{\n=0+10}{20}{%
		\psline(\n,.2)(\n,-.2)
        \uput[d](\n,0){\n}}}
        }{}

    % Dessin de la boite à moustaches
    % Décalage vers le haut de la boite à moustaches
    \addtocounter{bam}{2}
    % On trace la boite
    \setlength{\haut}{\thebam\psyunit+.2\psyunit}
    \setlength{\bas}{\thebam\psyunit-.2\psyunit}
    % On trace du min au max avec des pointillés
    \psline[linestyle=dotted](#1,\thebam\psyunit)(#7,\thebam\psyunit)
    % On trace de d1 à d9 les moustaches
    \psline{|-|}(#2,\thebam\psyunit)(#6,\thebam\psyunit)
    % On trace la boite
    \psframe(#3,\bas)(#5,\haut)
    \uput[u](#3,\haut){\tiny $Q_1$}
    \uput[u](#5,\haut){\tiny $Q_3$}
    % Puis la médiane
    \psline(#4,\bas)(#4,\haut)
    \uput[u](#4,\haut){\tiny $Me$}
}