EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[y,2],z],Abs[x]]],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]}]EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[y,2],z],Abs[x]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Product[z,Abs[x]]],And[GreaterOrEqual[Product[z,Abs[x]],0],NotEqual[z,0]]],False,ReservedReal]}]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Product[z,Abs[x]]]],And[GreaterOrEqual[Product[z,Abs[x]],0],NotEqual[z,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[y,2],z],Abs[x]]],List[z]]Solution[{z,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[y,2],Abs[x]],NotEqual[x,0]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Divide[Exponent[y,2],z],Abs[x]]],Options[Option[ArgRangeValue,z,0,2,2],Option[RangeX,-2,2],Option[RangeY,-2.055,2.055]]]GraphingShow3D[PlotEq3D[Equal[Divide[Exponent[y,2],z],Abs[x]],Options[Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-2,11]]],Options[Option[ShowWireframe,false],Option[ViewAngle,33.086,-140.846,47.194],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-2,11]]]EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[a,2],m],Abs[n]]],List[n]]Solution[{n,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[a,2],m],And[GreaterOrEqual[Divide[Exponent[a,2],m],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{n,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Exponent[a,2],m]],And[GreaterOrEqual[Divide[Exponent[a,2],m],0],NotEqual[m,0]]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[a,2],m],Abs[n]]],List[m]]Solution[{m,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[a,2],Abs[n]],NotEqual[n,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Divide[Exponent[a,2],m],Abs[n]]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Product[m,Abs[n]]],And[GreaterOrEqual[Product[m,Abs[n]],0],NotEqual[m,0]]],False,ReservedReal]}]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Product[m,Abs[n]]]],And[GreaterOrEqual[Product[m,Abs[n]],0],NotEqual[m,0]]],False,ReservedReal]}]