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