これから夏休みになるので，emathに興味があるけど今まで時間がなく
取り組めなかった人もいると思うのでこんなこともできる例をのせます。
この休みで利用する人が増えるといいなと思います。
あとこの頃BBS saloonともに書き込みが少ないので賑やかしをかねて，ということで。
最新の状態でタイプセットできるはずです。細かい点で不満もあるでしょうが
答案返却の合間に書いたものです。

\documentclass{jarticle}
\usepackage{emathP}

\def\GOKAKUSUU#1{%
\def\val{#1}
\calcval{\val*2-1.7}\Val
\begin{zahyou*}[ul=1zw,haiti=b,sitayohaku=0mm](-\val,\val)(-\Val,1)
\KuromaruHankei{4pt}
\Ifor\i{0}{\val}\Do{%
\IMul\i{2}\ii
\Tyuuten\O{(0,-\ii)}\P
\EnkoToubun<kuromaru>\P\i{90}{+}{5}{A,B,C,D,E}
\HenToubun<kuromaru>\B\C\i{Q}
\HenToubun<kuromaru>\C\D\i{Q}
\HenToubun<kuromaru>\D\E\i{Q}
\calcval[d]{\val*(3*\val-1)/2}\KO
\HenKo[0]\LB\RB{\KO}
}
\end{zahyou*}
}

\def\ROKKAKUSUU#1{%
\def\val{#1}
\calcval{\val*2-1.5}\Val
\begin{zahyou*}[ul=1zw,haiti=b,sitayohaku=0mm](-\val,\val)(-\Val,1)
\KuromaruHankei{4pt}
%\ISub\val{1}\val
\Ifor\i{0}{\val}\Do{%
\IMul\i{2}\ii
\Tyuuten\O{(0,-\ii)}\P
\EnkoToubun<kuromaru>\P\i{90}{+}{6}{A,B,C,D,E,F}
\HenToubun<kuromaru>\B\C\i{Q}
\HenToubun<kuromaru>\C\D\i{Q}
\HenToubun<kuromaru>\D\E\i{Q}
\HenToubun<kuromaru>\E\F\i{Q}
\calcval[d]{\val*(2*\val-1)}\KO
\HenKo[0]\LB\RB{\KO}
}
\end{zahyou*}
}

\def\SHICHIKAKUSUU#1{%
\def\val{#1}
\calcval{\val*2-1.7}\Val
\begin{zahyou*}[ul=1zw,haiti=b,sitayohaku=0mm](-\val,\val)(-\Val,1)
\KuromaruHankei{3.5pt}
%\ISub\val{1}\val
\Ifor\i{0}{\val}\Do{%
\IMul\i{2}\ii
\Tyuuten\O{(0,-\ii)}\P
\EnkoToubun<kuromaru>\P\i{90}{+}{7}{A,B,C,D,E,F,G}
\HenToubun<kuromaru>\B\C\i{Q}
\HenToubun<kuromaru>\C\D\i{Q}
\HenToubun<kuromaru>\D\E\i{Q}
\HenToubun<kuromaru>\E\F\i{Q}
\HenToubun<kuromaru>\F\G\i{Q}
\calcval[d]{\val*(5*\val-3)/2}\KO
\HenKo[0]\LB\RB{\KO}
}
\end{zahyou*}
}

\def\SHIKAKUSUUPP#1{%
\ISub#1{1}\VV
\begin{zahyou*}[ul=1zw,haiti=b,yohaku=.5zw](-\VV,\VV)(-\VV,\VV)
\KuromaruHankei{.4zw}
\Ifor\i{0}#1\Do{%
\calcval{\i*sqrt(2)}\r
\EnkoToubun<kuromaru>\O\r{45}{+}{4}{A,B,C,D}
\ISub\i1\ii
\HenToubun<kuromaru>\A\B\i{P}
\HenToubun<kuromaru>\B\C\i{P}
\HenToubun<kuromaru>\C\D\i{P}
\HenToubun<kuromaru>\D\A\i{P}
}
\teisuuretu{k=4;n=#1}
\calcval[d]{\k*\n*(\n-1)/2+1}\KO
\Put\YMIN(0pt,-10pt)[t]{\KO}
\end{zahyou*}}

\def\SANKAKUSUUPP#1{%
\ISub#1{1}\VV
\calcval{\VV/sqrt(3)*2*1.2}\XX
\calcval{\VV*sqrt(3)}\yY
\calcval{-\VV*sqrt(3)/2}\yy
\begin{zahyou*}[ul=.8zw,haiti=b,yohaku=1zw](-\XX,\XX)(\yy,\yY)
\KuromaruHankei{.4zw}
\Ifor\i{0}#1\Do{%
\calcval{\i*sqrt(3)}\r
\EnkoToubun<kuromaru>\O\r{90}{+}{3}{A,B,C}
\ISub\i1\ii
\HenToubun<kuromaru>\A\B\i{P}
\HenToubun<kuromaru>\B\C\i{P}
\HenToubun<kuromaru>\C\A\i{P}
}
\teisuuretu{k=3;n=#1}
\calcval[d]{\k*\n*(\n-1)/2+1}\KO
\Put\YMIN(0pt,-10pt)[t]{\KO}
\end{zahyou*}}


\begin{document}

五角数

\GOKAKUSUU{1}
\GOKAKUSUU{2}
\GOKAKUSUU{3}
\GOKAKUSUU{4}
\GOKAKUSUU{5}
\vfill
六角数

\ROKKAKUSUU{1}
\ROKKAKUSUU{2}
\ROKKAKUSUU{3}
\ROKKAKUSUU{4}
\ROKKAKUSUU{5}
\vfill

七角数

\SHICHIKAKUSUU{1}
\SHICHIKAKUSUU{2}
\SHICHIKAKUSUU{3}
\SHICHIKAKUSUU{4}
\SHICHIKAKUSUU{5}
\vfill

中心付き三角数

\SANKAKUSUUPP{1}\quad
\SANKAKUSUUPP{2}\quad
\SANKAKUSUUPP{3}\quad
\SANKAKUSUUPP{4}\quad
\SANKAKUSUUPP{5}
\vfill

中心付き四角数

\SHIKAKUSUUPP{1}\quad
\SHIKAKUSUUPP{2}\quad
\SHIKAKUSUUPP{3}\quad
\SHIKAKUSUUPP{4}\quad
\SHIKAKUSUUPP{5}



\end{document}

▼関連発言
│
└◆1450:五角数など [石原　守] 07/18 20:03
　├◆1451:--- [---] 07/19 17:20
　└◆1453:Re:五角数など [田中徹] 07/19 17:36<-last