prologues:=2;
defaultfont:="CMR10";
input boxes;
input constantes;
%% Choix de LaTeX
verbatimtex
%&latex
\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage[frenchb]{babel}
\usepackage{amsmath}
\begin{document}
etex
def cercle(expr p,q)=%centre-rayon
  begingroup
    save $;
    path $;
    $=fullcircle scaled (2*q) shifted p;
    $
  endgroup
enddef;
beginfig(1);
  %Définition des boites rondes
  circleit.r0(btex $\times 2$ etex);
  circleit.s0(btex $\times 2$ etex);
  circleit.r1(btex $\times 3$ etex);
  circleit.s1(btex $\times 3$ etex);
  circleit.r2(btex $\times \dfrac{1}{4}$ etex);
  circleit.s2(btex $\times  \dfrac{1}{4}$ etex);
  circleit.r3(btex $\times 6$ etex);
  circleit.s3(btex $\times 6$ etex);
  circleit.r4(btex $\times  \dfrac{5}{2}$ etex);
  circleit.s4(btex $\times  \dfrac{5}{2}$ etex);
  %Définition des boites rectangulaires
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b0(btex \hbox to 0.75cm{\hfill$25$\hfill} etex);
  boxit.c0(btex \hbox to 0.75cm{\hfill$<$\hfill} etex);
  boxit.d0(btex \hbox to 0.75cm{\hfill$50$\hfill} etex);
  b0.c=(4*u,8*u);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f0(btex \hbox to 0.75cm{\hfill\phantom{$25$}\hfill} etex);
  boxit.g0(btex \hbox to 0.75cm{\hfill\phantom{$\leq$}\hfill} etex);
  boxit.h0(btex \hbox to 0.75cm{\hfill\phantom{$50$}\hfill} etex);
  f0.c=b0.c shifted (u*(0,(-3)));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b1(btex \hbox to 0.75cm{\hfill$-4$\hfill} etex);
  boxit.c1(btex \hbox to 0.75cm{\hfill$>$\hfill} etex);
  boxit.d1(btex \hbox to 0.75cm{\hfill$-5$\hfill} etex);
  b1.c=b0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f1(btex \hbox to 0.75cm{\hfill\phantom{$-4$}\hfill} etex);
  boxit.g1(btex \hbox to 0.75cm{\hfill\phantom{$>$} \hfill} etex);
  boxit.h1(btex \hbox to 0.75cm{\hfill\phantom{$-5$} \hfill} etex);
  f1.c=f0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b2(btex \hbox to 0.75cm{\hfill$ \dfrac{4}{5}$\hfill} etex);
  boxit.c2(btex \hbox to 0.75cm{\hfill$=$\hfill} etex);
  boxit.d2(btex \hbox to 0.75cm{\hfill$ \dfrac{12}{15}$\hfill} etex);
  b2.c=b0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f2(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{4}{5}$}\hfill}  etex);
  boxit.g2(btex \hbox to 0.75cm{\hfill\phantom{$=$}\hfill}  etex);
  boxit.h2(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{12}{15}$}\hfill} etex);
  f2.c=f0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b3(btex \hbox to 0.75cm{\hfill$ \dfrac{1}{3}$\hfill} etex);
  boxit.c3(btex \hbox to 0.75cm{\hfill$\leq$\hfill} etex);
  boxit.d3(btex \hbox to 0.75cm{\hfill$ \dfrac{2}{3}$\hfill} etex);
  b3.c=b0.c shifted (3*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f3(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{1}{3}$}\hfill} etex);
  boxit.g3(btex \hbox to 0.75cm{\hfill\phantom{$\leq$}\hfill} etex);
  boxit.h3(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{2}{3}$}\hfill} etex);
  f3.c=f0.c shifted (3*(4*u,0));
 boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b4(btex \hbox to 0.75cm{\hfill$ \dfrac{1}{5}$\hfill} etex);
  boxit.c4(btex \hbox to 0.75cm{\hfill$\geq$\hfill} etex);
  boxit.d4(btex \hbox to 0.75cm{\hfill$ \dfrac{1}{10}$\hfill} etex);
  b4.c=b0.c shifted (4*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f4(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{1}{5}$}\hfill} etex);
  boxit.g4(btex \hbox to 0.75cm{\hfill\phantom{$\geq$}\hfill} etex);
  boxit.h4(btex \hbox to 0.75cm{\hfill\phantom{$ \dfrac{1}{10}$}\hfill} etex);
  f4.c=f0.c shifted (4*(4*u,0));
  path p[],q[],u[],v[];
  r0.c=(4*u,ypart(1/2[b0.c,f0.c]));
  s0.c=r0.c shifted (d0.c-b0.c);
  r1.c=r0.c shifted (4*u,0);
  s1.c=r1.c shifted (d1.c-b1.c);
  r2.c=r0.c shifted (2*(4*u,0));
  s2.c=r2.c shifted (d2.c-b2.c);
  r3.c=r0.c shifted (3*(4*u,0));
  s3.c=r3.c shifted (d3.c-b3.c);
  r4.c=r0.c shifted (4*(4*u,0));
  s4.c=r4.c shifted (d4.c-b4.c);
    %dessin des fleches vers la deuxieme ligne a remplir
  for i=0 upto 4:
    drawboxed(b[i],c[i],d[i],f[i],g[i],h[i]);
    p[i]=b[i].c{dir-135}..r[i].c{dir-45};
    drawarrow p[i] cutbefore bpath.b[i] cutafter bpath.r[i];
    q[i]=d[i].c{dir-45}..s[i].c{dir-135};
    drawarrow q[i] cutbefore bpath.d[i] cutafter bpath.s[i];
    u[i]=r[i].c{dir-135}..f[i].c{dir-45};
    drawarrow u[i] cutbefore bpath.r[i] cutafter bpath.f[i];
    v[i]=s[i].c{dir-45}..h[i].c{dir-135};
    drawarrow v[i] cutbefore bpath.s[i] cutafter bpath.h[i];
    drawboxed(r[i],s[i]);
  endfor
