GraphingShow2D[PlotEq2D[Equal[DefiniteIntegral[μ,x,λ,y],Product[ConstE,x]],Options[Option[RangeX,-5.657,5.657],Option[RangeY,-5.657,5.657]]],Options[Option[ArgRangeValue,μ,0,0.4,2],Option[ArgRangeValue,λ,0,1.36,2],Option[RangeX,-5.657,5.657],Option[RangeY,-5.657,5.657]]]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[μ,x,λ,y],Product[ConstE,x]]],List[μ]]Solution[{μ,ExpressionSetPoint[ExpressionWithCondition[Divide[Product[ConstE,x],Sum[y,Negative[λ]]],NotEqual[Sum[y,Negative[λ]],0]],False,ReservedReal]}]Solution[{μ,ExpressionWithCondition[ReservedEmpty,And[Equal[Sum[y,Negative[λ]],0],NotEqual[x,0]]]}]Solution[{μ,ExpressionWithCondition[ReservedReal,And[Equal[x,0],Equal[Sum[y,Negative[λ]],0]]]}]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[μ,x,λ,y],Product[ConstE,x]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Divide[Sum[Product[ConstE,x],Product[λ,μ]],μ],NotEqual[μ,0]],False,ReservedReal]}]Solution[{y,ExpressionWithCondition[ReservedEmpty,And[Equal[μ,0],NotEqual[x,0]]]}]Solution[{y,ExpressionWithCondition[ReservedReal,And[Equal[μ,0],Equal[x,0]]]}]EquationSymbolicSolveRequest[List[Equal[DefiniteIntegral[μ,x,λ,y],Product[ConstE,x]]],List[x]]Solution[{x,ExpressionSetPoint[Divide[Sum[Product[y,μ],Negative[Product[λ,μ]]],ConstE],False,ReservedReal]}]