input geometriesyr16; input TEX; figure(0,0,14.5u,4u); trace grille(0.5) withcolor white; origine((2,1)); drawarrow pp(0,0)--pp(27,0); drawarrow pp(0,0)--pp(0,7); for k=1 upto 6: trace segment(pp(0,k),pp(29,k)) dashed evenly; endfor; label.lft(btex 50 etex,pp(0,1)); label.lft(btex 100 etex,pp(0,2)); label.lft(btex 150 etex,pp(0,3)); label.lft(btex 200 etex,pp(0,4)); label.lft(btex 250 etex,pp(0,5)); label.lft(btex 300 etex,pp(0,6)); label.bot(btex 7,95 etex,pp(1,0)); label.bot(btex 7,96 etex,pp(3,0)); label.bot(btex 7,97 etex,pp(5,0)); label.bot(btex 7,98 etex,pp(7,0)); label.bot(btex 7,99 etex,pp(9,0)); label.bot(btex 8,00 etex,pp(11,0)); label.bot(btex 8,01 etex,pp(13,0)); label.bot(btex 8,02 etex,pp(15,0)); label.bot(btex 8,03 etex,pp(17,0)); label.bot(btex 8,04 etex,pp(19,0)); label.bot(btex 8,05 etex,pp(21,0)); marque_r:=2; for k=1 step 2 until 19: trace marquesegment(pp(k,0),pp(k+2,0)); endfor; label.rt(btex Effectifs etex,pp(0,6.5)); label.bot(btex Diam\`etre etex,pp(25,0)); drawoptions(withpen pencircle scaled 1.5bp); trace pp(1,0)--pp(1,1); trace pp(3,0)--pp(3,1); trace pp(5,0)--pp(5,1); trace pp(7,0)--pp(7,2); trace pp(9,0)--pp(9,3); trace pp(11,0)--pp(11,5); trace pp(13,0)--pp(13,6); trace pp(15,0)--pp(15,6); trace pp(17,0)--pp(17,4); trace pp(19,0)--pp(19,2); trace pp(21,0)--pp(21,3); drawoptions(); fin; end