EquationSymbolicSolveRequest[List[Equal[LogE[ConstE],Sum[Exponent[x,2],Exponent[y,2]]]],List[x]]Solution[{x,ExpressionSetPoint[Product[Sqrt[Abs[Sum[1,Negative[Exponent[y,2]]]]],Exponent[ConstE,Divide[Product[Arg[Sum[1,Negative[Exponent[y,2]]]],&i],2]]],False,ReservedComplex]}]Solution[{x,ExpressionSetPoint[Product[Sqrt[Abs[Sum[1,Negative[Exponent[y,2]]]]],Exponent[ConstE,Sum[Divide[Product[Arg[Sum[1,Negative[Exponent[y,2]]]],&i],2],Product[PI,&i]]]],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[LogE[ConstE],Sum[Exponent[x,2],Exponent[y,2]]]],List[y]]Solution[{y,ExpressionSetPoint[Product[Sqrt[Abs[Sum[1,Negative[Exponent[x,2]]]]],Exponent[ConstE,Divide[Product[Arg[Sum[1,Negative[Exponent[x,2]]]],&i],2]]],False,ReservedComplex]}]Solution[{y,ExpressionSetPoint[Product[Sqrt[Abs[Sum[1,Negative[Exponent[x,2]]]]],Exponent[ConstE,Sum[Divide[Product[Arg[Sum[1,Negative[Exponent[x,2]]]],&i],2],Product[PI,&i]]]],False,ReservedComplex]}]GraphingShow2D[PlotEq2D[Equal[LogE[ConstE],Sum[Exponent[x,2],Exponent[y,2]]]]]