発言者: 飯島 徹
発言日: 2004 10/17 18:23
発言元: yahoobb221029028014.bbtec.net
みなさん,こん○○は(^^♪飯島です.
tDB さんが,円の描画を自動化したみたいなので
私も参戦します(^O^)
emathPp.sty が使用できる事が前提です(^^ゞ
\documentclass{jarticle}
\usepackage{emathP}
\makeatletter
\newif\ifdraw
\def\Kutuya{\@ifstar{\drawtrue\@Kutuya}{\drawfalse\@Kutuya}}
\def\@Kutuya{\@ifnextchar[{\@@Kutuya}{\@@Kutuya[P,Q,R]}}
\def\@@Kutuya[#1,#2,#3]#4#5{%
\def\@R{#4}%
\def\@Ri{#5}%
\Sub\@R\@Ri\@Rii
\Sub\@R\@Ri\@Xi
\Sub\@R\@Rii\@Xii
\def\@Oi{(-\@Xi,0)}\def\@Oii{(\@Xii,0)}%
\expandafter\let\csname#1\endcsname=\@Oi
\expandafter\let\csname#2\endcsname=\@Oii
\calcval{((\@R)*((\@Xi)*(\@Xii)+(\@R)**2-(\@Rii)**2)%
-(\@Xii)*((\@Ri)**2-(\@Rii)**2))/%
(2*((\@R)**2+(\@Xi)*(\@Rii)+(\@Xii)*(\@Ri)))}\@r%
\Enko\O\@R{0}{180}%
\Enko{(-\@Xi,0)}\@Ri{0}{180}%
\Enko{(\@Xii,0)}\@Rii{0}{180}%
\calcval{(\@Ri)+(\@r)}\@Hi
\calcval{(\@Rii)+(\@r)}\@Hii
\CandC{(-\@Xi,0)}\@Hi{(\@Xii,0)}\@Hii\@Ox\@Oiii
\expandafter\edef\csname#3\endcsname{\@Oiii}%
\En\@Oiii\@r
\Drawline{(-#4,0)(#4,0)}%
\ifdraw
\Put\@Oi[s]{#1}%
\Put\@Oii[s]{#2}%
\Put\@Oiii[n]{#3}%
\fi
\kuromaru[.5mm]{\@Oi;\@Oii;\@Oiii}%
\ifdraw
\Drawline{\@Oi\@Oiii\@Oii}%
\fi
}%
\makeatother
\begin{document}
\begin{zahyou*}[ul=5mm](-5.25,5.25)(-.5,5.25)%
% \Kutuya*[#1,#2,#3]#4#5
% *:円の中心を結ぶ線などを描く
% #1:左側の半円の中心の名前
% #2:右側の半円の中心の名前
% #3:円#1,#2に外接し,一番大きな半円に内接する円の名前
% #4:一番大きな半円の半径
% #5:一番大きな半円に内接する左側の半円の半径
\Kutuya*[A,B,C]{5}{3}%
\end{zahyou*}
\begin{zahyou*}[ul=5mm](-5.25,5.25)(-.5,5.25)%
\Kutuya{5}{1.5}%
\end{zahyou*}
\begin{zahyou*}[ul=5mm](-5.25,5.25)(-.5,5.25)%
\Kutuya*{5}{2.5}%
\end{zahyou*}
\begin{zahyou*}[ul=5mm](-5.25,5.25)(-.5,5.25)%
\Kutuya*[A,B,C]{5}{2}%
\Hen_ko<henkohi=3>\C\A{$r+r_1$}%
\Hen_ko<henkohi=3>\B\C{$r+r_2$}%
\Hen_ko\A\B{$r_1+r_2$}%
\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