Fichier c.mp (figure 4) — Modifié le 3 Avril 2008 à 22 h 03

c.mp (figure 4)
Source

input geometriesyr16;
marque_r:=25;
figure(0,0,1u,1u);
trace feuillet withcolor gris;
pair A,B,C;
A=u*(0.15,0.1);
B-A=u*(0.8,0.2);
C-A=u*(0.25,0.7);
trace droite(A,B);
trace perpendiculaire(A,B,C) withcolor rouge;
marque_p:="plein";
drawoptions(withcolor bleu);
pointe(C);
drawoptions();
trace cercles(C,marque_r/10);
fin;
figure(0,0,u,u);
pair C;
C-A=u*(0.25,0.55);
trace feuillet withcolor gris;
trace droite(A,B);
trace parallele(A,B,C) withcolor rouge;
marque_p:="plein";
drawoptions(withcolor bleu);
pointe(C);
drawoptions();
trace cercles(C,marque_r/10);
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.2,0.2);
B-A=u*(0.7,0.4);
trace segment(A,B);
trace perpendiculaire(A,B,iso(A,B)) withcolor rouge;
marque_p:="plein";
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B,C;
A=u*(0.15,0.3);
B-A=u*(0.75,-0.1);
C-A=u*(0.6,0.5);
trace chemin(C,A,B);
trace droite(A,CentreCercleI(A,B,C)) withcolor rouge;
drawoptions(withcolor bleu);
pointe(A,B,C);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(A,marque_r/10);
trace cercles(A,marque_r/10);
fin;
end