input geometriesyr16; figure(0,0,4u,4u); pair A,B,C,D; A=u*(0.75,0.75); B-A=u*(2,0); C-A=u*(1,2); D-A=u*(2.5,0.5); trace droite(A,B); trace droite(C,B); trace perpendiculaire(A,B,C); trace droite(B,D); label.top(btex $(d_1)$ etex,1.05[B,A]); label.llft(btex $(d_2)$ etex,1.5[B,C]); label.rt(btex $(d_3)$ etex,1.35[projection(C,A,B),C]); label.ulft(btex $(d_4)$ etex,2[B,D]); fin; figure(0,0,4u,4u); pair A,B,C,D; A=u*(0.75,0.75); D-A=u*(2,0); C-A=u*(0.75,2); B-A=u*(2.5,0.5); trace droite(A,B); trace droite(C,B); trace perpendiculaire(A,B,C); trace droite(C,D); label.top(btex $(d_2)$ etex,1.05[B,A]); label.llft(btex $(d_1)$ etex,1.5[B,C]); label.rt(btex $(d_4)$ etex,1.5[projection(C,A,B),C]); label.rt(btex $(d_3)$ etex,1.25[C,D]); fin; figure(0,0,4u,4u); pair A,B,C,D; A=u*(0.75,0.75); C-A=u*(2,0); B-A=u*(1,2); D-A=u*(2,0.5); trace droite(A,B); trace droite(C,B); trace perpendiculaire(A,B,C); trace droite(C,D); label.lft(btex $(d_3)$ etex,1.05[B,A]); label.llft(btex $(d_4)$ etex,1.5[C,B]); label.rt(btex $(d_2)$ etex,1.25[projection(C,A,B),C]); label.urt(btex $(d_1)$ etex,4[C,D]); fin; figure(0,0,4u,4u); pair A,B,C,D; A=u*(0.75,0.75); D-A=u*(2,0); B-A=u*(1,2); C-A=u*(2,0.5); trace droite(B,D); trace droite(C,A); trace perpendiculaire(D,B,A); trace droite(C,D); label.rt(btex $(d_1)$ etex,1.5[D,B]); label.bot(btex $(d_4)$ etex,1.45[A,C]); label.top(btex $(d_2)$ etex,1.6[A,projection(A,D,B)]); label.urt(btex $(d_3)$ etex,5[D,C]); fin; end