input geometriesyr16; u:=7.5mm; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(4,0); D=3/5[A,rotation(B,A,90)]; C-D=B-A; trace polygone(A,B,C,D); trace codeperp(A,B,C,5); trace codeperp(B,C,D,5); trace codeperp(C,D,A,5); trace appelation(D,C,2mm,btex $\sqrt5+1$ etex); trace appelation(A,D,2mm,btex $\sqrt5-1$ etex); fin; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(4,0); D=rotation(B,A,90); C-D=B-A; trace polygone(A,B,C,D); trace codeperp(A,B,C,5); trace codeperp(B,C,D,5); trace codeperp(C,D,A,5); trace Codelongueur(A,B,B,C,C,D,D,A,2); trace appelation(D,C,2mm,btex $\sqrt3+2$ etex); fin; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(4,0); D=3/5[A,rotation(B,A,75)]; C=projection(D,A,B); trace polygone(A,B,D); trace segment(D,C) dashed evenly; trace codeperp(D,C,A,5); trace appelation(A,B,-3mm,btex $2\sqrt3-1$ etex); trace appelation(D,C,2mm,btex $\sqrt3+1$ etex); fin; figure(0,0,6u,6u); pair O,A; O=u*(3,3); trace cercles(O,2.5u); A=pointarc(cercles(O,2.5u),30); marque_p:="croix"; pointe(O); marque_p:="non"; trace segment(O,A) dashed evenly; trace appelation(O,A,2mm,btex $\sqrt6+1$ etex); fin; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(4,0); D=3/5[A,rotation(B,A,90)]; C-D=B-A; trace polygone(A,B,C,D); trace codeperp(A,B,C,5); trace codeperp(B,C,D,5); trace codeperp(C,D,A,5); trace appelation(D,C,2mm,btex $2\sqrt5+3$ etex); trace appelation(A,D,2mm,btex $3\sqrt5-2$ etex); fin; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(4,0); D=rotation(B,A,90); C-D=B-A; trace polygone(A,B,C,D); trace codeperp(A,B,C,5); trace codeperp(B,C,D,5); trace codeperp(C,D,A,5); trace Codelongueur(A,B,B,C,C,D,D,A,2); trace appelation(D,C,2mm,btex $3\sqrt3-2$ etex); fin; end