input geometriesyr; figure(0,0,8u,8u); pair A,B,C,D; A=u*(1,5); B=u*(1,7); C=u*(3,7); D=10/6[C,rotation(A,C,90)]; trace A--B--C--D--cycle; trace codeperp(A,B,C,5); nomme.llft(A); nomme.ulft(B); nomme.urt(C); nomme.bot(D); fin; figure(0,0,7u,5u); pair A,B,C,D,E,M; C=u*(2,1); D=u*(4,1); M=u*(2.5,2); A=6.75/3[D,M]; B=6.75/3[C,M]; trace droite(A,B); trace droite(C,D); trace A--D; trace B--C; E-D=B-A; nomme.top(A); nomme.top(B); nomme.bot(C); nomme.bot(D); nomme.top(M); marque_p:="croix"; nomme.bot(E); marque_p:="non"; fin; figure(0,0,5u,9u); pair A,B,O,I; O=u*(2.5,1); I=u*(2.5,6); A=u*(4,1); B=u*(4,6); path cc,cd,ce; cc=cercles((0,0),1.5u); cd=(cc yscaled 0.15) shifted O; ce=(cc yscaled 0.15) shifted I; trace subpath(0,length cd/2) of cd dashed evenly; trace subpath(length cd/2,length cd) of cd; trace subpath(0,length ce/2) of ce dashed evenly; trace subpath(length ce/2,length ce) of ce; trace A--B; trace symetrie(A--B,O,I); trace arccercle(B,symetrie(B,I),I); cotationmil(A,B,-3mm,20,btex 8~cm etex); cotation(symetrie(B,I),I,0,4mm,btex 3~cm etex); fin; end