EquationSymbolicSolveRequest[List[Equal[Exponent[x,2],Product[Abs[y],z]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Product[z,Abs[y]]],GreaterOrEqual[Product[z,Abs[y]],0]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Product[z,Abs[y]]]],GreaterOrEqual[Product[z,Abs[y]],0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Exponent[x,2],Product[Abs[y],z]]],List[z]]Solution[{z,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[x,2],Abs[y]],NotEqual[y,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Exponent[x,2],Product[Abs[y],z]]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[x,2],z],And[GreaterOrEqual[Divide[Exponent[x,2],z],0],NotEqual[z,0]]],False,ReservedReal]}]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Exponent[x,2],z]],And[GreaterOrEqual[Divide[Exponent[x,2],z],0],NotEqual[z,0]]],False,ReservedReal]}]GraphingShow3D[PlotEq3D[Equal[Exponent[x,2],Product[Abs[y],z]]],Options[Option[ShowWireframe,false],Option[ViewAngle,17,-106,86]]]