EquationSymbolicSolveRequest[List[Equal[Deriv[E,x],y]],List[x]]Solution[{x,ExpressionWithCondition[ReservedReal,Equal[y,0]]}]EquationSymbolicSolveRequest[List[Equal[Deriv[E,x],y]],List[y]]Solution[{y,ExpressionSetPoint[0,False,ReservedReal],0}]EquationSymbolicSolveRequest[List[Equal[Deriv[E,x],y]],List[E]]Solution[{E,ExpressionWithCondition[ReservedReal,Equal[y,0]]}]GraphingShow3D[PlotEq3D[Equal[Deriv[E,x],y]],Options[Option[ArgRangeValue,E,0,2,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-1,1],Option[RangeY,-1,1],Option[RangeZ,-1,1]]]GraphingShow3D[Plot3D[Deriv[E,x]],Plot3D[y],Options[Option[ShowWireframe,false],Option[ViewAngle,17,-106,86]]]GraphingPlotEq2D[Equal[Deriv[E,x],y]]