emath BBS

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

No.3218  自然数の平方の和の図
発言者: 穂積
発言日: 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

Pass 保存


CGIROOM