emath BBS

新規発言 ｜ 一覧 ｜ 最新記事 ｜ 過去一覧 ｜ 検索 ｜ ＨＯＭＥ 
▼スレッド
│
└◇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

9566● 正三角形の敷きつめ[ tanak ] 2010 12/17 19:35 
正三角形を敷きつめたような図をかきたいのですが，何かいい方法がありますでしょうか。

上がとりあえず強引に作ってみたものです。このようなものが作りたいのですが，
さらに交点を結んで多角形を作りたいので，座標の指定ができればとPhazahyou環境を使ってみたものが，下の図です。
今度は全体が平行四辺形になってしまいます。
clipTakakkei環境を使おうと思ったら，pszahyou環境内でしか使えないのでここで手詰まりになりました。
よろしくお願いいたします。

\documentclass{jarticle}
\usepackage{emathP,emathPha}
\begin{document}
  \begin{zahyou*}[ul=5mm](0,20)(0,10)
  \kandk{(1,0)}{60}{(1,0)}{120}\A
  \kandk{(1,0)}{60}{(2,0)}{120}\B
  \kandk{(1,0)}{60}{(3,0)}{120}\C
  \kandk{(1,0)}{60}{(4,0)}{120}\D
  \kandk{(1,0)}{60}{(5,0)}{120}\E
  \kandk{(1,0)}{60}{(6,0)}{120}\F
  \kandk{(1,0)}{60}{(7,0)}{120}\G
  \kandk{(1,0)}{60}{(8,0)}{120}\H
  \kandk{(1,0)}{60}{(9,0)}{120}\I
  \kandk{(1,0)}{60}{(10,0)}{120}\J
  \kandk{(1,0)}{60}{(11,0)}{120}\K
  \kandk{(1,0)}{60}{(12,0)}{120}\L
  \kTyokusen{(0,0)}{60}{}{}
  \kTyokusen{(1,0)}{60}{}{}
  \kTyokusen{(2,0)}{60}{}{}
  \kTyokusen{(3,0)}{60}{}{}
  \kTyokusen{(4,0)}{60}{}{}
  \kTyokusen{(5,0)}{60}{}{}
  \kTyokusen{(6,0)}{60}{}{}
  \kTyokusen{(7,0)}{60}{}{}
  \kTyokusen{(8,0)}{60}{}{}
  \kTyokusen{(9,0)}{60}{}{}
  \kTyokusen{(10,0)}{60}{}{}
  \kTyokusen{(11,0)}{60}{}{}
  \kTyokusen{(12,0)}{60}{}{}
  \kTyokusen{(13,0)}{60}{}{}
  \kTyokusen{(14,0)}{60}{}{}
  \kTyokusen{(15,0)}{60}{}{}
  \kTyokusen{(16,0)}{60}{}{}
  \kTyokusen{(17,0)}{60}{}{}
  \kTyokusen{(18,0)}{60}{}{}
  \kTyokusen{(19,0)}{60}{}{}
  \kTyokusen{(-1,0)}{60}{}{}
  \kTyokusen{(-2,0)}{60}{}{}
  \kTyokusen{(-3,0)}{60}{}{}
  \kTyokusen{(-4,0)}{60}{}{}
  \kTyokusen{(-5,0)}{60}{}{}
  \kTyokusen{(0,0)}{120}{}{}
  \kTyokusen{(1,0)}{120}{}{}
  \kTyokusen{(2,0)}{120}{}{}
  \kTyokusen{(3,0)}{120}{}{}
  \kTyokusen{(4,0)}{120}{}{}
  \kTyokusen{(5,0)}{120}{}{}
  \kTyokusen{(6,0)}{120}{}{}
  \kTyokusen{(7,0)}{120}{}{}
  \kTyokusen{(8,0)}{120}{}{}
  \kTyokusen{(9,0)}{120}{}{}
  \kTyokusen{(10,0)}{120}{}{}
  \kTyokusen{(11,0)}{120}{}{}
  \kTyokusen{(12,0)}{120}{}{}
  \kTyokusen{(13,0)}{120}{}{}
  \kTyokusen{(14,0)}{120}{}{}
  \kTyokusen{(15,0)}{120}{}{}
  \kTyokusen{(16,0)}{120}{}{}
  \kTyokusen{(17,0)}{120}{}{}
  \kTyokusen{(18,0)}{120}{}{}
  \kTyokusen{(19,0)}{120}{}{}
  \kTyokusen{(20,0)}{120}{}{}
  \kTyokusen{(21,0)}{120}{}{}
  \kTyokusen{(22,0)}{120}{}{}
  \kTyokusen{(23,0)}{120}{}{}
  \kTyokusen{(24,0)}{120}{}{}
  \kTyokusen{(25,0)}{120}{}{}
  \kTyokusen\A{0}{}{}
  \kTyokusen\B{0}{}{}
  \kTyokusen\C{0}{}{}
  \kTyokusen\D{0}{}{}
  \kTyokusen\E{0}{}{}
  \kTyokusen\F{0}{}{}
  \kTyokusen\G{0}{}{}
  \kTyokusen\H{0}{}{}
  \kTyokusen\I{0}{}{}
  \kTyokusen\J{0}{}{}
  \kTyokusen\K{0}{}{}
  \kTyokusen\L{0}{}{}
  \end{zahyou*}
  \\
  \begin{phazahyou}[ul=5mm,ey={r(1,60)}](-5,20)(0,10)
   \zahyouMemori[g][n]
   \Ifor\x{1}{25}\Do{
   \Tyokusen{(\x,0)}{(0,\x)}{}{}
   }
  \end{phazahyou}
