EquationSymbolicSolveRequest[List[Equal[δ,Exponent[ConstE,r]]],List[δ]]Solution[{δ,ExpressionSetPoint[Exponent[ConstE,r],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[δ,Exponent[ConstE,r]]],List[r]]Solution[{r,ExpressionSetPoint[LogE[δ],False,ReservedReal]}]GraphingShow3D[PlotCylR3D[δ],PlotCylR3D[Exponent[ConstE,r]],Options[Option[ArgRangeValue,δ,0,2,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-1,9]]]WorksheetAssign[δ,Exponent[ConstE,r]]Exponent[ConstE,r]Assign[δ,Exponent[ConstE,r]]