emath BBS

新規発言 ｜ 一覧 ｜ 最新記事 ｜ 過去一覧 ｜ 検索 ｜ ＨＯＭＥ
No.8438　 交わる図形の交わったところをかかない
発言者： tanak
発言日： 2009 11/18 20:52
発言元： 3d048c-216.dynamic.tiki.ne.jp 
下のような図をかくにはどうすればいいでしょうか。
とりあえず無理やりかいてはみたのですが，もう少しエレガントなかきかたがあれば教えて下さい。

batonとかが使えるのかなあと思ったのですが，よくわかりませんでした。

\documentclass[b4j,10pt]{jarticle}
\usepackage{emathP}
\begin{document}
  \begin{zahyou*}[ul=1mm](0,48)(0,48)
   \tenretu*{A(0,3);B[s](3,0);C[s](0,-3)}
   \Drawlines{\A\B\C}
   \tenretu*{A(0,45);B[s](3,0);C[s](0,3)}
   \Drawlines{\A\B\C}
   \tenretu*{A(45,48);B[s](0,-3);C[s](3,0)}
   \Drawlines{\A\B\C}
   \tenretu*{A(45,0);B[s](0,3);C[s](3,0)}
   \Drawlines{\A\B\C}
   \Ifor* \x{5}{35}[10] \Do{
   \tenretu*{A(\x,0);B[s](0,3);C[s](8,0);D[s](0,-3)}
   \Drawlines{\A\B\C\D}
   }
   \Ifor* \x{5}{35}[10]\Do{
   \tenretu*{A(0,\x);B[s](3,0);C[s](0,8);D[s](-3,0)}
   \Drawlines{\A\B\C\D}
   }
   \Ifor* \x{5}{35}[10]\Do{
   \tenretu*{A(\x,48);B[s](0,-3);C[s](8,0);D[s](0,3)}
   \Drawlines{\A\B\C\D}
   }
   \Ifor* \x{5}{35}[10]\Do{
   \tenretu*{A(48,\x);B[s](-3,0);C[s](0,8);D[s](3,0)}
   \Drawlines{\A\B\C\D}
   }
   \tenretu*{A(5,5);B[s](8,0);C[s](0,8);D[s](-8,0)}
   \tenretu*{A(6.3,5);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,5);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(6.3,15);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,15);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,25);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,35);B[s](6.7,0);C[s](0,6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(5,6.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(5,16.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(15,6.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(15,36.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(25,26.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(35,16.3);B[s](0,6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(5,41.7);B[s](0,-6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(6.3,43);B[s](6.7,0);C[s](0,-6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(35,11.7);B[s](0,-6.7);C[s](6.7,0)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,13);B[s](6.7,0);C[s](0,-6.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(6.3,25);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(6.3,33);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(5,26.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(13,26.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,15);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,23);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(15,16.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(23,16.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,25);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(16.3,33);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(15,26.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(23,26.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,5);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,13);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(25,6.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(33,6.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,15);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,23);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(25,16.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(33,16.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,35);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(26.3,43);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(25,36.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(33,36.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,25);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,33);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(35,26.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(43,26.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,35);B[s](5.4,0);C[s](-2.7,2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(36.3,43);B[s](5.4,0);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(35,36.3);B[s](0,5.4);C[s](2.7,-2.7)}
   \Takakkei{\A\B\C}
   \tenretu*{A(43,36.3);B[s](0,5.4);C[s](-2.7,-2.7)}
   \Takakkei{\A\B\C}
  \end{zahyou*}
\end{document}

▼関連発言
│
└◆8438:交わる図形の交わったところをかかない [tanak] 11/18 20:52
　├◆8440:--- [---] 11/19 00:11
　└◆8441:Re:交わる図形の交わったところをかかない [田中徹] 11/19 00:15
　　└◆8442:Re[2]:交わる図形の交わったところをかかない [tanak] 11/19 05:35
　　　└◆8443:Re[3]:交わる図形の交わったところをかかない [石原　守] 11/19 07:48
　　　　├◆8444:Re[4]:交わる図形の交わったところをかかない [tanak] 11/19 13:35
　　　　└◆8447:Re[4]:交わる図形の交わったところをかかない [田中徹] 11/19 22:27<-last

Pass 保存

CGIROOM