emath saloon (Read Only)

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

No.503  Re[2]:乱数を使ってチェバの定理の問題
発言者: 田中徹
発言日: 2007 11/27 22:52
相変わらずの粘着質そして学期末成績処理からの逃避行動に出ています。

> 私も朝の文系小テスト(センター対策)向けに
> チェバ・メネラウスおよび方べきの定理の問題を
> 作成したいなと思っていたところでした。
> (乱数を使いこなせる能力はないので、数値は自前で設定の予定でした)

石原さんのものとあわせて使用していただければ幸いです。
コピーペースト後サイクリックに変数名を変えただけなので
どこかに漏れがあるかもしれませんがご愛敬ということでご容赦をお願いします。

%% 適当に比を設定してチェバの定理の図を描く %%
#1,#2,#3 三角形の3頂点
#4,#5,#6 分割比 {〜:〜} の形で指定 1つは数字でなく文字指定
#7,#8    文字指定した部分の比を計算した結果

\documentclass[b5j]{jarticle}

\usepackage[papersize]{emathP}
\usepackage{emathB}
\usepackage{emathC}
\usepackage{EMminipages}
\pagestyle{empty}

\makeatletter%
\def\Ceva#1#2#3#4#5#6#7#8{%
\strsep{#4}{:}\@LabelABi\@LabelABii%
\strsep{#5}{:}\@LabelBCi\@LabelBCii%
\strsep{#6}{:}\@LabelCAi\@LabelCAii%
\Strstr{0123456789}{\@LabelABi}\@AB%
\Strstr{0123456789}{\@LabelBCi}\@BC%
\Strstr{0123456789}{\@LabelCAi}\@CA%
\ifnum\@AB=0{%
\IMul{\@LabelBCi}{\@LabelCAi}{\@分子積}%
\IMul{\@LabelBCii}{\@LabelCAii}{\@分母積}%
\BYakubun{\@分母積}{\@分子積}\@分子\@分母
\xdef#7{\@分子}%
\xdef#8{\@分母}%
\Bunten{#1}{#2}{\@分子}{\@分母}\@AB%
\Bunten{#2}{#3}{\@LabelBCi}{\@LabelBCii}\@BC%
\Bunten{#3}{#1}{\@LabelCAi}{\@LabelCAii}\@CA%
\LandL{#1}{\@BC}{#2}{\@CA}\@Kouten%
\xdef\CevaPos{\@Kouten}%
\HenKo#1\@AB{$\@LabelABi$}%
\HenKo\@AB#2{$\@LabelABii$}%
\HenKo#2\@BC{$\@LabelBCi$}%
\HenKo\@BC#3{$\@LabelBCii$}%
\HenKo#3\@CA{$\@LabelCAi$}%
\HenKo\@CA#1{$\@LabelCAii$}%
{\thinlines%
\Hasen{#1\@BC}%
\Hasen{#2\@CA}%
\Hasen{#3\@AB}%
}%
}%
\fi% End of \@AB=0
\ifnum\@BC=0{%
\IMul{\@LabelCAi}{\@LabelABi}{\@分子積}%
\IMul{\@LabelCAii}{\@LabelABii}{\@分母積}%
\BYakubun{\@分母積}{\@分子積}\@分子\@分母
\xdef#7{\@分子}%
\xdef#8{\@分母}%
\Bunten{#1}{#2}{\@LabelABi}{\@LabelABii}\@AB%
\Bunten{#2}{#3}{\@分子}{\@分母}\@BC%
\Bunten{#3}{#1}{\@LabelCAi}{\@LabelCAii}\@CA%
\LandL{#1}{\@BC}{#2}{\@CA}\@Kouten%
\xdef\CevaPos{\@Kouten}%
\HenKo#1\@AB{$\@LabelABi$}%
\HenKo\@AB#2{$\@LabelABii$}%
\HenKo#2\@BC{$\@LabelBCi$}%
\HenKo\@BC#3{$\@LabelBCii$}%
\HenKo#3\@CA{$\@LabelCAi$}%
\HenKo\@CA#1{$\@LabelCAii$}%
{\thinlines%
\Hasen{#1\@BC}%
\Hasen{#2\@CA}%
\Hasen{#3\@AB}%
}%
}%
\fi% End of \@BC=0
\ifnum\@CA=0{%
\IMul{\@LabelABi}{\@LabelBCi}{\@分子積}%
\IMul{\@LabelABii}{\@LabelBCii}{\@分母積}%
\BYakubun{\@分母積}{\@分子積}\@分子\@分母
\xdef#7{\@分子}%
\xdef#8{\@分母}%
\Bunten{#1}{#2}{\@LabelABi}{\@LabelABii}\@AB%
\Bunten{#2}{#3}{\@LabelBCi}{\@LabelBCii}\@BC%
\Bunten{#3}{#1}{\@分子}{\@分母}\@CA%
\LandL{#1}{\@BC}{#2}{\@CA}\@Kouten%
\xdef\CevaPos{\@Kouten}%
\HenKo#1\@AB{$\@LabelABi$}%
\HenKo\@AB#2{$\@LabelABii$}%
\HenKo#2\@BC{$\@LabelBCi$}%
\HenKo\@BC#3{$\@LabelBCii$}%
\HenKo#3\@CA{$\@LabelCAi$}%
\HenKo\@CA#1{$\@LabelCAii$}%
{\thinlines%
\Hasen{#1\@BC}%
\Hasen{#2\@CA}%
\Hasen{#3\@AB}%
}%
}%
\fi% End of \@CA=0
}%
\makeatother%

\begin{document}

\begin{EMminipages}{*,*,*}%
\begin{zahyou*}[ul=5mm,Sitayohaku=\unitlength](0,5)(0,5){}%
\def\A{(4,5)}%
\def\B{(0,0)}%
\def\C{(5,0)}%
\Takakkei{\A\B\C}%
\Ceva\A\B\C{x:y}{1:2}{3:2}\X\Y%
\end{zahyou*}

$x:y=\X:\Y$
\EMminipagesbreak%
\begin{zahyou*}[ul=5mm,Sitayohaku=\unitlength](0,5)(0,5){}%
\def\A{(2,5)}%
\def\B{(0,0)}%
\def\C{(5,0)}%
\Takakkei{\A\B\C}%
\Ceva\A\B\C{1:3}{m:n}{6:5}\M\N%
\end{zahyou*}

$m:n=\M:\N$
\EMminipagesbreak%
\begin{zahyou*}[ul=5mm,Sitayohaku=\unitlength](0,8)(0,5){}%
\def\A{(4,5)}%
\def\B{(0,0)}%
\def\C{(8,0)}%
\Takakkei{\A\B\C}%
\Ceva\A\B\C{1:3}{3:5}{p:q}\P\Q%
\end{zahyou*}

$p:q=\P:\Q$
\end{EMminipages}
\end{document}

▼関連発言

497:乱数を使ってチェバの定理の問題 [石原 守] 11/25 12:47
 └499:Re:乱数を使ってチェバの定理の問題 [田中徹] 11/25 23:12
  ├500:Re[2]:乱数を使ってチェバの定理の問題 [石原 守] 11/26 07:47
  │└501:Re[3]:乱数を使ってチェバの定理の問題 [田中徹] 11/26 10:39
  │ ├502:Re[4]:メネラウスの定理の問題 [石原 守] 11/26 12:30
  │ └531:--- [---] 01/10 18:40<-last
  └503:Re[2]:乱数を使ってチェバの定理の問題 [田中徹] 11/27 22:52

Pass 保存


CGIROOM