EquationSymbolicSolveRequest[List[Equal[Minus[Divide[μ,Product[x,PI]],λ],Exponent[r,1.05]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[μ,Product[PI,Sum[Exponent[r,1.05],λ]]],And[GreaterOrEqual[r,0],NotEqual[Sum[Negative[λ],Negative[Exponent[r,1.05]]],0],NotEqual[Divide[μ,Product[PI,Sum[λ,Exponent[r,1.05]]]],0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[0,And[Equal[μ,0],Equal[Sum[Negative[λ],Negative[Exponent[r,1.05]]],0],GreaterOrEqual[r,0]]],True,ReservedReal]}]