WorksheetProduct[δ,Negative[ConstE]]Negative[Product[ConstE,δ]]WorksheetDeriv[Product[δ,Negative[ConstE]],δ]Negative[ConstE]-2.718281828459WorksheetIndefiniteIntegral[Product[δ,Negative[ConstE]],δ]Sum[Negative[Divide[Product[ConstE,Exponent[δ,2]],2]],&c]GraphingShow2D[PlotEq2D[Equal[y,Product[δ,Negative[ConstE]]],Options[Option[RangeX,-8,8],Option[RangeY,-7.123,1.204]]],Options[Option[ArgRangeValue,δ,0,2,2],Option[RangeX,-8,8],Option[RangeY,-7.123,1.204]]]EquationSymbolicSolveRequest[List[Equal[Product[δ,Negative[ConstE]],r]],List[δ]]Solution[{δ,ExpressionSetPoint[Negative[Divide[r,ConstE]],False,ReservedReal]}]GraphingShow3D[PlotCylR3D[Product[δ,Negative[ConstE]]],PlotCylR3D[r],Options[Option[ArgRangeValue,δ,0,0.74,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-3.218,3]]]EquationSymbolicSolveRequest[List[Equal[Product[δ,Negative[ConstE]],r]],List[r]]Solution[{r,ExpressionSetPoint[Negative[Product[ConstE,δ]],False,ReservedReal]}]GraphingShow3D[PlotCylR3D[Product[δ,Negative[ConstE]]],PlotCylR3D[r],Options[Option[ArgRangeValue,δ,0,0.46,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-3.218,3]]]