Правка> Выражение уменьшено с 700 до 20 символов ниже
Попробуйте использовать FullSimplify в Wolfram Alpha или Mathematica.
WolframAlpha FullSimplify (x ^ 2 + 2 x +1)
Редактировать ->
Подумав еще раз, Mathematica не нужно упрощать ваше уравнение в одну переменную для его решения ... команда Solve (или FindRoot, или FindInstance ...) сделает это.
Попробуйте, например,
WolframAlpha Решить (x ^ 2 + 2 * x + 1 = 0, x)
РЕДАКТИРОВАТЬ ->
Просто чтобы освободить ответ от зависимостей от ideone.com, ваше уравнение в 700 символов после некоторых упрощений становится
t= -((E*A+B*F+ Sqrt(2*A*E*F*B+ A^2*(I^2-F^2) + B^2*(I^2-E^2))) /(A^2 + B^2))
Где
E = e - g
A = a - c
B = b - d
F = f - h
I = i + j
Пожалуйста, проверьте, является ли аргумент Sqrt идеальным квадратом, основанным на других "геометрических" соображениях ... он лает и имеет хвост ... это собака?
РЕДАКТИРОВАТЬ -> догадки:
У меня нет никаких доказательств , но симметрия уравнения предполагает, что в вашей задаче
E^2 = (I^2-F^2) => (e-g)^2 = (i+j)^2 - (f-h)^2
Если это так (, пожалуйста, подтвердите его ), ваше уравнение становится
t= -((E*A+B*F+ Abs(E*A+B*F)) /(A^2 + B^2))
Если A E + B F> 0 (и я думаю, это так, потому что если не t === 0)
+-----------------------------------+
¦ Your 700 chars equation comes to ¦
¦ ¦
¦ t= -2 * (A*E + B*F) / (A^2 + B^2) ¦
¦ ¦
+-----------------------------------+
коротко и сладко ...:)