EquationSymbolicSolveRequest[List[Equal[Divide[Minus[t_1,t_2],E],Exponent[k,2]]],List[t_2]]Solution[{t_2,ExpressionSetPoint[ExpressionWithCondition[Sum[t_1,Negative[Product[E,Exponent[k,2]]]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Minus[t_1,t_2],E],Exponent[k,2]]],List[t_1]]Solution[{t_1,ExpressionSetPoint[ExpressionWithCondition[Sum[t_2,Product[E,Exponent[k,2]]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Minus[t_1,t_2],E],Exponent[k,2]]],List[k]]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[Sum[t_1,Negative[t_2]],E]],And[GreaterOrEqual[Divide[Sum[t_1,Negative[t_2]],E],0],NotEqual[E,0]]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[Sum[t_1,Negative[t_2]],E]]],And[GreaterOrEqual[Divide[Sum[t_1,Negative[t_2]],E],0],NotEqual[E,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Minus[t_1,t_2],E],Exponent[k,2]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[t_1,Negative[t_2]],Exponent[k,2]],And[NotEqual[k,0],NotEqual[Divide[Sum[t_1,Negative[t_2]],Exponent[k,2]],0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Minus[t_1,t_2],E],Exponent[k,2]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[t_1,Negative[t_2]],Exponent[k,2]],And[NotEqual[k,0],NotEqual[Divide[Sum[t_1,Negative[t_2]],Exponent[k,2]],0]]],False,ReservedReal]}]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[0,And[Equal[k,0],Equal[Sum[t_1,Negative[t_2]],0]]],True,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Divide[Aggregate[Minus[x_1,x_2]],z],Exponent[y,2]]]]