input constantes; input geometriepoint1; beginfig(1); affixe.D(u*(1,1))so; affixe.C(u*(5,1))se; affixe.B(u*(5,5))ne; affixe.A(z.D shifted(z.B-z.C))no; draw z.A--z.B--z.C--z.D--cycle; affixe.G(2/5[z.D,z.A])no; affixe.E(2/3[z.A,z.B])ne; affixe.F((xpart(z.E),ypart(z.G)))se; draw z.G--z.F--z.E; cotation(D,C,-2mm,-2mm,btex 60~m etex); cotation(C,B,-2mm,-2mm,btex 60~m etex); cotation(D,G,2mm,2mm,btex $x$ etex); cotation(A,E,2mm,2mm,btex 40~m etex); endfig; beginfig(2); affixe.D(u*(1,1))so; affixe.C(u*(4,1))se; affixe.O(z.C rotatedabout(z.D,60))e; affixe.B(2[z.D,z.O])ne; affixe.A(2[z.C,z.O])no; affixe.E(z.B shifted(u*(1.5,0))); affixe.F(z.B shifted(u*(0,1.5))); drawarrow arccercle(E,F,B); draw z.D--z.B--z.A--z.C--cycle; draw codesegments(D,O,O,B,2); draw codesegments(C,O,O,A,2); draw codesegments(A,B,D,C,2); endfig; beginfig(3); affixe.A(u*(1,1))so; affixe.B(u*(7,1))se; affixe.O(1/2[z.A,z.B])se; draw segment(A,B); path cc; cc=arccercle(B,A,O); affixe.H(1/2[z.A,z.O])s; affixe.M(perpensur(H,A,O,10) intersectionpoint cc)n; draw triangle(A,B,M); draw z.M--z.H; draw z.M--z.O; draw cc; draw codesegments(A,H,H,O,2); draw codeperp(M,H,B,5); affixe.N(perpensur(O,A,B,1) intersectionpoint (z.M--z.B))ne; draw droite(O,N,1.05); endfig; end