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[Selected,true]]],Options[Option[ArgRangeValue,δ,0,0.42,2],Option[ShowWireframe,false],Option[ViewAngle,68.796,106.647,-56.054],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-3.218,3]]]EquationSymbolicSolveRequest[List[Equal[r,Product[Negative[1],ConstE,δ]]],List[δ]]Solution[{δ,ExpressionSetPoint[Negative[Divide[r,ConstE]],False,ReservedReal]}]GraphingShow2D[PlotPolar2D[Product[Negative[1],ConstE,δ]],Options[Option[ArgRangeValue,δ,0,2,2],Option[RangeX,-4,4],Option[RangeY,-4,4]]]WorksheetAssign[r,Product[Negative[1],ConstE,δ]]Negative[Product[ConstE,δ]]Assign[r,Product[-1,ConstE,δ]]