\end{document}
コメントを書く(引用) | スレッド一覧

9567● Re:正三角形の敷きつめ[ 田中徹 ] 2010 12/17 23:01 
> 正三角形を敷きつめたような図をかきたいのですが，何かいい方法がありますでしょうか。

\kline のクリッピングを利用しました。
変数名がダサいの突っ込みはご容赦ください。

# 期末成績処理の逃避行動に出ています。


\documentclass{jarticle}

\usepackage[notMy]{emathP}%

\begin{document}

\def\横{20}%
\def\縦{8}%
\def\単位長{6mm}

\Mul{0.88}{\縦}\HH%
\Mul{1.05}{\横}\WW%
\calcval{sqrt(3)/2}\高%
\begin{zahyou*}[haiti=t,ul=\単位長](0,\WW)(0,\HH)%
\Ifor*\Cnt{0}{\縦}\Do{%
\Mul{\高}{\Cnt}\Y%
\kline{(0,\Y)}{0}%
}%
\ISub{0}{\縦}\MIN横%
\IAdd{\横}{\縦}\MAX横%
\Ifor*\X{\MIN横}{\MAX横}\Do{%
\kline{(\X,0)}{60}%
\kline{(\X,0)}{120}%
}%
\end{zahyou*}%

\end{document}
コメントを書く(引用) | スレッド一覧

9568● Re[2]:正三角形の敷きつめ[ tanak ] 2010 12/18 06:19 
田中様

お忙しい中を回答ありがとうございます。
質問中に具体的に書けばよかったのですが，この続きとして正八面体の展開図を11種類かきたいのです。
各頂点の指定がしやすい方がありがたいのですが，何かいい方法がありますでしょうか。

下の図に付け加えました。

