発言者: 穂積
発言日: 2005 06/10 22:14
発言元: 203-165-205-131.rev.home.ne.jp
こんばんはtDB様皆様。
自然数の平方の和を求める図を作成したのですが、山の間隔が均等
になりません。また+も中央に表示されません。何度見直しても間
違いが見つからず困っております。どなたかご助言いただければ幸
いです。また、もっと効率のいい方法があればお教え下さい。
以下ソースです。宜しくお願い致します。
\documentclass{jarticle}
\usepackage{emathPp}
\begin{document}
\begin{zahyou*}[ul=5mm](0,30)(0,10)
\small
\def\dansuu{3}
\def\kankaku{3}
\calcval[d]{2*\dansuu +1}\teisuu
\calcval[d]{\dansuu +1}\t
\calcval{.5*\dansuu}\yii
\calcval{\dansuu -.5}\Pi
\calcval{\dansuu +\kankaku -.5}\Pii
\calcval{2*\dansuu +\kankaku -1.5}\Piii
\calcval{2*(\dansuu +\kankaku )-1.5}\Piv
\calcval{3*\dansuu +2*\kankaku -2.5}\Pv
\calcval{3*(\dansuu +\kankaku ) -2.5}\Pvi
\calcval{4*\dansuu +3*\kankaku -3.5}\Pvii
\calcval{4*\dansuu +3*\kankaku -2.5}\Pviii
\calcval{(\Pvi +\Pvii )/2}\Mx
\calcval{(\Pi +\Pii )/2}\Tix
\calcval{(\Piii +\Piv )/2}\Tiix
\calcval{\Pv +\kankaku /2}\Tiiix
\calcval{(2+(\dansuu -1)*sqrt(3))/4}\Tiy
\calcval{(1+(\dansuu -1)*sqrt(3))/2}\Y
{\LARGE
\Put{(\Tix ,\Tiy)}(0pt,0pt)[c]{$+$}
\Put{(\Tiix ,\Tiy)}(0pt,0pt)[c]{$+$}
\Put{(\Tiiix ,\Tiy)}(0pt,0pt)[c]{$=$}
}
%1が上
\Ifor{\y}{1}{\t}
\Do{
\calcval[d]{\y +1}\yi
\calcval{\dansuu -\y}\yiii
\Ifor{\x}{1}{\yi}%
\Do{
\calcval{sqrt(3)/2*\yiii +.5}\Xy
\calcval{\yii -.5*\y +\x -1}\Xx
\def\Po{(\Xx ,\Xy)}
\En\Po{.5}
\Put\Po(0pt ,0pt)[c]{\y}
}
}
%1が左
\Ifor{\y}{1}{\t}
\Do{
\calcval[d]{\y +1}\yi
\calcval{\dansuu -\y}\yiii
\Ifor{\x}{1}{\yi}%
\Do{
\calcval{\Pii +(\y -1) -.5*(\x -1)}\Xx
\calcval{sqrt(3)/2*(\x -1)+.5}\Xy
\def\Po{(\Xx ,\Xy )}
\En\Po{.5}
\Put\Po (0pt,0pt)[c]{\y}
}
}
%1が右
\Ifor{\y}{1}{\t}
\Do{
\calcval[d]{\y +1}\yi
\calcval{\dansuu -\y}\yiii
\Ifor{\x}{1}{\yi}%
\Do{
\calcval{\Pv -(\y -1) +.5*(\x -1)}\Xx
\calcval{sqrt(3)/2*(\x -1)+.5}\Xy
\def\Po{(\Xx ,\Xy )}
\En\Po{.5}
\Put\Po (0pt,0pt)[c]{\y}
}
}
%右辺
\calcval{\Mx -.3}\Alx
\calcval{\Mx +.3}\Arx
\calcval{\Y -.3*sqrt(3)}\Ay
\calcval{\Pvi +.6}\Brx
\calcval{\Pvi +.3}\Btx
\calcval{.3*sqrt(3)+.5}\Bty
\calcval{\Pvii -.6}\Clx
\calcval{\Pvii -.3}\Ctx
\def\Al{(\Alx ,\Ay )}
\def\Ar{(\Arx ,\Ay )}
\def\Bt{(\Btx ,\Bty )}
\def\Br{(\Brx ,.5)}
\def\Cl{(\Clx ,.5)}
\def\Ct{(\Ctx ,\Bty )}
\def\A{(\Mx ,\Y )}
\def\B{(\Pvi ,.5)}
\def\C{(\Pvii ,.5)}
\Dottedline{.2}{\Al\Bt}
\Dottedline{.2}{\Br\Cl}
\Dottedline{.2}{\Ct\Ar}
\En\A{.5}
\En\B{.5}
\En\C{.5}
\Put\A (0pt,0pt)[c]{\teisuu}
\Put\B (0pt,0pt)[c]{\teisuu}
\Put\C (0pt,0pt)[c]{\teisuu}
\Ifor{\x}{1}{\t}%
\Do{
\calcval[d]{\t -\x}\X
\calcval{\x+26.5}\Xx
\calcval{sqrt(3)/2*(\x-1)+.5}\Xy
\calcval{\Pviii +3.5}\Pix
\def\Ki{(\Pviii ,\Xy)}
\def\Kii{(\Pix ,\Xy)}
%\tiny
\Put\Ki(0pt,0pt)[l]{$\cdots$}
\Put\Kii(0pt,0pt)[r]{\X 個}
}
\end{zahyou*}
\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