WorksheetDefiniteIntegral[1,x,Divide[x_1,μ],Divide[1.068,LogN[PI]]]Sum[Divide[Product[267,LogB[PI,10]],250],Negative[Divide[x_1,μ]]]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[1,x,Divide[x_1,μ],Divide[1.068,LogN[PI]]],Product[x,Divide[d,1.068]]]],List[x_1]]Solution[{x_1,ExpressionSetPoint[ExpressionWithCondition[Product[μ,Sum[Negative[Divide[Product[250,d,x],267]],Divide[Product[267,LogB[PI,10]],250]]],NotEqual[μ,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[1,x,Divide[x_1,μ],Divide[1.068,LogN[PI]]],Product[x,Divide[d,1.068]]]],List[d]]Solution[{d,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Divide[Product[71289,LogB[PI,10]],62500],Negative[Divide[Product[267,x_1],Product[250,μ]]]],x],And[NotEqual[x,0],NotEqual[μ,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[1,x,Divide[x_1,μ],Divide[1.068,LogN[PI]]],Product[x,Divide[d,1.068]]]],List[d]]Solution[{d,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Divide[Product[71289,LogB[PI,10]],62500],Negative[Divide[Product[267,x_1],Product[250,μ]]]],x],And[NotEqual[x,0],NotEqual[μ,0]]],False,ReservedReal]}]Solution[{d,ExpressionWithCondition[ReservedEmpty,And[Equal[x,0],NotEqual[μ,0],NotEqual[Sum[Negative[Divide[x_1,μ]],Divide[Product[267,LogB[PI,10]],250]],0]]]}]Solution[{d,ExpressionWithCondition[ReservedReal,And[Equal[x,0],Equal[Sum[Negative[Divide[x_1,μ]],Divide[Product[267,LogB[PI,10]],250]],0],NotEqual[μ,0]]]}]GraphingPlotEq2D[Equal[DefiniteIntegral[1,x,Divide[x_1,μ],Divide[1.068,LogN[PI]]],Product[x,Divide[d,1.068]]]]