\documentclass{jarticle}
\usepackage{emathP,emathPha}
\begin{document}
  \begin{zahyou*}[ul=5mm](0,20)(0,10)
  \kandk{(1,0)}{60}{(1,0)}{120}\A
  \kandk{(1,0)}{60}{(2,0)}{120}\B
  \kandk{(1,0)}{60}{(3,0)}{120}\C
  \kandk{(1,0)}{60}{(4,0)}{120}\D
  \kandk{(1,0)}{60}{(5,0)}{120}\E
  \kandk{(1,0)}{60}{(6,0)}{120}\F
  \kandk{(1,0)}{60}{(7,0)}{120}\G
  \kandk{(1,0)}{60}{(8,0)}{120}\H
  \kandk{(1,0)}{60}{(9,0)}{120}\I
  \kandk{(1,0)}{60}{(10,0)}{120}\J
  \kandk{(1,0)}{60}{(11,0)}{120}\K
  \kandk{(1,0)}{60}{(12,0)}{120}\L
  \kTyokusen{(0,0)}{60}{}{}
  \kTyokusen{(1,0)}{60}{}{}
  \kTyokusen{(2,0)}{60}{}{}
  \kTyokusen{(3,0)}{60}{}{}
  \kTyokusen{(4,0)}{60}{}{}
  \kTyokusen{(5,0)}{60}{}{}
  \kTyokusen{(6,0)}{60}{}{}
  \kTyokusen{(7,0)}{60}{}{}
  \kTyokusen{(8,0)}{60}{}{}
  \kTyokusen{(9,0)}{60}{}{}
  \kTyokusen{(10,0)}{60}{}{}
  \kTyokusen{(11,0)}{60}{}{}
  \kTyokusen{(12,0)}{60}{}{}
  \kTyokusen{(13,0)}{60}{}{}
  \kTyokusen{(14,0)}{60}{}{}
  \kTyokusen{(15,0)}{60}{}{}
  \kTyokusen{(16,0)}{60}{}{}
  \kTyokusen{(17,0)}{60}{}{}
  \kTyokusen{(18,0)}{60}{}{}
  \kTyokusen{(19,0)}{60}{}{}
  \kTyokusen{(-1,0)}{60}{}{}
  \kTyokusen{(-2,0)}{60}{}{}
  \kTyokusen{(-3,0)}{60}{}{}
  \kTyokusen{(-4,0)}{60}{}{}
  \kTyokusen{(-5,0)}{60}{}{}
  \kTyokusen{(0,0)}{120}{}{}
  \kTyokusen{(1,0)}{120}{}{}
  \kTyokusen{(2,0)}{120}{}{}
  \kTyokusen{(3,0)}{120}{}{}
  \kTyokusen{(4,0)}{120}{}{}
  \kTyokusen{(5,0)}{120}{}{}
  \kTyokusen{(6,0)}{120}{}{}
  \kTyokusen{(7,0)}{120}{}{}
  \kTyokusen{(8,0)}{120}{}{}
  \kTyokusen{(9,0)}{120}{}{}
  \kTyokusen{(10,0)}{120}{}{}
  \kTyokusen{(11,0)}{120}{}{}
  \kTyokusen{(12,0)}{120}{}{}
  \kTyokusen{(13,0)}{120}{}{}
  \kTyokusen{(14,0)}{120}{}{}
  \kTyokusen{(15,0)}{120}{}{}
  \kTyokusen{(16,0)}{120}{}{}
  \kTyokusen{(17,0)}{120}{}{}
  \kTyokusen{(18,0)}{120}{}{}
  \kTyokusen{(19,0)}{120}{}{}
  \kTyokusen{(20,0)}{120}{}{}
  \kTyokusen{(21,0)}{120}{}{}
  \kTyokusen{(22,0)}{120}{}{}
  \kTyokusen{(23,0)}{120}{}{}
  \kTyokusen{(24,0)}{120}{}{}
  \kTyokusen{(25,0)}{120}{}{}
  \kTyokusen\A{0}{}{}
  \kTyokusen\B{0}{}{}
  \kTyokusen\C{0}{}{}
  \kTyokusen\D{0}{}{}
  \kTyokusen\E{0}{}{}
  \kTyokusen\F{0}{}{}
  \kTyokusen\G{0}{}{}
  \kTyokusen\H{0}{}{}
  \kTyokusen\I{0}{}{}
  \kTyokusen\J{0}{}{}
  \kTyokusen\K{0}{}{}
  \kTyokusen\L{0}{}{}
  \end{zahyou*}
  \\
  \begin{phazahyou}[ul=5mm,ey={r(1,60)}](-5,20)(0,10)
   \zahyouMemori[g][n]
   \Ifor\x{1}{25}\Do{
   \Tyokusen{(\x,0)}{(0,\x)}{}{}
   }
   {\thicklines
   \Drawlines{(0,3)(0,2)(0,1)(1,1)(2,1)(3,0)(3,1)(3,2)(2,2)(1,2)(0,3)(0,2)}
   \Hasens{(1,2)(0,2)(1,1)(1,2)(2,1)(3,1)(2,2)(2,1)}
   }
  \end{phazahyou}
