WorksheetMinus[Divide[μ,1],Divide[PI,x_1]]Sum[μ,Negative[Divide[PI,x_1]]]EquationSymbolicSolveRequest[List[Equal[Minus[Divide[μ,1],Divide[PI,x_1]],x]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sum[μ,Negative[Divide[PI,x_1]]],NotEqual[x_1,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Minus[Divide[μ,1],Divide[PI,x_1]],Product[x,y]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[μ,Negative[Divide[PI,x_1]]],y],And[NotEqual[x_1,0],NotEqual[y,0]]],False,ReservedReal]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[y,0],NotEqual[x_1,0],NotEqual[Sum[μ,Negative[Divide[PI,x_1]]],0]]]}]Solution[{x,ExpressionWithCondition[ReservedReal,And[Equal[y,0],Equal[Sum[μ,Negative[Divide[PI,x_1]]],0],NotEqual[x_1,0]]]}]EquationSymbolicSolveRequest[List[Equal[Minus[Deriv[Divide[μ,1.05],x],Divide[PI,x_1]],Product[d,x]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[PI,Product[d,x_1]]],And[NotEqual[x_1,0],NotEqual[d,0]]],False,ReservedReal]}]