Fichier tetraedre1.mp (figure 2) — Modifié le 23 Mars 2008 à 17 h 34
%@Auteur:Thomas Rey
prologues := 2;
input geometriesyr16;
figure(-u,-2.2u,7u,5.3u);
pair A,B,C,D,M,N,I,J,P;
numeric m,n,i,j;
picture depart;
m=1.3;
n=.6;
i=.5;
j=.6;
B=(0,.1u);
C=(2u,-u);
D=(4u,.5u);
A=(u,3.5u);
I-B=i*(C-B);
J-C=j*(D-C);
M-A=m*(I-A);
N-A=n*(J-A);
depart=image(
trace A--B--C--A--D--C;
trace B--D dashed evenly;
trace demidroite(A,I);
trace A--J;
nomme.top(A);
nomme.ulft(B);
nomme.rt(D);
nomme.lrt(C);
nomme.llft(I);
nomme.lrt(J);
marque_p:="croix";
nomme.rt(M);
nomme.rt(N);
);% fin de la figure de départ;
trace depart;
fin;
figure(-u,-2.2u,7u,5.3u);
trace depart;
trace I--J dashed evenly withpen pencircle scaled 1bp withcolor blue;
trace I--(2I-J) withpen pencircle scaled 1bp withcolor blue;
trace J--(2J-I) withpen pencircle scaled 1bp withcolor blue;
fin;
figure(-u,-2.2u,7u,5.3u);
pair X;
trace depart;
trace I--J dashed evenly withpen pencircle scaled 1bp withcolor blue;
trace I--(2I-J) withpen pencircle scaled 1bp withcolor blue;
trace J--(2J-I) withpen pencircle scaled 1bp withcolor blue;
X-M=whatever*(M-N);
X-B=whatever*(B-C);
P-I=whatever*(I-J);
P-M=whatever*(M-N);
trace M--X withcolor red withpen pencircle scaled 1bp;
trace X--N dashed evenly withcolor red withpen pencircle scaled 1bp;
nomme.lrt(P);
fin;
end