\end{document}
\documentclass{jarticle}
\usepackage{emathP,emathPha}
\begin{document}
  \begin{zahyou*}[ul=5mm](0,20)(0,10)
  \kandk{(1,0)}{60}{(1,0)}{120}\A
  \kandk{(1,0)}{60}{(2,0)}{120}\B
  \kandk{(1,0)}{60}{(3,0)}{120}\C
  \kandk{(1,0)}{60}{(4,0)}{120}\D
  \kandk{(1,0)}{60}{(5,0)}{120}\E
  \kandk{(1,0)}{60}{(6,0)}{120}\F
  \kandk{(1,0)}{60}{(7,0)}{120}\G
  \kandk{(1,0)}{60}{(8,0)}{120}\H
  \kandk{(1,0)}{60}{(9,0)}{120}\I
  \kandk{(1,0)}{60}{(10,0)}{120}\J
  \kandk{(1,0)}{60}{(11,0)}{120}\K
  \kandk{(1,0)}{60}{(12,0)}{120}\L
  \kTyokusen{(0,0)}{60}{}{}
  \kTyokusen{(1,0)}{60}{}{}
  \kTyokusen{(2,0)}{60}{}{}
  \kTyokusen{(3,0)}{60}{}{}
  \kTyokusen{(4,0)}{60}{}{}
  \kTyokusen{(5,0)}{60}{}{}
  \kTyokusen{(6,0)}{60}{}{}
  \kTyokusen{(7,0)}{60}{}{}
  \kTyokusen{(8,0)}{60}{}{}
  \kTyokusen{(9,0)}{60}{}{}
  \kTyokusen{(10,0)}{60}{}{}
  \kTyokusen{(11,0)}{60}{}{}
  \kTyokusen{(12,0)}{60}{}{}
  \kTyokusen{(13,0)}{60}{}{}
  \kTyokusen{(14,0)}{60}{}{}
  \kTyokusen{(15,0)}{60}{}{}
  \kTyokusen{(16,0)}{60}{}{}
  \kTyokusen{(17,0)}{60}{}{}
  \kTyokusen{(18,0)}{60}{}{}
  \kTyokusen{(19,0)}{60}{}{}
  \kTyokusen{(-1,0)}{60}{}{}
  \kTyokusen{(-2,0)}{60}{}{}
  \kTyokusen{(-3,0)}{60}{}{}
  \kTyokusen{(-4,0)}{60}{}{}
  \kTyokusen{(-5,0)}{60}{}{}
  \kTyokusen{(0,0)}{120}{}{}
  \kTyokusen{(1,0)}{120}{}{}
  \kTyokusen{(2,0)}{120}{}{}
  \kTyokusen{(3,0)}{120}{}{}
  \kTyokusen{(4,0)}{120}{}{}
  \kTyokusen{(5,0)}{120}{}{}
  \kTyokusen{(6,0)}{120}{}{}
  \kTyokusen{(7,0)}{120}{}{}
  \kTyokusen{(8,0)}{120}{}{}
  \kTyokusen{(9,0)}{120}{}{}
  \kTyokusen{(10,0)}{120}{}{}
  \kTyokusen{(11,0)}{120}{}{}
  \kTyokusen{(12,0)}{120}{}{}
  \kTyokusen{(13,0)}{120}{}{}
  \kTyokusen{(14,0)}{120}{}{}
  \kTyokusen{(15,0)}{120}{}{}
  \kTyokusen{(16,0)}{120}{}{}
  \kTyokusen{(17,0)}{120}{}{}
  \kTyokusen{(18,0)}{120}{}{}
  \kTyokusen{(19,0)}{120}{}{}
  \kTyokusen{(20,0)}{120}{}{}
  \kTyokusen{(21,0)}{120}{}{}
  \kTyokusen{(22,0)}{120}{}{}
  \kTyokusen{(23,0)}{120}{}{}
  \kTyokusen{(24,0)}{120}{}{}
  \kTyokusen{(25,0)}{120}{}{}
  \kTyokusen\A{0}{}{}
  \kTyokusen\B{0}{}{}
  \kTyokusen\C{0}{}{}
  \kTyokusen\D{0}{}{}
  \kTyokusen\E{0}{}{}
  \kTyokusen\F{0}{}{}
  \kTyokusen\G{0}{}{}
  \kTyokusen\H{0}{}{}
  \kTyokusen\I{0}{}{}
  \kTyokusen\J{0}{}{}
  \kTyokusen\K{0}{}{}
  \kTyokusen\L{0}{}{}
  \end{zahyou*}
  \\
  \begin{phazahyou}[ul=5mm,ey={r(1,60)}](-5,20)(0,10)
   \zahyouMemori[g][n]
   \Ifor\x{1}{25}\Do{
   \Tyokusen{(\x,0)}{(0,\x)}{}{}
   }
   {\thicklines
   \Drawlines{(0,3)(0,2)(0,1)(1,1)(2,1)(3,0)(3,1)(3,2)(2,2)(1,2)(0,3)(0,2)}
   \Hasens{(1,2)(0,2)(1,1)(1,2)(2,1)(3,1)(2,2)(2,1)}
   }
  \end{phazahyou}
