prologues:=2; input geometriesyr16; input TEX; figure(0,0,10u,4u); pair A,B,C,D,E,F,G,H; A=u*(0.5,0.5); B-A=u*(1.75,0); C=rotation(A,B,-90); D-C=A-B; E-B=u*(2,0); F-E=u*(3,0); G-F=u*(0,1); H-G=E-F; trace polygone(A,B,C,D); trace polygone(E,F,G,H); trace appelation(D,C,2mm,btex $\sqrt3+3$ etex); label.lft(btex $\sqrt2$ etex,iso(E,H)); trace appelation(H,G,2mm,btex $\sqrt{72}+3\sqrt6$ etex); fin; figure(0,0,8u,4u); trace grille(0.5) withcolor white; origine((1,1)); drawarrow pp(0,0)--pp(15,0); drawarrow pp(0,0)--pp(0,7); for k=1 upto 5: trace segment(pp(0,k),pp(15,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; 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,2); trace pp(2,0)--pp(2,3); trace pp(3,0)--pp(3,1); trace pp(4,0)--pp(4,3); trace pp(5,0)--pp(5,5); trace pp(6,0)--pp(6,4); trace pp(7,0)--pp(7,1); trace pp(8,0)--pp(8,3); trace pp(9,0)--pp(9,2); trace pp(10,0)--pp(10,1); drawoptions(); fin; figure(0,0,5u,5u); pair O,A,B,C,D; path cc; O=u*(2.5,2.5); cc=cercles(O,2u); B=pointarc(cc,45); D=symetrie(B,O); A=rotation(B,O,90); C=symetrie(A,O); trace cc; trace polygone(A,B,C,D); trace segment(A,C) dashed evenly; trace segment(D,B) dashed evenly; nomme.urt(B); nomme.lrt(C); nomme.llft(D); nomme.ulft(A); nomme.top(O); fin; end