Quelques exemples de pavages hyperboliques. Le fichier est joint en fin de message. En modifiant l'élément graphique
pavage on peut obtenir différents exemples (attention, ça peut être très long!!):
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0,0,0,0), size(9),
FillStyle:=full, FillColor:=darkblue, Width:=8, Cercle(0,1),
$n:=4, p:=12, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=7, FillColor:= gold, Color:=FillColor, Hpavage2([0,T1],0,niv),
FillStyle:=none, Color:=crimson, BordPavage([0,T1],0,niv),
]
- hpavage_4_12.png (82.32 Kio) Consulté 17428 fois
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0,0,0,0), size(9),
FillStyle:=full, FillColor:=darkblue, Width:=8, Cercle(0,1),
$n:=6, p:=4, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=4, FillColor:= gold, Color:=FillColor, Hpavage1([0,T1],0,niv),
FillStyle:=none, Color:=black, BordPavage([0,T1],0,niv),
]
- hpavage_6_4.png (105.04 Kio) Consulté 17428 fois
- Code: Tout sélectionner
[
Fenetre(-1+i,1-i,5+5*i), Marges(0.1,0.1,0.1,0.1), size(9),
FillStyle:=full, FillColor:=beige, Width:=8, Cercle(0,1),
$n:=5, p:=4, nbcote:=n,
$u:=sin(pi/n+pi/p)+cos(pi/n+pi/p)/tan(pi/n),
r:=sqrt(1/(u*u-1)), A:=r*cos(pi/n+pi/p)/sin(pi/n)*exp(i*pi/n),
T1:= for k from 0 to n-1 do exp(i*k*2*pi/nbcote)*A od,
b:=A, p:= for z in [T1[2,0],b] do a:=b, b:=z, hMil(a,b) od,
Width:=1, niv:=6, FillColor:= seagreen, Color:=FillColor, Hpavage2([0,T1],0,niv),
FillStyle:=none, Color:=brown, Width:=12, hLigne(T1,1)
]
- hpavage_5_4.png (73.36 Kio) Consulté 17428 fois