\documentclass[a4j]{jarticle}
\usepackage[papersize]{emathP}
\def\malfatti{%
\noindent
\begin{zahyou*}[ul=6mm](-2,7)(-2,10)
%\tenretu{A(0,0)s;B(5,0)s;C(2.5,4.33)n}
\Put\A[s]{A}
\Put\B[s]{B}
\Put\C[n]{C}
{\Thicklines\Takakkei{\A\B\C}}
%\Naisetuen\A\B\C
\Naisin\A\B\C\I
%\Drawlines{\A\I;\B\I;\C\I}
\Naisin\A\B\I\Cc
%\En\Cc\lr
\edef\abi{\lr}
\Naisin\B\C\I\Ca
%\En\Ca\lr
\edef\bci{\lr}
\Naisin\C\A\I\Cb
%\En\Cb\lr
\edef\cai{\lr}
%
\KTNAISessen\Cc\abi\Ca\bci\ab\bb\c\d
\Subvec\Cc\ab\vc
\Rotvec\vc{90}\nc
\Landl\C\A\ab\nc\M
%\Put\M[nw]{M}\kuromaru\M
%\Tyokusen\M\ab{}{}
%
\KTNAISessen\Ca\bci\Cb\cai\ac\bc\c\d
\Subvec\Ca\ac\va
\Rotvec\va{90}\na
\Landl\A\B\ac\na\P
%\Put\P[s]{P}\kuromaru\P
%\Tyokusen\P\ac{}{}
%
\KTNAISessen\Cb\cai\Cc\abi\aa\ba\c\d
\Subvec\Cb\aa\vb
\Rotvec\vb{90}\nb
\Landl\B\C\aa\nb\T
%\Put\T[e]{T}\kuromaru\T
%\Tyokusen\T\aa{}{}
%
\LandL\ac\P\ab\M\L
%\Put\L[s]{L}\kuromaru\L
\Naisin\M\L\P\J
\Naisin\L\P\A\K
%\Hantyokusen\L\J
\LandL\P\K\L\J\X
%\Put\X[s]{X}\kuromaru\X
\Naisin\P\L\T\J
\Naisin\L\T\B\K
%\Hantyokusen\L\J
\LandL\T\K\L\J\Y
%\Put\Y[s]{Y}\kuromaru\Y
\Naisin\T\L\M\J
\Naisin\L\M\C\K
%\Hantyokusen\L\J
\LandL\M\K\L\J\Z
%\Put\Z[s]{Z}\kuromaru\Z
\tentoTyokusen\X\A\B\r
\En\X\r
\tentoTyokusen\Y\B\C\r
\En\Y\r
\tentoTyokusen\Z\C\A\r
\En\Z\r
%\Drawlines{\P\L;\T\L;\M\L}
%\zahyouMemori[g][n]
\end{zahyou*}}
\begin{document}
\def\A{(0,0)}
\def\B{(5,0)}
\def\C{(2.5,4.33)}
\malfatti

\def\A{(0,0)}
\def\B{(5,0)}
\def\C{(2.5,8)}
\malfatti

\def\A{(0,0)}
\def\B{(5,0)}
\def\C{(7,8)}
\malfatti

\end{document}
はたして改良できたでしょうか。みなさん検証をお願いします。

▼関連発言
│
└◆7720:三角形に内接する半径の等しい2つの円の作図 [田中徹] 12/04 22:17
　├◆7723:--- [---] 12/05 02:35
　└◆7724:Re:三角形に内接する半径の等しい2つの円の作図 [st] 12/05 02:38
　　└◆7726:Re[2]:三角形に内接する半径の等しい2つの円の作図 [田中徹] 12/05 11:14
　　　└◆7728:Re[3]:マルファッティの問題 [石原　守] 12/07 16:22
　　　　├◆7729:Re[4]:マルファッティの問題 [田中徹] 12/08 01:57
　　　　├◆7730:Re[4]:マルファッティの問題 [tDB] 12/08 19:18
　　　　└◆7749:Re[4]:マルファッティの問題 [石原　守] 12/11 20:31
　　　　　├◆7751:Re[5]:マルファッティの問題 [田中徹] 12/12 00:17
　　　　　├◆7753:Re[5]:マルファッティの問題 [Traci] 12/13 11:19
　　　　　│└◆7755:Re[6]:マルファッティの問題 [tDB] 12/13 11:30
　　　　　│　└◆7757:Re[7]:マルファッティの問題 [Traci] 12/13 13:58
　　　　　│　　└◆7758:Re[8]:マルファッティの問題 [石原　守] 12/13 14:45
　　　　　│　　　└◆7759:Re[9]:マルファッティの問題 [Traci] 12/13 17:44
　　　　　└◆7762:Re[5]:マルファッティの問題 [tDB] 12/14 13:59
　　　　　　└◆7763:Re[6]:マルファッティの問題 [石原　守] 12/14 14:42
　　　　　　　└◆7764:Re[7]:マルファッティの問題 [tDB] 12/14 17:06
　　　　　　　　├◆7765:Re[8]:マルファッティの問題 [石原　守] 12/14 17:53
　　　　　　　　└◆7772:\temp081214a [st] 12/19 17:13
　　　　　　　　　└◆7773:Re:\temp081214a [tDB] 12/20 08:07
　　　　　　　　　　└◆7774:Re[2]:\temp081214a [st] 12/20 11:46<-last