emath BBS

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

No.1926  Re[2]:円環問題の作図法
発言者: 飯島 徹
発言日: 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

Pass 保存


CGIROOM