input constantes; input geometriepoint; input papiers; beginfig(1); affixe.B(u*(1,1))so; affixe.C(u*(5,0.5))se; affixe.D(4/5[z.C,z.B rotatedabout(z.C,-61)])n; affixe.A(7/8[z.D,z.C rotatedabout(z.D,-80)])no; draw z.A--z.B--z.C--z.D--cycle; cotation(B,C,-2mm,-2mm,btex $8\,cm$ etex); cotation(D,C,2mm,2mm,btex $6\,cm$ etex); cotation(A,D,2mm,2mm,btex $6,8\,cm$ etex); labeloffset:=12bp; label.bot(btex $80$° etex,z.D); label.ulft(btex $61$° etex,z.C); labeloffset:=3bp; draw codageangle(D,C,B,1,3mm); draw codageangle(A,D,C,2,2mm); endfig; beginfig(2); affixec.O(u*(3,3))s; path cerc; cerc=cercle(O,1.5cm); affixe.A(pointarc(cerc,200)); affixe.K(pointarc(cerc,340)); affixe.D(pointarc(cerc,60)); affixe.B(perpen(D,A,K,5) intersectionpoint (z.A--z.K)); affixe.E(arccercle(A,B,O) intersectionpoint droite(D,B,5)); affixe.F(pointarc(cerc,170)); affixe.C(droite(D,F,5) intersectionpoint droite(B,A,5))n; draw droite(D,C,1.15); draw droite(C,B,1.25); draw droite(D,E,1.15); draw codeperp(D,B,K,5); draw cerc; endfig; beginfig(3); papiercinq((0,0),(9,6),orange); drawarrow (u*(1,0.5))--(u*(1,5.5)); drawarrow (u*(1,0.5))--(u*(8.5,0.5)); label.top(btex Poids (en $kg$) etex,u*(1,5.5)); label.top(btex Jours etex,u*(8.5,0.5)); for j:=1 upto 15 : draw fullcircle scaled 0.5mm shifted ((u*(1,0.5))+(u*(0.5*j,0))); endfor label.bot(btex 0 etex,u*(1,0.5)); label.bot(btex 5 etex,u*(1.5,0.5)); label.bot(btex 10 etex,u*(2,0.5)); for j:=1 upto 5: draw fullcircle scaled 0.5mm shifted ((u*(1,0.5))+(u*(0,j))); endfor label.lft(btex 1 etex,u*(1,1.5)); label.lft(btex 2 etex,u*(1,2.5)); affixe.A(u*(1,3.5)); affixe.B(u*(1.5,4)); affixe.C(u*(3,4.25)); affixe.D(u*(4,4.5)); affixe.E(u*(5.5,4.5)); affixe.F(u*(7,5)); affixe.G(u*(8.5,5.5)); draw z.A--z.B--z.C--z.D--z.E--z.F--z.G; endfig; end