emath BBS

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

No.9572  Re[3]:正三角形の敷きつめ
発言者: 田中徹
発言日: 2010 12/18 15:35
発言元: z96.124-44-6.ppp.wakwak.ne.jp
完全な saloon モードに突入しました。
phazahyou 環境を用いなくても \emmoveline[r](x,y)の極座標で
マクロを作成すれば直角座標との差は吸収できそうです。

展開図が 11種類しかないことは証明できていません。

\documentclass{jarticle}

\usepackage[notMy]{emathP}%
\usepackage{emathPha}
\begin{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\let\ifGrid\iffalse%
%\let\ifGrid\iftrue% <= グリッドを描画するとき行頭の % を削除
%\let\ifBasePoint\iffalse%
\let\ifBasePoint\iftrue%
\let\ifInnerLine\iffalse%
%\let\ifInnerLine\iftrue% <= 内側の折れ線(点線)を描画するとき 〃
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\横{16}%
\def\縦{22}%
\def\単位長{8mm}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\Mul{0.88}{\縦}\HH%
\Mul{1.05}{\横}\WW%
\calcval{sqrt(3)/2}\高%
\begin{zahyou*}[haiti=t,ul=\単位長](-0.1,\WW)(-0.1,\HH)%
\ifGrid%
\thinlines%
\Ifor*\Cnt{0}{\縦}\Do{%
\Mul{\高}{\Cnt}\Y%
\kline<sensyu=\hasen>{(0,\Y)}{0}%
}%
\ISub{0}{\縦}\MIN横%
\IAdd{\横}{\縦}\MAX横%
\Ifor*\X{\MIN横}{\MAX横}\Do{%
\kline<sensyu=\hasen>{(\X,0)}{60}%
\kline<sensyu=\hasen>{(\X,0)}{120}%
}%
\fi%
\begin{phazahyou}[ul=\単位長,ex={r(1,0)},ey={r(1,60)}](0,10)(0,10)%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\DE{\emrlineto(1,0)}%
\def\DNE{\emrlineto(0,1)}%
\def\DSE{\emrlineto(1,-1)}%
\def\DW{\emrlineto(-1,0)}%
\def\DNW{\emrlineto(-1,1)}%
\def\DSW{\emrlineto(0,-1)}%
\def\ME{\emrmoveto(1,0)}%
\def\MNE{\emrmoveto(0,1)}%
\def\MSE{\emrmoveto(1,-1)}%
\def\MW{\emrmoveto(-1,0)}%
\def\MNW{\emrmoveto(-1,1)}%
\def\MSW{\emrmoveto(0,-1)}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% 描画 パーツ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Draw East, West, ...%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Move East, West, ...%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% No.1
\emmoveto(0,3)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DE\DSE\DE\DSE\DSW\DNW\DW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE%
\DSE\DNE%
\MSW%
\DE\DSW%
\MNE%
\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.2
\emmoveto(5,2)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNW\DE\DSE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE%
\DSE\DNE\DW\DNE%
\MSE%
\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.3
\emmoveto(10,2)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DNE\DSE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DSE\DNE\DSE\DNE%
\MSW%
\DE%
\MW\MNW%
\DW%
}%
\fi%
%% No.4
\emmoveto(-2,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DNE\DSE\DE\DE\DSE\DSW\DNW\DW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DW%
\ME%
\DSE\DNE\DSE\DNE%
\MSW%
\DE%
}%
\fi%
%% No.5
\emmoveto(2,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNE\DSE\DE\DE\DSW\DW\DW\DSW\DNW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DE\DNW\DE\DSW%
\MNE%
\DSE\DNE\DSE%
}%
\fi%
%% No.6
\emmoveto(7,8)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DE\DNE\DSE\DSE\DW\DW\DSW\DNW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\ME%
\DW\DNE\DSE\DNE\DSE\DNE\DW%
}%
\fi%
%% No.7
\emmoveto(-4,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DE\DNE\DE\DSW\DSW\DW\DSW\DW\DNE%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MSE%
\DNW\DE\DNW%
\MSE%
\DNE\DSE%
\MNW%
\DE\DNW%
}%
\fi%
%% No.8
\emmoveto(0,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNE\DNW\DE\DSE\DE\DSE\DW\DSW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNE\MNE%
\DSW\DE\DSW\DNW%
\MSE%
\DE\DNE%
\MW%
\DSE%
}%
\fi%
%% No.9
\emmoveto(5,13)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DE\DNE\DSE\DE\DSE\DW\DSW\DNW\DW%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\DNE\DSE\DNE\DW%
\ME%
\DSE%
\MW%
\DE\DNE%
}%
\fi%
%% No.10
\emmoveto(-7,18)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\DNE\DNE\DSE\DE\DE\DSW\DW\DSW\DNW\DW%
}%
\fi%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\ME%
\DNW\DE\DSW\DE\DNW%
\MSE%
\DNE\DSE%
}%
\fi%
%% No.11
\emmoveto(-1,18)%
{\Thicklines%
\ifBasePoint%
\kuromaru\emCurP%
\fi%
\DNW\DNW\DE\DSE\DE\DSE\DW\DSW\DW\DNE%
}%
\ifInnerLine%
{\thicklines%
\def\sensyu{\hasen}%
\MNW\MNE%
\DSW\DE\DSW\DE\DNW%
\ME%
\DSW%
\MW%
\DSE%
}%
\fi%
\end{phazahyou}%
\end{zahyou*}%

\end{document}

▼関連発言

9566:正三角形の敷きつめ [tanak] 12/17 19:35
 ├9567:Re:正三角形の敷きつめ [田中徹] 12/17 23:01
 │└9568:Re[2]:正三角形の敷きつめ [tanak] 12/18 06:19
 │ ├9569:--- [---] 12/18 08:52
 │ ├9570:Re[3]:正三角形の敷きつめ [田中徹] 12/18 11:22
 │ │└9571:Re[4]:正三角形の敷きつめ [石原 守] 12/18 14:54
 │ └9572:Re[3]:正三角形の敷きつめ [田中徹] 12/18 15:35
 │  └9573:Re[4]:正三角形の敷きつめ [tanak] 12/18 21:15
 └9575:Re:正三角形の敷きつめ [tDB] 12/19 16:28
  └9576:azahyou 環境 [tDB] 12/19 16:30
   └9578:Re:azahyou 環境 [st] 12/19 23:51
    ├9582:--- [---] 12/21 12:32
    └9583:--- [---] 12/21 12:47<-last

  返信フォーム [引用]
名 前 保存
題 名
メール省略可
★質問では,問題点を例示する完全なTeXファイル
 (\documentclass から \end{document} まで)
 を示していただくのが解決の早道です。
★エラーが出る場合は,ログファイルから
 エラーメッセージをコピー&ペーストしてください。
★この板では,投稿者が改行を入れない限り
 延々と右に続きます。適宜,改行を入れてください。
発 言
URL 省略可
PASSWORD
書き込む
◆ emath と無関係な話題はご遠慮願います。

Pass 保存


CGIROOM