endfig;
beginfig(2);
  %Définition des boites rondes
  circleit.r0(btex $\times (-3)$ etex);
  r0.dx=r0.dy;
  circleit.s0(btex $\times (-3)$ etex);
  s0.dx=s0.dy;
  circleit.r1(btex $\times (-1)$ etex);
  r1.dx=r1.dy;
  circleit.s1(btex $\times (-1)$ etex);
  s1.dx=s1.dy;
  circleit.r2(btex $\times (-5)$ etex);
  r2.dx=r2.dy;
  circleit.s2(btex $\times (-5)$ etex);
  s2.dx=s2.dy;
  circleit.r3(btex $\times (-\dfrac{1}{2})$ etex);
  r3.dx=r3.dy;
  circleit.s3(btex $\times (-\dfrac{1}{2})$ etex);
  s3.dx=s3.dy;
  circleit.r4(btex $\times (-2)$ etex);
  r4.dx=r4.dy;
  circleit.s4(btex $\times (-2)$ etex);
  s4.dx=s4.dy;
  %Définition des boites rectangulaires
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b0(btex \hbox to 0.75cm{\hfill$\dfrac{3}{4}$\hfill} etex);
  boxit.c0(btex \hbox to 0.75cm{\hfill$<$\hfill} etex);
  boxit.d0(btex \hbox to 0.75cm{\hfill$1$\hfill} etex);
  b0.c=(4*u,8*u);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f0(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{3}{4}$}\hfill} etex);
  boxit.g0(btex \hbox to 0.75cm{\hfill \phantom{$\leq$}\hfill} etex);
  boxit.h0(btex \hbox to 0.75cm{\hfill \phantom{$1$} \hfill} etex);
  f0.c=b0.c shifted (u*(0,(-3)));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b1(btex \hbox to 0.75cm{\hfill $\sqrt 7$\hfill} etex);
  boxit.c1(btex \hbox to 0.75cm{\hfill $>$ \hfill} etex);
  boxit.d1(btex \hbox to 0.75cm{\hfill $\sqrt 3$ \hfill} etex);
  b1.c=b0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f1(btex \hbox to 0.75cm{\hfill \phantom{$\sqrt 7$} \hfill} etex);
  boxit.g1(btex \hbox to 0.75cm{\hfill \phantom{$>$} \hfill} etex);
  boxit.h1(btex \hbox to 0.75cm{\hfill \phantom{$\sqrt 3$} \hfill} etex);
  
  f1.c=f0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b2(btex \hbox to 0.75cm{\hfill $\sqrt 50$ \hfill} etex);
  boxit.c2(btex \hbox to 0.75cm{\hfill $=$ \hfill} etex);
  boxit.d2(btex \hbox to 0.75cm{\hfill $5\sqrt 2$ \hfill} etex);
  b2.c=b0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f2(btex \hbox to 0.75cm{\hfill \phantom{$\sqrt 50$}\hfill} etex);
  boxit.g2(btex \hbox to 0.75cm{\hfill \phantom{$=$}\hfill} etex);
  boxit.h2(btex \hbox to 0.75cm{\hfill \phantom{$5\sqrt 2$}\hfill} etex);
  f2.c=f0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b3(btex \hbox to 0.75cm{\hfill $1$ \hfill} etex);
  boxit.c3(btex \hbox to 0.75cm{\hfill $\leq$\hfill} etex);
  boxit.d3(btex \hbox to 0.75cm{\hfill $2$\hfill} etex);
  b3.c=b0.c shifted (3*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f3(btex \hbox to 0.75cm{\hfill \phantom{$1$} \hfill} etex);
  boxit.g3(btex \hbox to 0.75cm{\hfill \phantom{$\leq$} \hfill} etex);
  boxit.h3(btex \hbox to 0.75cm{\hfill \phantom{$2$}\hfill} etex);
  f3.c=f0.c shifted (3*(4*u,0));
 boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b4(btex \hbox to 0.75cm{\hfill $\dfrac{13}{2}$ \hfill} etex);
  boxit.c4(btex \hbox to 0.75 cm{\hfill $\geq$ \hfill} etex);
  boxit.d4(btex \hbox to 0.75 cm{\hfill $\dfrac{11}{2}$ \hfill} etex);
  b4.c=b0.c shifted (4*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{13}{2}$}\hfill}  etex);
  boxit.g4(btex \hbox to 0.75cm{\hfill \phantom{$\geq$}\hfill}  etex);
  boxit.h4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{11}{2}$}\hfill} etex);
  f4.c=f0.c shifted (4*(4*u,0));
  path p[],q[],u[],v[];
  r0.c=(4*u,ypart(1/2[b0.c,f0.c]));
  s0.c=r0.c shifted (d0.c-b0.c);
  r1.c=r0.c shifted (4*u,0);
  s1.c=r1.c shifted (d1.c-b1.c);
  r2.c=r0.c shifted (2*(4*u,0));
  s2.c=r2.c shifted (d2.c-b2.c);
  r3.c=r0.c shifted (3*(4*u,0));
  s3.c=r3.c shifted (d3.c-b3.c);
  r4.c=r0.c shifted (4*(4*u,0));
  s4.c=r4.c shifted (d4.c-b4.c);
  %dessin des fleches vers la deuxieme ligne a remplir
  for i=0 upto 4:
    drawboxed(b[i],c[i],d[i],f[i],g[i],h[i]);
    p[i]=b[i].c{dir-135}..r[i].c{dir-45};
    drawarrow p[i] cutbefore bpath.b[i] cutafter bpath.r[i];
    q[i]=d[i].c{dir-45}..s[i].c{dir-135};
    drawarrow q[i] cutbefore bpath.d[i] cutafter bpath.s[i];
    u[i]=r[i].c{dir-135}..f[i].c{dir-45};
    drawarrow u[i] cutbefore bpath.r[i] cutafter bpath.f[i];
    v[i]=s[i].c{dir-45}..h[i].c{dir-135};
    drawarrow v[i] cutbefore bpath.s[i] cutafter bpath.h[i];
    drawboxed(r[i],s[i]);
  endfor
