EquationSymbolicSolveRequest[List[Equal[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]],Exponent[x,2]]],List[x]]Solution[{x,ExpressionSetPoint[Product[Sqrt[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]]],Exponent[ConstE,Divide[Product[Arg[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]]],&i],2]]],False,ReservedComplex]}]Solution[{x,ExpressionSetPoint[Product[Sqrt[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]]],Exponent[ConstE,Sum[Divide[Product[Arg[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]]],&i],2],Product[PI,&i]]]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Sum[Exponent[ConstE,r],Exponent[ConstE,&i]],Exponent[x,2]]],List[r]]Solution[{r,ExpressionSetPoint[Sum[LogE[Sum[Exponent[x,2],Negative[Exponent[ConstE,&i]]]],Product[2,PI,&N_1,&i]],False,ReservedComplex]}]