Fichier section3.mp (figure 1) — Modifié le 23 Mars 2008 à 17 h 33

section3.mp (figure 1)
Source

%@Auteur:Denis Lefur
input geometriesyr16;

u:=0.4cm;
figure (-u,-3u,14u,14u);
pair A,B,C,D,E,F,G,H;
pair V;
pair I,J,K;

V=(3u,3u);

A=(0,0);
H=(8u,0);
G=(8u,8u);
B=(0,8u);

C= B shifted V;
F= G shifted V;
E= H shifted V;
D= A shifted V;

I = 3[D,A];
J = 2.5[D,E];
K = 2[D,C];

draw A--I;
draw E--J;
draw C--K;

draw A--B--G--H--cycle;
draw H--E--F--G;
draw F--C--B;

draw A--D--E dashed evenly;
draw D--C dashed evenly;

nomme.bot(A);
nomme.lft(B);
nomme.lrt(C);
nomme.urt(D);
nomme.urt(E);
nomme.rt(F);
nomme.lrt(G);
nomme.ulft(H);

pair R,S,T;
R=(-u,-3u);
S=(15u,u);
T=0.3[R,S];
label.bot(btex $(d)$ etex ,T);
draw R--S;

marque_p :="croix";
pair M;
M=1.2[D,C];
MarquePoint(M);
nomme.rt(M);

fin;

%----------------------------------------------------------------------------
% solution
%----------------------------------------------------------------------------

u:=0.5cm;
figure (-10u,-10u,30u,20u);
pair A,B,C,D,E,F,G,H;
pair V;
pair I,J,K;

V=(3u,3u);

A=(0,0);
H=(8u,0);
G=(8u,8u);
B=(0,8u);

C= B shifted V;
F= G shifted V;
E= H shifted V;
D= A shifted V;

I = 3[D,A];
J = 2.5[D,E];
K = 2[D,C];

draw A--I;
draw E--J;
draw C--K;

draw A--B--G--H--cycle;
draw H--E--F--G;
draw F--C--B;

draw A--D--E dashed evenly;
draw D--C dashed evenly;

nomme.bot(A);
nomme.lft(B);
nomme.lrt(C);
nomme.urt(D);
nomme.urt(E);
nomme.rt(F);
nomme.lrt(G);
nomme.ulft(H);

pair RR,SS,T;
RR=(-u,-3u);
SS=(15u,u);
T=0.3[R,S];
label.bot(btex $(d)$ etex ,T);

marque_p :="croix";
pair M;
M=1.2[D,C];
MarquePoint(M);
nomme.rt(M);

%--------------------------------------solution

pair I,J,K,L,N,O,P,Q,R;

I=whatever[D,E];
I=whatever[RR,SS];

J=whatever[D,A];
J=whatever[RR,SS];

draw I--J;

K=whatever[M,J];
K=whatever[B,A];

L=whatever[M,J];
L=whatever[B,C];

draw J--K;
draw L--M;

N=whatever[M,I];
N=whatever[C,F];

O=whatever[M,I];
O=whatever[E,F];

draw M--N;
draw O--I;

P=whatever[A,H];
P=whatever[I,J];

draw H--P;

R=whatever[E,H];
R=whatever[I,J];

draw H--R;

Q=whatever[K,P];
Q=whatever[O,R];

draw Q--R;
draw Q--P;

draw K--Q--O withpen pencircle scaled 1pt ;
draw L--N withpen pencircle scaled 1pt ;
draw K--L withpen pencircle scaled 1pt dashed evenly ;
draw N--O withpen pencircle scaled 1pt dashed evenly ;

fin;

end