Fichier figure026.mp (figure 4) — Modifié le 3 Avril 2008 à 22 h 20
input geometriesyr16;
input TEX;
verbatimtex;
%&latex
\documentclass[12pt]{article}
\usepackage{lmodern}
\begin{document}
etex
vardef carrelitteralcpt(expr nbc)=
save $;
picture $;
path carr[];
carr1=polygone(u*(1,1),u*(nbc+1,1),u*(nbc+1,nbc+1),u*(1,nbc+1));
carr2=polygone(u*(2,2),u*(nbc,2),u*(nbc,nbc),u*(2,nbc));
$=image(
trace hachurage(carr1,60,0.2,0) withcolor bleu;
remplis carr2 withcolor blanc;
trace carr1;
trace carr2;
for k=2 upto nbc:
trace segment(u*(k,1),u*(k,nbc+1));
trace segment(u*(1,k),u*(nbc+1,k));
endfor;
);
$
enddef;
vardef carrelitteral(expr nbc,eca)=
save $;
picture $,coin;
path LL;
pair PP[];
PP1=iso(u*(1,1),u*(6+eca,6+eca));
PP2=iso(u*(1,1),u*(6+eca,1));
LL=polygone(u*(1,1),u*(4,1),u*(4,2),u*(2,2),u*(2,4),u*(1,4));
coin=image(
trace LL;
for k=2 upto 3:
trace segment(u*(1,k),u*(2,k));
trace segment(u*(k,1),u*(k,2));
endfor;
);
$=image(
trace hachurage(LL,60,0.2,0) withcolor bleu;
trace hachurage(symetrie(LL,PP1),60,0.2,0) withcolor bleu;
trace hachurage(symetrie(LL,PP1,PP2),60,0.2,0) withcolor bleu;
trace hachurage(symetrie(symetrie(LL,PP1,PP2),PP1),60,0.2,0) withcolor bleu;
trace coin;
trace symetrie(coin,PP1);
trace symetrie(coin,PP1,PP2);
trace symetrie(symetrie(coin,PP1,PP2),PP1);
drawoptions(dashed withdots withpen pencircle scaled1.5bp);
trace segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5)));
trace symetrie(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1);
trace rotation(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1,90);
trace rotation(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1,-90);
drawoptions();
long:=abs(u*(1,1)-u*(6+eca,1));
label.bot(TEX("$\underbrace{\hbox to"&
decimal(long)&"pt{}}_{\hbox{"&decimal(nbc)&"}}$"),iso(u*(1,1),u*(6+eca,1)));
);
$
enddef;
u:=5mm;
beginfig(1);
trace carrelitteralcpt(3);
endfig;
beginfig(2);
trace carrelitteralcpt(5);
endfig;
beginfig(3);
trace carrelitteralcpt(10);
endfig;
u:=4mm;
beginfig(4);
trace carrelitteral(50,3);
endfig;
beginfig(5);
trace carrelitteral(100,4);
endfig;
eca:=4.5;
beginfig(6);
picture $,coin;
path LL;
pair PP[];
PP1=iso(u*(1,1),u*(6+eca,6+eca));
PP2=iso(u*(1,1),u*(6+eca,1));
LL=polygone(u*(1,1),u*(4,1),u*(4,2),u*(2,2),u*(2,4),u*(1,4));
coin=image(
trace LL;
for k=2 upto 3:
trace segment(u*(1,k),u*(2,k));
trace segment(u*(k,1),u*(k,2));
endfor;
);
$=image(
trace hachurage(LL,60,0.2,0) withcolor bleu;
trace hachurage(symetrie(LL,PP1),60,0.2,0) withcolor bleu;
trace hachurage(symetrie(LL,PP1,PP2),60,0.2,0) withcolor bleu;
trace hachurage(symetrie(symetrie(LL,PP1,PP2),PP1),60,0.2,0) withcolor bleu;
trace coin;
trace symetrie(coin,PP1);
trace symetrie(coin,PP1,PP2);
trace symetrie(symetrie(coin,PP1,PP2),PP1);
drawoptions(dashed withdots withpen pencircle scaled1.5bp);
trace segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5)));
trace symetrie(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1);
trace rotation(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1,90);
trace rotation(segment(u*(4.5,1.5),symetrie(u*(4.5,1.5),PP2+u*(0,0.5))),PP1,-90);
drawoptions();
long:=abs(u*(1,1)-u*(6+eca,1));
label.bot(TEX("$\underbrace{\hbox to"&decimal(long)&"pt{}}_{\hbox{$n$}}$"),iso(u*(1,1),u*(6+eca,1)));
);
trace $;
endfig;
end