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