input geometriesyr16; u:=5mm; figure(0,0,10u,10u); pair A,B,C,D,M,N; D=u*(1,1); A-D=u*(0,4); B-A=u*(6,0); C-B=D-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 codeperp(D,A,B,5); M=iso(B,C); N=1/3[C,D]; nomme.ulft(A); nomme.urt(B); nomme.lrt(C); nomme.llft(D); marque_p:="croix"; nomme.rt(M); nomme.bot(N); marque_p:="non"; trace chemin(M,A,N); fin; figure(0,0,10u,10u); pair A,B,C,D,M,N; D=u*(1,1); A-D=u*(0,4); B-A=u*(6,0); C-B=D-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 codeperp(D,A,B,5); M=1/3[B,C]; N=2/9[C,D]; nomme.ulft(A); nomme.urt(B); nomme.lrt(C); nomme.llft(D); marque_p:="croix"; nomme.rt(M); nomme.bot(N); marque_p:="non"; trace chemin(M,A,N); fin; figure(0,0,10u,10u); pair A,B,C,D,M,N; D=u*(1,1); A-D=u*(0,4); B-A=u*(6,0); C-B=D-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 codeperp(D,A,B,5); M=4/5[B,C]; N=8/15[C,D]; nomme.ulft(A); nomme.urt(B); nomme.lrt(C); nomme.llft(D); marque_p:="croix"; nomme.rt(M); nomme.bot(N); trace chemin(M,A,N); fin; end