EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[a,2],Exponent[n,2]]]],List[n]]Solution[{n,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Sum[m,Negative[Exponent[a,2]]]],GreaterOrEqual[Sum[m,Negative[Exponent[a,2]]],0]],False,ReservedReal]}]Solution[{n,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Sum[m,Negative[Exponent[a,2]]]]],GreaterOrEqual[Sum[m,Negative[Exponent[a,2]]],0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[a,2],Exponent[n,2]]]],List[m]]Solution[{m,ExpressionSetPoint[Sum[Exponent[n,2],Exponent[a,2]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[m,Sum[Exponent[a,2],Exponent[n,2]]]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Sum[m,Negative[Exponent[n,2]]]],GreaterOrEqual[Sum[m,Negative[Exponent[n,2]]],0]],False,ReservedReal]}]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Sum[m,Negative[Exponent[n,2]]]]],GreaterOrEqual[Sum[m,Negative[Exponent[n,2]]],0]],False,ReservedReal]}]WorksheetAssign[m,Sum[Exponent[a,2],Exponent[n,2]]]Sum[Exponent[n,2],Exponent[a,2]]GraphingShow2D[PlotEq2D[Equal[z,Sum[Exponent[y,2],Exponent[x,2]]]],Options[Option[ArgRangeValue,z,0,2,2],Option[RangeX,-2,2],Option[RangeY,-2,2]]]GraphingShow3D[PlotEq3D[Equal[z,Sum[Exponent[y,2],Exponent[x,2]]]]]Assign[m,Sum[Exponent[a,2],Exponent[n,2]]]