Fichier figure010.mp (figure 2) — Modifié le 23 Mars 2008 à 17 h 58

figure010.mp (figure 2)
Source

%@Auteur:Régis Leclercq
input geometriesyr16;

figuremainlevee(0,0,6.5u,5.5u);
pair A,B,C,D,E;
A=u*(0.75,0.75);
B=u*(5,0.75);
C=u*(4,5);
D=3/5[A,B];
E=3/5[A,C];
trace C--A--B;
trace droite(B,C);
trace droite(D,E);
nomme.llft(A);
nomme.llft(B);
nomme.lft(C);
nomme.llft(D);
nomme.lft(E);
finmainlevee;
%----------------------------
%figuremainlevee 2
%-----------------------------
u:=7.5mm;
figuremainlevee(0,0,8u,7u);
pair A,B,C,D,E;
A=u*(0.75,0.75);
B=u*(5,0.75);
C=u*(4,5);
D=7/5[A,B];
E=7/5[A,C];
trace droite(A,C);
trace droite(A,B);
trace droite(B,C);
trace droite(D,E);
nomme.ulft(A);
nomme.llft(B);
nomme.lft(C);
nomme.llft(D);
nomme.lft(E);
finmainlevee;
%--------------------------------------
%figuremainlevee 3
%--------------------
u:=1cm;
figuremainlevee(1u,1u,6u,5.5u);
pair A,B,C,D,E;
A=u*(3,3);
B=u*(5,3);
C=u*(4,5);
D=8/5[B,A];
E=8/5[C,A];
trace droite(A,B);
trace droite(A,C);
trace droite(B,C);
trace droite(D,E);
nomme.ulft(A);
nomme.llft(B);
nomme.rt(C);
nomme.urt(D);
nomme.rt(E);
finmainlevee;
end