\end{document}
コメントを書く(引用) | スレッド一覧

9569● ---[ --- ] 2010 12/18 08:52 
この記事は何らかの理由で削除されました
コメントを書く(引用) | スレッド一覧

9570● Re[3]:正三角形の敷きつめ[ 田中徹 ] 2010 12/18 11:22 
> この続きとして正八面体の展開図を11種類かきたいのです。
> 各頂点の指定がしやすい方がありがたいのですが，何かいい方法がありますでしょうか。
相対座標での描画です。

\documentclass{jarticle}

\usepackage[notMy]{emathP}%
\usepackage{emathPha}
\begin{document}

\def\横{20}%
\def\縦{8}%
\def\単位長{6mm}

\Mul{0.88}{\縦}\HH%
\Mul{1.05}{\横}\WW%
\calcval{sqrt(3)/2}\高%
\begin{zahyou*}[haiti=t,ul=\単位長](-0.1,\WW)(-0.1,\HH)%
\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}%
}%
\begin{phazahyou}[ul=\単位長,ex={r(1,0)},ey={r(1,60)}](0,10)(0,10)%
\kuromaru{(0,0)}%
\emrmoveto(1,1)%
\siromaru\emCurP%
{\Thicklines%
\emrlineto(0,2)%
\emrlineto(1,-1)%
\emrlineto(2,0)%
\emrlineto(0,-2)%
\emrlineto(-1,1)%
\emrlineto(-2,0)%
\emrmoveto(1,1)%
{\thicklines%
\def\sensyu{\hasen}%
\emrlineto(-1,0)%
\emrlineto(1,-1)%
\emrlineto(0,1)%
\emrlineto(1,-1)%
\emrlineto(0,1)%
\emrlineto(1,-1)%
\emrlineto(-1,0)%
}%
}%
\end{phazahyou}%
\end{zahyou*}%