endfig;
beginfig(3);
  %Définition des boites rondes
  circleit.r0(btex $+2$ etex);
  r0.dx=r0.dy;
  circleit.s0(btex $+2$ etex);
  so.dx=s0.dy;
  circleit.r1(btex $+3$ etex);
  r1.dx=r1.dy;
  circleit.s1(btex $+3$ etex);
  s1.dx=s1.dy;
  circleit.r2(btex $+\dfrac{1}{5}$ etex);
  r2.dx=r2.dy;
  circleit.s2(btex $+\dfrac{1}{5}$ etex);
  s2.dx=s2.dy;
  circleit.r3(btex $+6$ etex);
  r3.dx=r3.dy;
  circleit.s3(btex $+6$ etex);
  s3.dx=s3.dy;
  circleit.r4(btex $+\dfrac{3}{5}$ etex);
  r4.dx=r4.dy;
  circleit.s4(btex $+\dfrac{3}{5}$ etex);
  s4.dx=s4.dy;
  %Définition des boites rectangulaires
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b0(btex \hbox to 0.75cm{\hfill$25$\hfill} etex);
  boxit.c0(btex \hbox to 0.75cm{\hfill$<$\hfill} etex);
  boxit.d0(btex \hbox to 0.75cm{\hfill$50$\hfill} etex);
  b0.c=(4*u,8*u);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f0(btex \hbox to 0.75cm{\hfill \phantom{$25$}\hfill} etex);
  boxit.g0(btex \hbox to 0.75cm{\hfill \phantom{$\leq$}\hfill} etex);
  boxit.h0(btex \hbox to 0.75cm{\hfill \phantom{$50$} \hfill} etex);
  f0.c=b0.c shifted (u*(0,(-3)));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b1(btex \hbox to 0.75cm{\hfill $-4$\hfill} etex);
  boxit.c1(btex \hbox to 0.75cm{\hfill $>$ \hfill} etex);
  boxit.d1(btex \hbox to 0.75cm{\hfill $-5$ \hfill} etex);
  b1.c=b0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f1(btex \hbox to 0.75cm{\hfill \phantom{$-4$} \hfill} etex);
  boxit.g1(btex \hbox to 0.75cm{\hfill \phantom{$>$} \hfill} etex);
  boxit.h1(btex \hbox to 0.75cm{\hfill \phantom{$-5$} \hfill} etex);
  
  f1.c=f0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b2(btex \hbox to 0.75cm{\hfill $\dfrac{4}{5}$ \hfill} etex);
  boxit.c2(btex \hbox to 0.75cm{\hfill $=$ \hfill} etex);
  boxit.d2(btex \hbox to 0.75cm{\hfill $\dfrac{12}{15}$ \hfill} etex);
  b2.c=b0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f2(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{4}{5}$}\hfill}  etex);
  boxit.g2(btex \hbox to 0.75cm{\hfill \phantom{$=$}\hfill}  etex);
  boxit.h2(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{12}{15}$}\hfill} etex);
  f2.c=f0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b3(btex \hbox to 0.75cm{\hfill $\dfrac{1}{3}$ \hfill} etex);
  boxit.c3(btex \hbox to 0.75cm{\hfill $\leq$\hfill} etex);
  boxit.d3(btex \hbox to 0.75cm{\hfill $\dfrac{2}{3}$\hfill} etex);
  b3.c=b0.c shifted (3*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f3(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{1}{3}$} \hfill} etex);
  boxit.g3(btex \hbox to 0.75cm{\hfill \phantom{$\leq$} \hfill} etex);
  boxit.h3(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{2}{3}$}\hfill} etex);
  f3.c=f0.c shifted (3*(4*u,0));
 boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b4(btex \hbox to 0.75cm{$\dfrac{1}{5}$ \hfill} etex);
  boxit.c4(btex \hbox to 0.75cm{$\geq$ \hfill} etex);
  boxit.d4(btex \hbox to 0.75cm{$\dfrac{1}{10}$ \hfill} etex);
  b4.c=b0.c shifted (4*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{1}{5}$}\hfill} etex);
  boxit.g4(btex \hbox to 0.75cm{\hfill \phantom{$\geq$}\hfill} etex);
  boxit.h4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{1}{10}$}\hfill} etex);
  f4.c=f0.c shifted (4*(4*u,0));
  path p[],q[],u[],v[];
  r0.c=(4*u,ypart(1/2[b0.c,f0.c]));
  s0.c=r0.c shifted (d0.c-b0.c);
  r1.c=r0.c shifted (4*u,0);
  s1.c=r1.c shifted (d1.c-b1.c);
  r2.c=r0.c shifted (2*(4*u,0));
  s2.c=r2.c shifted (d2.c-b2.c);
  r3.c=r0.c shifted (3*(4*u,0));
  s3.c=r3.c shifted (d3.c-b3.c);
  r4.c=r0.c shifted (4*(4*u,0));
  s4.c=r4.c shifted (d4.c-b4.c);
  %dessin des fleches vers la deuxieme ligne a remplir
  for i=0 upto 4:
    drawboxed(b[i],c[i],d[i],f[i],g[i],h[i]);
    p[i]=b[i].c{dir-135}..r[i].c{dir-45};
    drawarrow p[i] cutbefore bpath.b[i] cutafter bpath.r[i];
    q[i]=d[i].c{dir-45}..s[i].c{dir-135};
    drawarrow q[i] cutbefore bpath.d[i] cutafter bpath.s[i];
    u[i]=r[i].c{dir-135}..f[i].c{dir-45};
    drawarrow u[i] cutbefore bpath.r[i] cutafter bpath.f[i];
    v[i]=s[i].c{dir-45}..h[i].c{dir-135};
    drawarrow v[i] cutbefore bpath.s[i] cutafter bpath.h[i];
    drawboxed(r[i],s[i]);
  endfor
