EquationSymbolicSolveRequest[List[Equal[Abs[x],Divide[z,Exponent[y,2]]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[z,Exponent[y,2]],And[GreaterOrEqual[Divide[z,Exponent[y,2]],0],NotEqual[y,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[z,Exponent[y,2]]],And[GreaterOrEqual[Divide[z,Exponent[y,2]],0],NotEqual[y,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Abs[x],Divide[z,Exponent[y,2]]]],List[z]]Solution[{z,ExpressionSetPoint[ExpressionWithCondition[Product[Abs[x],Exponent[y,2]],NotEqual[y,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Abs[x],Divide[z,Exponent[y,2]]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[z,Abs[x]]],And[GreaterOrEqual[Divide[z,Abs[x]],0],NotEqual[x,0],NotEqual[Sqrt[Divide[z,Abs[x]]],0]]],False,ReservedReal]}]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[z,Abs[x]]]],And[GreaterOrEqual[Divide[z,Abs[x]],0],NotEqual[x,0],NotEqual[Negative[Sqrt[Divide[z,Abs[x]]]],0]]],False,ReservedReal]}]GraphingShow3D[PlotEq3D[Equal[Abs[x],Divide[z,Exponent[y,2]]]],Options[Option[ShowWireframe,false],Option[ViewAngle,19.502,124.357,-63.136]]]GraphingShow2D[PlotEq2D[Equal[Abs[x],Divide[z,Exponent[y,2]]],Options[Option[RangeX,-76,76],Option[RangeY,-4,4]]],Options[Option[ArgRangeValue,z,0,1.18,2],Option[RangeX,-76,76],Option[RangeY,-4,4]]]EquationSymbolicSolveRequest[List[Equal[Abs[M],Divide[E,Exponent[k,2]]]],List[k]]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[E,Abs[M]]],And[GreaterOrEqual[Divide[E,Abs[M]],0],NotEqual[M,0],NotEqual[Sqrt[Divide[E,Abs[M]]],0]]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[E,Abs[M]]]],And[GreaterOrEqual[Divide[E,Abs[M]],0],NotEqual[M,0],NotEqual[Negative[Sqrt[Divide[E,Abs[M]]]],0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Abs[M],Divide[E,Exponent[k,2]]]],List[M]]Solution[{M,ExpressionSetPoint[ExpressionWithCondition[Divide[E,Exponent[k,2]],And[GreaterOrEqual[Divide[E,Exponent[k,2]],0],NotEqual[k,0]]],False,ReservedReal]}]Solution[{M,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[E,Exponent[k,2]]],And[GreaterOrEqual[Divide[E,Exponent[k,2]],0],NotEqual[k,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Abs[M],Divide[E,Exponent[k,2]]]],List[E]]Solution[{E,ExpressionSetPoint[ExpressionWithCondition[Product[Abs[M],Exponent[k,2]],NotEqual[k,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Abs[M],Divide[E,Exponent[k,2]]]],List[k]]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[E,Abs[M]]],And[GreaterOrEqual[Divide[E,Abs[M]],0],NotEqual[M,0],NotEqual[Sqrt[Divide[E,Abs[M]]],0]]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[E,Abs[M]]]],And[GreaterOrEqual[Divide[E,Abs[M]],0],NotEqual[M,0],NotEqual[Negative[Sqrt[Divide[E,Abs[M]]]],0]]],False,ReservedReal]}]Solution[{k,ExpressionSetPoint[ExpressionWithCondition[0,And[Equal[E,0],Equal[M,0]]],True,ReservedReal]}]Assign[m,Product[E,Exponent[k,-2]]]