input geometriesyr; figure(0,0,6u,6u); pair O,A,B,E; O=u*(3,3); path cc; cc=cercles(O,2.4u); trace cc; B=pointarc(cc,0); A=symetrie(B,O); E=cercles(A,3.1u) intersectionpoint cc; trace E--A--B; marque_p:="croix"; nomme.bot(O); marque_p:="non"; nomme.rt(B); nomme.lft(A); nomme.top(E); fin; figure(0,0,6u,6u); pair O,D,K,M,S,E,F; S=u*(2,2); O=u*(2.5,5.25); D=u*(5.25,4.5); M=4.8/6[S,O]; K=4.8/6[S,D]; F=13/10[D,S]; E=8/6[O,S]; trace E--F--D--O--cycle; trace M--K; nomme.lrt(E); nomme.lft(F); nomme.lrt(S); nomme.lft(M); nomme.ulft(O); nomme.urt(D); nomme.bot(K); fin; figure(0,0,6u,6u); pair R,C,E,H; R=u*(0.75,0.75); C-R=u*(4.5,0); E-R=u*(0,4); trace triangle(E,R,C); trace codeperp(E,R,C,5); H=projection(R,E,C); trace R--H; trace codeperp(R,H,C,5); nomme.llft(R); nomme.top(E); nomme.top(H); nomme.lrt(C); fin; figure(0,0,6u,6u); pair M; M=3/5[E,C]; trace triangle(E,R,C); trace codeperp(E,R,C,5); trace R--H; trace codeperp(R,H,C,5); nomme.llft(R); nomme.top(E); nomme.top(H); nomme.lrt(C); nomme.bot(M); cotation(E,M,5mm,2mm,btex $x$ etex); fin; end