発言者: 田中徹
発言日: 2006 11/17 21:09
> 大学の授業でタイリングについて研究しているのですが,
> なんだかきれいなタイリングに仕上がったので
> 見てもらおうと持って来ましたw
タイリングの定義にもよりますが
合同なタイルでないと面白くないのではないですか???
# 私の20年以上前の卒業研究ではそうだったはず
ゼミでは George E.Martin Transformation Geometry
卒業後に TILING AND PATTERNS を購入
次のソースは 丸善 「ペンローズ・タイルと数学パズル」 一松 信 氏訳 の
p.3 にある合同な形による非周期的なタイル張りです。
時間がないので2重ループにしてありません。m(_)m
> やっぱりemathはすごいなぁ
同感
\documentclass[a4j]{jarticle}
\usepackage[papersize]{emathP}
\pagestyle{empty}
\setlength{\paperwidth}{210mm}
\setlength{\paperheight}{297mm}
\setlength{\textwidth}{\paperwidth}
\addtolength{\textwidth}{-22mm}
\setlength{\textheight}{\paperheight}
\addtolength{\textheight}{-30mm}
\setlength{\leftmargin}{0mm}
\setlength{\oddsidemargin}{-12mm}
\setlength{\topmargin}{-10mm}
\setlength{\headsep}{0mm}
\setlength{\parindent}{0zw}
\setlength{\columnsep}{12mm}
\setlength{\columnseprule}{0.1mm}
%\setlength{\mathindent}{0mm}
\makeatletter%
\def\DrawTriC#1#2{%
\Add{#2}{15}\@LAngle%
\Sub{#2}{15}\@RAngle%
\rtenretu*[#1]{@R(1,\@RAngle);@L(1,\@LAngle)}%
\Takakkei{#1\@R\@L}%
}%
\def\DrawTriR#1#2{%
\Add{#2}{30}\@LAngle%
\Sub{#2}{0}\@RAngle%
\rtenretu*[#1]{@R(1,\@RAngle);@L(1,\@LAngle)}%
\Takakkei{#1\@R\@L}%
}%
\def\DrawTriL#1#2{%
\Add{#2}{0}\@LAngle%
\Sub{#2}{30}\@RAngle%
\rtenretu*[#1]{@R(1,\@RAngle);@L(1,\@LAngle)}%
\Takakkei{#1\@R\@L}%
}%
\def\DrawTriV#1#2#3{%
\Add{#3}{15}\@LAngle%
\Sub{#3}{15}\@RAngle%
\rtenretu*[#1]{@R(#2,\@RAngle);@L(#2,\@LAngle)}%
\Bunten\@R\@L{1}{1}\@M%
\DrawTriC{\@M}{#3}%
}%
\makeatother%
\begin{document}
\def\UniLen{10mm}%
\begin{zahyou*}[ul=\UniLen](-4,4)(-4,4){}%
\def\O{(0,0)}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1番内側の 12個
\def\Angle{-15}%
\Ifor\Cnt{0}{12}\Do{%
\Add\Angle{30}\Angle%
\DrawTriC\O{\Angle}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 2番内側の 24個 (12個は描画なし)
\def\Angle{-30}%
\Ifor\Cnt{0}{12}\Do{%
\Add\Angle{30}\Angle%
\rtenretu*[\O]{C(1,\Angle)}%
\DrawTriR\C{\Angle}%
\DrawTriL\C{\Angle}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 3番内側の 36個 (24個は描画なし)
\def\Angle{-30}%
\def\CAngle{-15}%
\Ifor\Cnt{0}{12}\Do{%
\Add\Angle{30}\Angle%
\Add\CAngle{30}\CAngle%
\rtenretu*[\O]{C(2,\Angle)}%
\DrawTriR\C{\Angle}%
\DrawTriL\C{\Angle}%
\rtenretu*[\O]{C(2,\CAngle)}%
\DrawTriV\O{2}{\CAngle}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4番内側の 36個 (24個は描画なし)
\def\Angle{-30}%
\Ifor\Cnt{0}{12}\Do{%
\Add\Angle{30}\Angle%
\Add\Angle{15}\CAngle%
\Add\Angle{30}\RotAngle%
\rtenretu*[\O]{C(3,\Angle)}%
\DrawTriR\C{\Angle}%
\DrawTriL\C{\Angle}%
\rtenretu*[\O]{C(2,\Angle)}%
\rtenretu*[\C]{P(1,\RotAngle)}%
\DrawTriC\P{\CAngle}%
\rtenretu*[\O]{C(1,\Angle)}%
\rtenretu*[\C]{P(2,\RotAngle)}%
\DrawTriC\P{\CAngle}%
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{zahyou*}%
\end{document}
▼関連発言
│
└◆141:タイリング^^ [dualignited] 11/17 18:07
├◆142:Re:タイリング^^ [tDB] 11/17 20:54
└◆143:Re:タイリング^^ [田中徹] 11/17 21:09
├◆144:Re[2]:タイリング^^ [kaji] 11/18 01:21
├◆146:Re[2]:タイリング^^ [田中徹] 11/18 13:31
└◆147:Re[2]:タイリング^^ [dualignited] 11/18 14:49<-last