EquationSymbolicSolveRequest[List[Equal[E,Exponent[μ,γ]]],List[μ]]Solution[{μ,ExpressionSetPoint[Exponent[E,Divide[1,γ]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[E,Exponent[μ,γ]]],List[γ]]Solution[{γ,ExpressionSetPoint[LogB[μ,E],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[E,Exponent[μ,γ]]],List[E]]Solution[{E,ExpressionSetPoint[Exponent[μ,γ],False,ReservedReal]}]WorksheetAssign[E,Exponent[μ,γ]]Exponent[μ,γ]Assign[E,Exponent[μ,γ]]