t e u v w a b c A:=(t-mm)^2 / ss = (x- t- mE )^2 / sE + (t- mT)^2 / sT - (x- mT- mE)^2 / (sT+sE) ; B:= factor(A); lprint(B); (t-c)^2 / w = (x- t- v )^2 / b + (t- u)^2 / a - (x- u- v)^2 / (a+b) A:= (y-K)^2/sE^2 + y^2/sT^2-K^2/(sT^2+sE^2)