> 楕円弧の交点を求めるコマンドを作っていただけないでしょうか。

\YKouten を使うのはいかが？

% --- re4039.tex -------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{jarticle} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\usepackage{emathP}
\usepackage{emathMw}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{enumerate}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\item 
\begin{mawarikomi}{}{%
%%picture環境定義%%%%%%%%%%%%%%%%%%%
\unitlength5mm
\begin{picture}(15,8)
%%%楕円弧書き%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% corrected by tDB
\def\aval{5}
\def\bval{3}
\def\Px{4}\def\Py{4}
\def\Qx{11}\def\Qy{6}
\tenretu*{P(\Px,\Py);Q(\Qx,\Qy)}
% 楕円の上半分
\def\Fx{\Py+\bval*(sqrt(\aval**2-(X-\Px)**2))/\aval}
\def\Gx{\Qy+\bval*(sqrt(\aval**2-(X-\Qx)**2))/\aval}
% 楕円の下半分
\def\FFx{\Py-\bval*(sqrt(\aval**2-(X-\Px)**2))/\aval}
\def\GGx{\Qy-\bval*(sqrt(\aval**2-(X-\Qx)**2))/\aval}
% 上半分同士の交点 R
\YKouten\Fx\Gx{6}{9}\Rx\R\Kuromaru\R\Put\R[n]{R}
% 下半分同士の交点 S
\YKouten\FFx\GGx{6}{9}\Sx\S\Kuromaru\S\Put\S[s]{S}
% Pを中心とする楕円について，2交点R, Sの偏角を求め，楕円弧を描画
\Earg\P\aval\bval\R\PargR
\Earg\P\aval\bval\S\PargS
\Put\P{\Daenko\aval\bval\PargS\PargR}
% Qを中心とする楕円弧
\Earg\Q\aval\bval\R\QargR
\Earg\Q\aval\bval\S\QargS
\Put\Q{\Daenko\aval\bval\QargR\QargS}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  end of correction
%%楕円の中心位置表示%%%%%%%%%%%%%%%%
%\def\P{(4,4)}
%\def\Q{(11,6)}
\Put\P[s]{P}
\Put\Q[s]{Q}
\kuromaru\P
\kuromaru\Q
%%平面Ｈ表示%%%%%%%%%%%%%%%%%%%%%%%%%
\def\K{(-1,2)}
\def\L{(12,2)}
\def\M{(16,8)}
\def\N{(4,8)}
\Drawline{\K\L\M\N\K}
\def\H{(0.5,3)}
\Put\H[s]{H}
%%二点ABから楕円弧までの線引き%%%%%%%
\def\A{(3,4)}
\def\B{(12,6)}
\Put\A[n]{A}
\Put\B[n]{B}
\kuromaru{\A;\B}
\Drawline{\A\R\B\S\A}%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% A, Bと楕円の交点を結ぶ
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{picture}
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
あああああああああああああああああああああああああああ%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{mawarikomi}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{enumerate}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\end{document}

▼関連発言
│
└◆4039:２つの楕円弧の交点を求めるコマンド [zyam56] 12/01 03:36
　└◆4040:Re:２つの楕円弧の交点を求めるコマンド [tDB] 12/01 09:04
　　└◆4041:Re[2]:２つの楕円弧の交点を求めるコマンド [zyam56] 12/01 11:08<-last