EquationSymbolicSolveRequest[List[Equal[ConstE,Exponent[λ,y]]],List[λ]]Solution[{λ,ExpressionSetPoint[Exponent[ConstE,Divide[1,y]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[ConstE,Exponent[λ,y]]],List[y]]Solution[{y,ExpressionSetPoint[Divide[1,LogE[λ]],False,ReservedReal]}]GraphingShow2D[PlotY2D[ConstE],PlotY2D[Exponent[λ,y]],Options[Option[ArgRangeValue,λ,0,2,2],Option[RangeX,0,4],Option[RangeY,-2,2]]]GraphingShow2D[PlotEq2D[Equal[ConstE,Exponent[λ,y]],Options[Option[RangeX,-11.314,11.314],Option[RangeY,-11.314,11.314]]],Options[Option[ArgRangeValue,λ,0,1.76,2],Option[RangeX,-11.314,11.314],Option[RangeY,-11.314,11.314]]]