Fichier fig011.mp (figure 1) — Modifié le 23 Mars 2008 à 20 h 43

fig011.mp (figure 1)
Source

input geometriesyr16;

figureespace(-10u,-10u,10u,10u);
Initialisation(5,20,25,500);
color A,B,C,D,E,A',D',E',C';
D=(1,0,0);
C-D=(-1,0,0);
E-D=(0,1,0);
B-E=C-D;
A=1/2[D,B]+(0,0,(sqrt(3)/2));
D'-E=E-D;
E'-B=B-C;
A'-A=B-C;
NbS:=5;
Sommet1:=D;
Sommet2:=E;
Sommet3:=B;
Sommet4:=C;
Sommet5:=A;
NF:=5;
Fc[100]:=3;Fc[101]:=2;Fc[102]:=3;Fc[103]:=5;
Fc[200]:=3;Fc[201]:=1;Fc[202]:=2;Fc[203]:=5;
Fc[300]:=4;Fc[301]:=4;Fc[302]:=3;Fc[303]:=2;Fc[304]:=1;
Fc[400]:=3;Fc[401]:=4;Fc[402]:=1;Fc[403]:=5;
Fc[500]:=3;Fc[501]:=3;Fc[502]:=4;Fc[503]:=5;
DessineObjet;
NbS:=5;
Sommet1:=E;
Sommet2:=D';
Sommet3:=E';
Sommet4:=B;
Sommet5:=A';
NF:=5;
Fc[100]:=3;Fc[101]:=2;Fc[102]:=3;Fc[103]:=5;
Fc[200]:=3;Fc[201]:=1;Fc[202]:=2;Fc[203]:=5;
Fc[300]:=4;Fc[301]:=4;Fc[302]:=3;Fc[303]:=2;Fc[304]:=1;
Fc[400]:=3;Fc[401]:=4;Fc[402]:=1;Fc[403]:=5;
Fc[500]:=3;Fc[501]:=3;Fc[502]:=4;Fc[503]:=5;
DessineObjet;
nomme.lft(D);
nomme.llft(E);
nomme.lrt(D');
nomme.rt(E');
nomme.top(B);
nomme.lrt(C);
nomme.top(A);
nomme.top(A');
finespace;

end