function [] = graphique(nuEcran,w,z,titre,l)

//  Plot de quatre, au maximum, courbes stockées dans z
//  w contient les points de l'axe des x
//  titre contient le titre de la figure
//  l est les vecteur des etiquettes des courbes.

//  Préparation du plot
//  Tracé avec bordure, axes et quadrillage
    xset("window",nuEcran);
    show_window();
    f = get("current_axes");
    f.axes_visible="on";
    f.x_location="origin";
    f.y_location="origin";
    f.grid=[2,2];
    f.box="on";

    drawlater();
    s = 2;    // Indice pour les couleurs
    for i = 1:size(z,2)
      plot2d(w,z(:,i), style=[s],axesflag=1);
      s = s + 3;
    end;
    xtitle(titre);
    select size(z,2)
      case 1 then legend(l(1,1));
      case 2 then legend(l(1,1),l(1,2));
      case 3 then legend(l(1,1),l(1,2),l(1,3));
      case 4 then legend(l(1,1),l(1,2),l(1,3),l(1,4));
      else disp("Affichage =<4 courbes par figure");
    end;
    drawnow();

endfunction