input geometriesyr16; figure(0,0,14.5u,10u); draw grille(0.5) withcolor orange; drawarrow (u*(1,1))--(u*(1,9)) withpen pencircle scaled 1.5bp; drawarrow (u*(1,1))--(u*(14.5,1)) withpen pencircle scaled 1.5bp; label.urt(btex Effectif etex,u*(1,9)); label.bot(btex Masse etex,u*(13.5,1)); label.lft(btex 0 etex,u*(1,1)); label.lft(btex 1 etex,u*(1,2)); label.lft(btex 2 etex,u*(1,3)); label.lft(btex 3 etex,u*(1,4)); label.bot(btex 89 etex,u*(1,1)); label.bot(btex 92 etex,u*(2.5,1)); label.bot(btex 95 etex,u*(4,1)); draw (u*(2.5,1))--(u*(2.5,4))--(u*(4,4))--(u*(4,1)) withpen pencircle scaled 1.5bp; fin; figure(0,0,5u,6u); pair K,H,M,S; K=(0,0); H=u*(2.5,1.5); S=(xpart(H),5u); path cc,cd; cc=cercle(K,2u); cd=cc yscaled 0.15 shifted H; draw (point(0) of cd)--S--(point(length cd/2) of cd); draw subpath(0,length cd/2) of cd dashed evenly; draw subpath(length cd/2,length cd) of cd; M=point(0.8*length cd) of cd; draw S--M; draw S--H--M dashed evenly; draw codeperp(S,H,M,5); nomme.top(S); nomme.llft(H); nomme.lrt(M); fin; end