EquationSymbolicSolveRequest[List[Equal[Exponent[E,2],λ]],List[λ]]Solution[{λ,ExpressionSetPoint[Exponent[E,2],False,ReservedComplex]}]EquationSymbolicSolveRequest[List[Equal[Exponent[E,2],λ]],List[E]]Solution[{E,ExpressionSetPoint[Product[Sqrt[Abs[λ]],Exponent[ConstE,Divide[Product[Arg[λ],&i],2]]],False,ReservedComplex]}]Solution[{E,ExpressionSetPoint[Product[Sqrt[Abs[λ]],Exponent[ConstE,Sum[Divide[Product[Arg[λ],&i],2],Product[PI,&i]]]],False,ReservedComplex]}]