EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[ConstE,2],n]]],List[n]]Solution[{n,ExpressionSetPoint[Sum[m,Negative[Exponent[ConstE,2]]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[ConstE,2],n]]],List[m]]Solution[{m,ExpressionSetPoint[Sum[n,Exponent[ConstE,2]],False,ReservedComplex]}]WorksheetAssign[m,Sum[Exponent[ConstE,2],n]]Sum[n,Exponent[ConstE,2]]Assign[m,Sum[n,Exponent[ConstE,2]]]