\end{document}
コメントを書く(引用) | スレッド一覧

9571● Re[4]:正三角形の敷きつめ[ 石原　守 ] 2010 12/18 14:54 
\oresen （相対移動[s]）を使ってみました。見づらくなってしまいましたね。

\documentclass{jarticle}

\usepackage[notMy]{emathP}%
\usepackage{emathPha}
\begin{document}

\def\横{20}%
\def\縦{8}%
\def\単位長{6mm}

\Mul{0.88}{\縦}\HH%
\Mul{1.05}{\横}\WW%
\calcval{sqrt(3)/2}\高%
\begin{zahyou*}[haiti=t,ul=\単位長](-0.1,\WW)(-0.1,\HH)%
\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}%
}%
\begin{phazahyou}[ul=\単位長,ex={r(1,0)},ey={r(1,60)}](0,10)(0,10)%
\kuromaru{(0,0)}%
\emrmoveto(1,1)%
\siromaru\emCurP%
{\Thicklines%
\oresen{%
[]S(1,1);[]A[s](0,2);[]B[s](1,-1);[]C[s](2,0);[]D[s](0,-2);[]E[s](-1,1);[]F[s](-2,0)
}%
{\thicklines%
\oresen<sensyu=\hasen>{%
[]G[s](1,1);[]H[s](-1,0);[]I[s](1,-1);[]J[s](0,1);[]K[s](1,-1);[]L[s](0,1);[]M[s](1,-1);[]N[s](-1,0)
}%
}%
}%
\end{phazahyou}%
\end{zahyou*}%

\end{document}
コメントを書く(引用) | スレッド一覧

9572● Re[3]:正三角形の敷きつめ[ 田中徹 ] 2010 12/18 15:35 
完全な 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}
コメントを書く(引用) | スレッド一覧

9573● Re[4]:正三角形の敷きつめ[ tanak ] 2010 12/18 21:15 
田中様・石原様，回答ありがとうございます。

9570の田中様の投稿で私のやりたいことは解決いたしました。
自分の理解度を超えているところがあり，よくわかっていないのですが，とりあえず満足のいく出力が得られました。

お世話になりました。
コメントを書く(引用) | スレッド一覧

9575● Re:正三角形の敷きつめ[ tDB ] 2010 12/19 16:28 
格子を描画するコマンド \kousi は，縦・横のセル数を指定した有限のサイズです。
そこで，領域いっぱいに拡がる格子を描画するコマンド \kousifill を
　　emathPh.sty v 4.00 (in 101219sty.zip)
に追加しました（例：kousifill01.tex）。

斜め格子を描画するには
　　ex=..., ey=...
オプションを用います（例：kousi02.tex）。

正三角形網を描画するには，２つの格子を重ねます
（例：kousi03.tex）。

%--- kousifill01.tex ---------------------------
\documentclass{jarticle}
\usepackage{emathPh}

\begin{document}
\begin{zahyou*}[ul=6mm](-.5,5.5)(-.5,4.5)
  \kousifill
\end{zahyou*}
\end{document}

%--- kousifill02.tex ---------------------------
\documentclass{jarticle}
\usepackage{emathPh}

\begin{document}
\begin{zahyou*}[ul=6mm](-.5,5.5)(-.5,4.5)
  \kousifill<ey={r(1,60)}>
\end{zahyou*}
\end{document}

%--- kousifill03.tex ---------------------------
\documentclass{jarticle}
\usepackage{emathPh}

\begin{document}
\begin{zahyou*}[ul=6mm](-.5,5.5)(-.5,4.5)
  \kousifill<ey={r(1,60)}>
  \kousifill<ey={r(1,120)}>
\end{zahyou*}
\end{document}
コメントを書く(引用) | スレッド一覧

