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

e.mp (figure 3)
Source

input geometriesyr16;
marque_r:=25;
marque_a:=10;
marque_p:="plein";
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.2);
C-A=u*(0.6,0.6);
fillcolor:=rose;
transparence coloreangle(B,A,C);
trace chemin(C,A,B);
drawoptions(withcolor rouge);
trace Codeangle(B,A,C,0,btex $\alpha$ etex);
drawoptions(withcolor bleu);
pointe(A,B,C);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
trace cercles(C,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.2);
C-A=u*(0.6,0.6);
fillcolor:=rose;
transparence coloreangle(B,A,C);
trace chemin(A,B);
drawoptions(withcolor rouge);
trace Codeangle(B,A,C,0,btex $\alpha$ etex);
trace segment(A+(marque_a)*unitvector(C-A),A);
pointe(C);
drawoptions(withcolor bleu);
pointe(A,B);
drawoptions();
trace cercles(A,marque_r/10);
trace cercles(B,marque_r/10);
trace cercles(C,marque_r/10);

fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.15,0.15);
B-A=u*(0.75,0.5);
drawdblarrow A--B;
trace appelation(A,B,2mm,btex cm etex);
fin;
end