EquationSymbolicSolveRequest[List[Equal[Divide[m,E],Exponent[r,2]]],List[r]]Solution[{r,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[m,E]],And[GreaterOrEqual[Divide[m,E],0],NotEqual[E,0]]],False,ReservedReal]}]Solution[{r,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[m,E]]],And[GreaterOrEqual[Divide[m,E],0],NotEqual[E,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[m,E],Exponent[r,2]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Product[E,Exponent[r,2]],NotEqual[E,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[m,E],Exponent[r,2]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Divide[m,Exponent[r,2]],And[NotEqual[r,0],NotEqual[Divide[m,Exponent[r,2]],0]]],False,ReservedReal]}]GraphingShow3D[PlotCylR3D[Divide[m,E]],PlotCylR3D[Exponent[r,2]],Options[Option[ArgRangeValue,m,0,2,2],Option[ArgRangeValue,E,0,1.26,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-1,5]]]GraphingShow2D[PlotEq2D[Equal[y,Product[m,Exponent[E,-1]]]],PlotEq2D[Equal[y,Exponent[r,2]]],Options[Option[ArgRangeValue,m,0,2,2],Option[ArgRangeValue,E,0,1.62,2],Option[ArgRangeValue,r,0,1.16,2],Option[RangeX,-2,2],Option[RangeY,0,2]]]