Fichier figure001.mp (figure 3) — Modifié le 8 Novembre 2006 à 22 h 52

figure001.mp (figure 3)
Source

input geometriesyr16;
figure(0,0,10u,10u);
pair A,B,C,H;
trace triangleqcq(A,B,C);
H=projection(C,A,B);
trace segment(C,H) dashed evenly;
trace codeperp(C,H,B,5);
fin;
figure(0,0,10u,10u);
pair A,B,C,H;
trace triangleqcq(A,B,C);
nomme.llft(A);
nomme.lrt(B);
nomme.urt(C);
H=projection(C,A,B);
trace segment(C,H) dashed evenly;
trace codeperp(C,H,B,5);
nomme.bot(H);
fin;
figure(0,0,10u,10u);
pair A,B,C,H[];
trace triangleqcq(A,B,C);
H1=projection(C,A,B);
H2=projection(A,C,B);
H3=projection(B,C,A);
trace segment(C,H1) dashed evenly;
trace codeperp(C,H1,B,5);
trace segment(A,H2) dashed evenly;
trace codeperp(A,H2,B,5);
trace segment(B,H3) dashed evenly;
trace codeperp(B,H3,A,5);
fin;
end