EquationSymbolicSolveRequest[List[Equal[y,Sqrt[Abs[Product[x,z]]]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[y,2],z],NotEqual[z,0]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Exponent[y,2],z]],NotEqual[z,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,Sqrt[Abs[Product[x,z]]]]],List[z]]Solution[{z,ExpressionSetPoint[ExpressionWithCondition[Divide[Exponent[y,2],x],NotEqual[x,0]],False,ReservedReal]}]Solution[{z,ExpressionSetPoint[ExpressionWithCondition[Negative[Divide[Exponent[y,2],x]],NotEqual[x,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[y,Sqrt[Abs[Product[x,z]]]]],List[y]]Solution[{y,ExpressionSetPoint[Sqrt[Abs[Product[x,z]]],False,ReservedReal]}]GraphingShow3D[PlotZX3D[Sqrt[Abs[Product[x,z]]]],Options[Option[ShowWireframe,false],Option[ViewAngle,17,-106,86]]]WorksheetAssign[y,Sqrt[Abs[Product[x,z]]]]Sqrt[Abs[Product[x,z]]]GraphingShow2D[PlotEq2D[Equal[y,Sqrt[Abs[Product[x,z]]]]]]Assign[y,Exponent[Abs[Product[x,z]],1/2]]