emath BBS

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

No.3220  Re:自然数の平方の和の図
発言者: 飯島 徹
発言日: 2005 06/11 01:12
発言元: yahoobb221029028014.bbtec.net
穂積さん,zyam56 さん,みなさん,こん○○は(^^♪飯島です.

私も zyam56 さんと同様にあまり気になりませんよ.
ただ,私なら次のようにします.
山3つを別々の zahyou 環境でつくり
haiti=c や migiyohaku,hidariyohaku で
適当にごまかします(^^ゞ

\documentclass{jarticle}
\usepackage{emathPp,emathPa}

\begin{document}
\makeatletter
\def\Heihouwa{\@ifnextchar[{\@Heihouwa}{\@Heihouwa[5mm]}}%
\def\Heihouwa[#1]#2#3{%
 {%
  \def\UL{#1}%
  \def\sqiii{1.7320508}%
  \def\dansuu{#3}%
  \if#2t\relax
   \calcval{(\dansuu-1)*(-1)}\Xm
   \calcval{\dansuu-1}\XM
   \calcval{(\dansuu-1)*\sqiii*(-1)}\Ym
   \def\YM{0}%
   \edef\Vi{(-1,-\sqiii)}%
   \edef\Vii{(1,-\sqiii)}%
  \else
   \if#2l\relax
    \def\Xm{0}%
    \calcval{(\dansuu-1)*2}\XM
    \def\Ym{0}%
    \calcval{(\dansuu-1)*\sqiii}\YM
    \def\Vi{(2,0)}%
    \def\Vii{(1,\sqiii)}
   \else
    \if#2r\relax
     \def\XM{0}%
     \calcval{(\dansuu-1)*(-2)}\Xm
     \def\Ym{0}%
     \calcval{(\dansuu-1)*\sqiii}\YM
     \def\Vi{(-2,0)}%
     \def\Vii{(-1,1.7320508)}
    \fi
   \fi
  \fi
  \begin{zahyou*}%
   [ul=\UL,migiyohaku=1,hidariyohaku=1,haiti=c]%
   (\Xm,\XM)(\Ym,\YM)%
   \small
   \begin{azahyou}[(0,0)]\Vi\Vii
    \IAdd\dansuu1\ne
    \Ifor\n1\ne\Do{%
     \Ifor\m\n0[-1]\Do{%
     \ISub\m1\x
     \ISub\n\x\y
     \ISub\y1\y
     \azPut{(\x,\y)}[r](0pt,0){\n}%
     \azPut{(\x,\y)}[r](0pt,0){\En\O1}%
     }%
    }%
   \end{azahyou}
  \end{zahyou*}
 }%
}%
\makeatother
\[
 \Heihouwa[3mm]{t}{5}%
 +\Heihouwa[3mm]{l}{5}%
 +\Heihouwa[3mm]{r}{5}%
\]
\end{document}

▼関連発言

3218:自然数の平方の和の図 [穂積] 06/10 22:14
 ├3219:Re:自然数の平方の和の図 [zyam56] 06/11 01:04
 │└3222:Re[2]:自然数の平方の和の図 [穂積] 06/11 05:20<-last
 └3220:Re:自然数の平方の和の図 [飯島 徹] 06/11 01:12
  └3221:Re[2]:自然数の平方の和の図 [飯島 徹] 06/11 01:54

Pass 保存


CGIROOM