endfig;
beginfig(4);
  %Définition des boites rondes
  circleit.r0(btex $-3$ etex);
  r0.dx=r0.dy;
  circleit.s0(btex $-3$ etex);
  so.dx=s0.dy;
  circleit.r1(btex $-1$ etex);
  r1.dx=r1.dy;
  circleit.s1(btex $-1$ etex);
  s1.dx=s1.dy;
  circleit.r2(btex $\times (-5)$ etex);
  r2.dx=r2.dy;
  circleit.s2(btex $\times (-5)$ etex);
  s2.dx=s2.dy;
  circleit.r3(btex $-\dfrac{1}{2}$ etex);
  r3.dx=r3.dy;
  circleit.s3(btex $-\dfrac{1}{2}$ etex);
  s3.dx=s3.dy;
  circleit.r4(btex $-2$ etex);
  r4.dx=r4.dy;
  circleit.s4(btex $-2$ etex);
  s4.dx=s4.dy;
  %Définition des boites rectangulaires
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b0(btex \hbox to 0.75cm{\hfill$\dfrac{3}{4}$\hfill} etex);
  boxit.c0(btex \hbox to 0.75cm{\hfill$<$\hfill} etex);
  boxit.d0(btex \hbox to 0.75cm{\hfill$1$\hfill} etex);
  b0.c=(4*u,8*u);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f0(btex \hbox to 0.75cm{\phantom{$\dfrac{3}{4}$}\hfill} etex);
  boxit.g0(btex \hbox to 0.75cm{\phantom{$\leq$}\hfill} etex);
  boxit.h0(btex \hbox to 0.75cm{\phantom{$1$} \hfill} etex);
  f0.c=b0.c shifted (u*(0,(-3)));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b1(btex \hbox to 0.75cm{\hfill $\sqrt 7$\hfill} etex);
  boxit.c1(btex \hbox to 0.75cm{\hfill $>$ \hfill} etex);
  boxit.d1(btex \hbox to 0.75cm{$\hfill \sqrt 3$ \hfill} etex);
  b1.c=b0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f1(btex \hbox to 0.75cm{\hfill \phantom{\hfill $\sqrt 7$} \hfill} etex);
  boxit.g1(btex \hbox to 0.75cm{\hfill \phantom{$>$} \hfill} etex);
  boxit.h1(btex \hbox to 0.75cm{\hfill \phantom{$\sqrt 3$} \hfill} etex);
  
  f1.c=f0.c shifted (4*u,0);
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b2(btex \hbox to 0.75cm{\hfill $\sqrt 50$ \hfill} etex);
  boxit.c2(btex \hbox to 0.75cm{\hfill $=$ \hfill} etex);
  boxit.d2(btex \hbox to 0.75cm{\hfill $5\sqrt 2$ \hfill} etex);
  b2.c=b0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f2(btex \hbox to 0.75cm{\hfill \phantom{$\sqrt 50$}\hfill} etex);
  boxit.g2(btex \hbox to 0.75cm{\hfill \phantom{$=$}\hfill} etex);
  boxit.h2(btex \hbox to 0.75cm{\hfill \phantom{$5\sqrt 2$}\hfill} etex);
  f2.c=f0.c shifted (2*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b3(btex \hbox to 0.75cm{\hfill $1$ \hfill} etex);
  boxit.c3(btex \hbox to 0.75cm{\hfill $\leq$\hfill} etex);
  boxit.d3(btex \hbox to 0.75cm{\hfill $2$\hfill} etex);
  b3.c=b0.c shifted (3*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f3(btex \hbox to 0.75cm{\hfill \phantom{$1$} \hfill} etex);
  boxit.g3(btex \hbox to 0.75cm{\hfill \phantom{$\leq$} \hfill} etex);
  boxit.h3(btex \hbox to 0.75cm{\hfill \phantom{$2$}\hfill} etex);
  f3.c=f0.c shifted (3*(4*u,0));
 boxjoin(a.se=b.sw;a.ne=b.nw);%a et b sont les noms conventionnels de deux boi%tes consecutives
  boxit.b4(btex \hbox to 0.75cm{\hfill $\dfrac{13}{2}$ \hfill} etex);
  boxit.c4(btex \hbox to 0.75cm{\hfill $\geq$ \hfill} etex);
  boxit.d4(btex \hbox to 0.75cm{\hfill $\dfrac{11}{2}$ \hfill} etex);
  b4.c=b0.c shifted (4*(4*u,0));
  boxjoin(a.se=b.sw;a.ne=b.nw);
  boxit.f4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{13}{2}$}\hfill} etex);
  boxit.g4(btex \hbox to 0.75cm{\hfill \phantom{$\geq$}\hfill} etex);
  boxit.h4(btex \hbox to 0.75cm{\hfill \phantom{$\dfrac{11}{2}$}\hfill} etex);
  f4.c=f0.c shifted (4*(4*u,0));
  path p[],q[],u[],v[];
  r0.c=(4*u,ypart(1/2[b0.c,f0.c]));
  s0.c=r0.c shifted (d0.c-b0.c);
  r1.c=r0.c shifted (4*u,0);
  s1.c=r1.c shifted (d1.c-b1.c);
  r2.c=r0.c shifted (2*(4*u,0));
  s2.c=r2.c shifted (d2.c-b2.c);
  r3.c=r0.c shifted (3*(4*u,0));
  s3.c=r3.c shifted (d3.c-b3.c);
  r4.c=r0.c shifted (4*(4*u,0));
  s4.c=r4.c shifted (d4.c-b4.c);
  %dessin des fleches vers la deuxieme ligne a remplir
  for i=0 upto 4:
    drawboxed(b[i],c[i],d[i],f[i],g[i],h[i]);
    p[i]=b[i].c{dir-135}..r[i].c{dir-45};
    drawarrow p[i] cutbefore bpath.b[i] cutafter bpath.r[i];
    q[i]=d[i].c{dir-45}..s[i].c{dir-135};
    drawarrow q[i] cutbefore bpath.d[i] cutafter bpath.s[i];
    u[i]=r[i].c{dir-135}..f[i].c{dir-45};
    drawarrow u[i] cutbefore bpath.r[i] cutafter bpath.f[i];
    v[i]=s[i].c{dir-45}..h[i].c{dir-135};
    drawarrow v[i] cutbefore bpath.s[i] cutafter bpath.h[i];
    drawboxed(r[i],s[i]);
  endfor
endfig;
end