9576● azahyou 環境[ tDB ] 2010 12/19 16:30 
斜交座標系 phazahyou環境，psazahyou環境は
　　zahyou, pszahyou環境内で
使用することは想定していません。
（phszahyou, pszahyou は独立した座標系です。）
（pszahyou環境内ではエラーとなります。）

zahyou, pszahyou環境内で局部的に斜交座標系を設定するには
　　azahyou環境（in emathPa.sty）
を用意しています。
（azahyou環境については，丸ごとパック内のドキュメント
　　doc/emathPa/
　をご参照ください。）

下の，
　　azahyou-tpic.tex
と
　　azahyou-ps.tex
は，ほとんど同文です（zahyou環境 --> pszahyou環境の変更のみ）。
　　前者は tpic-specials による描画
　　後者は PostScript による描画
となります。
線を太くすると tpic-specials では，頂点のところに楔形の欠けができます。
PostScript がお勧めです。

% --- azahyou-tpic.tex --------------------------------
\documentclass{jarticle}
\usepackage{emathPa}
\begin{document}
  \begin{zahyou*}[ul=10mm](0,10)(-1,5)
    \rtenretu*{E(1,0);F(1,60);FF(1,120)}% 局所斜交座標系の単位ベクトル
    {%
      \kousifill<ex=\E,ey=\F,linethickness=.1pt>\relax
      \kousifill<ex=\E,ey=\FF,linethickness=.1pt>\relax
    }%
    \Put\O{%
      \begin{azahyou}\E\F%% 局所座標系
        \linethickness{1.2pt}%
        \azDrawline{%
          (0,3)(0,2)(0,1)(1,1)(2,1)(3,0)(3,1)(3,2)(2,2)(1,2)(0,3)(0,2)}%
        \azHasen{%
          (1,2)(0,2)(1,1)(1,2)(2,1)(3,1)(2,2)(2,1)}%
      \end{azahyou}%
    }%
  \end{zahyou*}
\end{document}

% --- azahyou-ps.tex ----------------------------------
\documentclass{jarticle}
\usepackage{graphicx}
\usepackage{emathPs}
\usepackage{emathPa}
\begin{document}
  \begin{pszahyou*}[ul=10mm](0,10)(-1,5)
    \rtenretu*{E(1,0);F(1,60);FF(1,120)}% 局所斜交座標系の単位ベクトル
    {%
      \kousifill<ex=\E,ey=\F,linethickness=.1pt>\relax
      \kousifill<ex=\E,ey=\FF,linethickness=.1pt>\relax
    }%
    \Put\O{%
      \begin{azahyou}\E\F%% 局所座標系
        \linethickness{1.2pt}%
        \azDrawline{%
          (0,3)(0,2)(0,1)(1,1)(2,1)(3,0)(3,1)(3,2)(2,2)(1,2)(0,3)(0,2)}%
        \azHasen{%
          (1,2)(0,2)(1,1)(1,2)(2,1)(3,1)(2,2)(2,1)}%
      \end{azahyou}%
    }%
  \end{pszahyou*}
\end{document}
コメントを書く(引用) | スレッド一覧

9578● Re:azahyou 環境[ st ] 2010 12/19 23:51 
私はまだよく理解していないのですが、このような正3角形敷き詰めが可能になると、
例えば以下のような入試問題が打ち込み可能になりますね。

・東大1997年(前期)4番
・(同じく)東大1997年(後期)1番

# 出典を打ち込みする時間(と技術?)は今の私にはなく、すみません。
コメントを書く(引用) | スレッド一覧

9582● ---[ --- ] 2010 12/21 12:32 
この記事は何らかの理由で削除されました
コメントを書く(引用) | スレッド一覧

9583● ---[ --- ] 2010 12/21 12:47 
この記事は何らかの理由で削除されました
コメントを書く(引用) | スレッド一覧

CGIROOM