emath saloon (Read Only)

新規発言一覧最新記事過去一覧検索HOME

No.143  Re:タイリング^^
発言者: 田中徹
発言日: 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

Pass 保存


CGIROOM