input geometriesyr16 u:=8mm; figure(0,0,15u,7u); pair M,N,A,B,C,D; C=u*(1,2); D-C=u*(3,0.5); trace droite(C,D); A=u*(1,6); B-A=u*(4,-1); drawarrow A--B; trace marquedemidroite(A,B); nomme.ulft(A); nomme.bot(B); label.ulft(btex $(d)$ etex,C); M=u*(6,6); N=u*(9,0.5); marque_p:="croix"; nomme.top(M); nomme.lft(N); marque_p:="non"; fin; figure(0,0,15u,7u); pair M,N,A,B,C,D; C=u*(5,4); D-C=u*(5,2.5); A=u*(4,6); B-A=u*(-1,-3); drawarrow A--B; drawarrow C--D; trace marquedemidroite(A,B); trace marquedemidroite(C,D); nomme.ulft(A); nomme.bot(B); nomme.ulft(C); nomme.urt(D); M=u*(5,6); N=u*(12,4); marque_p:="croix"; nomme.top(M); nomme.bot(N); marque_p:="non"; fin; figure(0,0,6u,6u); pair A,B,C,D; A=u*(1,1); B-A=u*(2.5,1); D-A=u*(2,3); C-D=B-A; trace polygone(A,B,C,D); nomme.llft(A); nomme.lrt(B); nomme.urt(C); nomme.ulft(D); fin; figure(0,0,6u,6u); pair I,J,K,L; K=u*(1,2); I-K=u*(2,2.5); J-I=u*(2.75,-1); L-K=J-I; trace polygone(I,J,L,K); nomme.llft(K); nomme.lrt(L); nomme.urt(J); nomme.ulft(I); fin; figure(0,0,6u,6u); pair M,N,P,R; M=u*(5.5,0.75); N-M=u*(-1.75,1); P-N=u*(-1,2.5); R-P=N-M; trace polygone(M,N,R,P); nomme.lrt(M); nomme.urt(P); nomme.ulft(R); nomme.llft(N); fin; end