EquationSymbolicSolveRequest[List[Equal[δ,Exponent[ConstE,r]]],List[δ]]Solution[{δ,ExpressionSetPoint[Exponent[ConstE,r],False,ReservedReal]}]1Eq.1Var.1Inst.19EquationSymbolicSolveRequest[List[Equal[δ,Exponent[ConstE,r]]],List[r]]Solution[{r,ExpressionSetPoint[LogE[δ],False,ReservedReal]}]Equation.Exponent.1GraphingShow3D[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]]