input geometriesyr16; input TEX; figure(0,0,10u,4u); trace grille(0.5) withcolor white; origine((1,1)); draw pp(0,0)--pp(19,0); draw pp(0,0)--pp(0,7); for k=1 upto 6: trace segment(pp(0,k),pp(19,k)) dashed evenly; endfor; label.lft(btex 1 etex,pp(0,1)); %for k=0 upto 9: % label.bot(TEX(""&decimal(8+k)&""),pp(k+1,0)); %endfor; %marque_r:=2; %for k=1 step 2 until 9: % trace marquesegment(pp(k,0),pp(k+1,0)); %endfor; %label.rt(btex Effectifs etex,pp(0,6.5)); %label.bot(btex Notes etex,pp(13,0)); drawoptions(withpen pencircle scaled 1.5bp); trace pp(1,0)--pp(1,6); trace pp(4,0)--pp(4,5); trace pp(7,0)--pp(7,3); trace pp(10,0)--pp(10,2); trace pp(13,0)--pp(13,1); trace pp(16,0)--pp(16,3); drawoptions(); label.bot(btex Chien etex,pp(1,0)); label.bot(btex Chat etex,pp(4,0)); label.bot(btex Dauphin etex,pp(7,0)); label.bot(btex Perroquet etex,pp(10,0)); label.bot(btex Lion etex,pp(13,0)); label.bot(btex Autres etex,pp(16,0)); fin; end