Fichier figure001.mp (figure 2) — Modifié le 3 Avril 2008 à 22 h 02

figure001.mp (figure 2)
Source

input geometriesyr16;

vardef eprouvette(expr nbg,nbp)=
  picture $;
  path Cc;
  Cc=cercles((0,0),1u) yscaled 0.2;
  $=image(
    remplis (point(0) of Cc)--(subpath(0,length Cc/2) of Cc shifted((nbp/nbg)*u*(0,6)))--(point(length Cc/2) of Cc)--(subpath(length Cc/2,length Cc) of Cc)--cycle withcolor ciel;
    trace Cc shifted((nbp/nbg)*u*(0,6));
    trace Cc shifted(u*(0,6));
    trace subpath(0,length Cc/2) of Cc dashed evenly;
    trace subpath(length Cc/2,length Cc) of Cc;
    trace segment(point(0) of Cc,point(0) of Cc shifted(u*(0,6)));
    trace segment(point(length Cc/2) of Cc,point(length Cc/2) of (Cc shifted(u*(0,6))));
    for k=1 upto (nbg-1):
      trace (subpath(length Cc/2,length Cc*0.7) of Cc) shifted ((k/nbg)*u*(0,6));
    endfor;
    );
  $
enddef;

beginfig(1);
  trace eprouvette(9,4);
endfig;

beginfig(2);
  trace eprouvette(8,6);
endfig;

beginfig(3);
  trace eprouvette(11,7);
endfig;

beginfig(4);
  trace eprouvette(6,5);
endfig;

beginfig(5);
  trace eprouvette(12,9);
endfig;

beginfig(6);
  trace eprouvette(15,9);
endfig;
end