EquationSymbolicSolveRequest[List[Equal[y,Divide[z,Exponent[x,2]]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[z,y]],And[GreaterOrEqual[Divide[z,y],0],NotEqual[y,0],NotEqual[Sqrt[Divide[z,y]],0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[z,y]]],And[GreaterOrEqual[Divide[z,y],0],NotEqual[y,0],NotEqual[Negative[Sqrt[Divide[z,y]]],0]]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[y,Divide[z,Exponent[x,2]]],Options[Option[RangeX,-4,4],Option[RangeY,-38.5,63.5]]],Options[Option[ArgRangeValue,z,0,2,2],Option[RangeX,-4,4],Option[RangeY,-38.5,63.5]]]EquationSymbolicSolveRequest[List[Equal[m,Divide[E,Exponent[k,2]]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[E,Exponent[k,2]],NotEqual[k,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[m,Divide[E,Exponent[k,2]]]],List[k]]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[E,m]],And[GreaterOrEqual[Divide[E,m],0],NotEqual[m,0],NotEqual[Sqrt[Divide[E,m]],0]]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[E,m]]],And[GreaterOrEqual[Divide[E,m],0],NotEqual[m,0],NotEqual[Negative[Sqrt[Divide[E,m]]],0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[m,Divide[E,Exponent[k,2]]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Product[m,Exponent[k,2]],NotEqual[k,0]],False,ReservedReal]}]WorksheetAssign[m,Divide[E,Exponent[k,2]]]Divide[E,Exponent[k,2]]EquationSymbolicSolveRequest[List[Equal[Abs[y],Divide[Exponent[x,2],z]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Product[z,Abs[y]]],And[GreaterOrEqual[Product[z,Abs[y]],0],NotEqual[z,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Product[z,Abs[y]]]],And[GreaterOrEqual[Product[z,Abs[y]],0],NotEqual[z,0]]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Abs[y],Divide[z,Exponent[x,2]]]],Options[Option[ArgRangeValue,z,0,0.84,2],Option[RangeX,-2,2],Option[RangeY,-38,38]]]EquationSymbolicSolveRequest[List[Equal[Abs[x],Divide[Exponent[y,2],z]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[y,2],z],And[GreaterOrEqual[Divide[Exponent[y,2],z],0],NotEqual[z,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Exponent[y,2],z]],And[GreaterOrEqual[Divide[Exponent[y,2],z],0],NotEqual[z,0]]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Abs[x],Divide[Exponent[y,2],z]]],Options[Option[ArgRangeValue,z,0,2,2],Option[RangeX,-2,2],Option[RangeY,-2.055,2.055]]]GraphingShow2D[PlotEq2D[Equal[Abs[x],Divide[Exponent[y,2],z]]]]GraphingShow2D[PlotEq2D[Equal[Abs[y],Divide[Exponent[x,2],z]]]]Assign[m,Product[E,Exponent[k,-2]]]