\documentclass[a4j,twocolumn,10pt]{jsarticle}
\usepackage{color,graphicx}
\usepackage{emathB}
\usepackage[notMy]{emathPh}
\usepackage{emathPp}
\usepackage[perl]{emathRn}
%\usepackage[maskAnstrue]{emathAe}
\usepackage[maskAnsfalse]{emathAe}
\def\labelenumi{\textbf{\theenumi.}}
\def\labelenumii{(\arabic{enumii})}
\usepackage[margin=15truemm]{geometry}
\columnseprule.4truept
\pagestyle{empty}
%
\let\KaitouTTL\relax
\makeatletter
\def\Menelaus#1#2#3#4{%
\def\bp@{#1}
\def\pc@{#2}
\def\cq@{#3}
\def\qa@{#4}
\ifnum\bp@=0 \errmessage{! error}\fi
\ifnum\pc@=0 \errmessage{! error}\fi
\ifnum\cq@=0 \errmessage{! error}\fi
\ifnum\qa@=0 \errmessage{! error}\fi
\BYakubun\bp@\pc@\bp@\pc@
\BYakubun\cq@\qa@\cq@\qa@
\def\ar@{1}
\calcval[d]{abs(\bp@)}\bp@@
\calcval[d]{abs(\pc@)}\pc@@
\calcval[d]{abs(\cq@)}\cq@@
\calcval[d]{abs(\qa@)}\qa@@
\FMul{\pc@@/\bp@@}{\qa@@/\cq@@}\tmp
\FDiv\tmp\ar@\kotae
\FtoB\kotae\bunshi\bunbo
\calcval{(\bp@)/(\pc@)*(\cq@)/(\qa@)*(\ar@)*(-1)}\rb@
\begin{zahyou*}[haiti=t,ul=6mm,Yohaku=5mm](0,5)(0,4)
\tenretu{A(2,4)n;B(0,0)sw;C(5,0)se}
\Bunten\B\C{\bp@}{\pc@}\P
\Bunten\C\A{\cq@}{\qa@}\Q
\Bunten\A\B{\ar@}{\rb@}\R
{\thicklines
\Takakkei{\A\B\C}}
\Drawline{\R\A\Q\R\P\C}
%\Drawline{\B\Q}
%\Drawline{\C\R}
\Put\P[s]{P}
\Put\Q[ne]{Q}
\Put\R[nw]{R}
\LandL\A\P\B\Q\O
%\Put\O[ne]{O}
%\Kuromaru\O
\HenKo[*]\B\P{\bp@@}
\HenKo[*]\P\C{\pc@@}
\HenKo[*]\C\Q{\cq@@}
\HenKo[*]\Q\A{\qa@@}
\HenKo[*]\A\R{$x$}
\HenKo[*]\R\B{$y$}
\end{zahyou*}
\vfill
\begin{Kaitou}
$\bunsuu{\mathrm{AR}}{\mathrm{RB}}\times\bunsuu{\bp@@}{\pc@@}
\times\bunsuu{\cq@@}{\qa@@}=1$
\end{Kaitou}

\hfill{\bfseries\large 答\underline{\makebox[40mm]{\kaitou{$\mathrm{AR}:\mathrm{RB}=\bunshi:\bunbo$}}}}
}
\makeatother
%
\begin{document}
\twocolumn[\bfseries\Large メネラウスの定理(1)]

\begin{enumerate}
\item 次の三角形で$\mathrm{AR}:\mathrm{RB}$の比を求めよ。
\begin{enumerate}
\item \Menelaus{-1}{3}{5}{4}
\item \Menelaus{-1}{3}{3}{1}
\item \Menelaus{1}{3}{3}{-1}
\newpage
\item \Menelaus{3}{1}{-1}{3}
\item \Menelaus{3}{1}{2}{1}
\item \Menelaus{1}{3}{1}{1}
\end{enumerate}
\end{enumerate}
\end{document}
外分点が出てくるので答えを考えながら数値を決めないと
画面からはみ出してしまうのでこれは乱数で問題を作るの
が大変そうです。

注意　途中の計算がまだ整理されていません
\HenKoの点線と頂点の文字がぶつかったりいろいろしています。
頂点の文字を書かないというのも一つの選択肢かなと思っています。
今年は数Ａをやっていないのでこれで終了かなぁ

▼関連発言
│
└◆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