力尽くで気が差しますが．．．．．

% -------------------------------
\documentclass[a4j]{jarticle}
\usepackage{emathPp}

\checkPerl

\begin{document}
\def\aval{5}
\def\bval{3}
\begin{zahyou*}[ul=10mm](-\aval,\aval)(-1,\aval)
  \Sub\aval\bval\cval
  \Ifor\i{1}{11}\Do{%
    \calcval{\aval*\bval*\cval/(\aval*\bval+(\i*\cval)**2)}\ri
    \calcval{(\aval+\bval)*\ri/\cval-\aval}\xi
    \calcval{\ri*2*\i}\yi
    \En{(\xi,\yi)}\ri
  }%
  \Enko\O\aval{0}{180}
  \Enko{(-\cval,0)}\bval{0}{180}
  \Enko{(\bval,0)}{\cval}{0}{180}
  \Drawline{\XMAX\XMIN}
\end{zahyou*}

\def\aval{6}
\def\bval{5}
\begin{zahyou*}[ul=10mm](-\aval,\aval)(-1,\aval)
  \Sub\aval\bval\cval
  \Ifor\i{1}{25}\Do{%
    \calcval{\aval*\bval*\cval/(\aval*\bval+(\i*\cval)**2)}\ri
    \calcval{(\aval+\bval)*\ri/\cval-\aval}\xi
    \calcval{\ri*2*\i}\yi
    \En{(\xi,\yi)}\ri
  }%
  \Enko\O\aval{0}{180}
  \Enko{(-\cval,0)}\bval{0}{180}
  \Enko{(\bval,0)}{\cval}{0}{180}
  \Drawline{\XMAX\XMIN}
\end{zahyou*}
\end{document}

▼関連発言
│
└◆1923:円環問題の作図法 [ban] 10/17 13:59
　├◆1924:Re:円環問題の作図法 [飯島　徹] 10/17 16:16
　│└◆1926:Re[2]:円環問題の作図法 [飯島　徹] 10/17 18:23
　├◆1925:Re:円環問題の作図法 [tDB] 10/17 17:58
　│└◆1927:Re[2]:円環問題の作図法 [ban] 10/17 21:53
　│　└◆1929:Re[3]:円環問題の作図法 [飯島　徹] 10/17 23:42
　│　　└◆1931:Re[4]:円環問題の作図法 [ban] 10/18 00:02
　├◆1928:Re:円環問題の作図法 [田中徹] 10/17 22:36
　└◆1980:Re:円環問題の作図法 [ban] 10/22 12:40<-last