EquationSymbolicSolveRequest[List[Equal[Product[b,Exponent[x,2]],Sqrt[y]]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Sqrt[Divide[Sqrt[y],b]],And[GreaterOrEqual[y,0],GreaterOrEqual[Divide[Sqrt[y],b],0],NotEqual[b,0]]],False,ReservedReal]}]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Negative[Sqrt[Divide[Sqrt[y],b]]],And[GreaterOrEqual[y,0],GreaterOrEqual[Divide[Sqrt[y],b],0],NotEqual[b,0]]],False,ReservedReal]}]Solution[{x,ExpressionWithCondition[ReservedEmpty,And[Equal[b,0],GreaterThan[y,0]]]}]Solution[{x,ExpressionWithCondition[ReservedReal,And[Equal[b,0],Equal[y,0]]]}]EquationSymbolicSolveRequest[List[Equal[Product[b,Exponent[x,2]],Sqrt[y]]],List[y]]Solution[{y,ExpressionSetPoint[Product[Exponent[b,2],Exponent[x,4]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[b,Exponent[x,2]],Sqrt[y]]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[Divide[Sqrt[y],Exponent[x,2]],And[GreaterOrEqual[y,0],NotEqual[x,0]]],False,ReservedReal]}]Solution[{b,ExpressionWithCondition[ReservedEmpty,And[Equal[x,0],GreaterThan[y,0]]]}]Solution[{b,ExpressionWithCondition[ReservedReal,And[Equal[x,0],Equal[y,0]]]}]GraphingShow3D[PlotEq3D[Equal[Product[b,Exponent[x,2]],Sqrt[y]]],Options[Option[ArgRangeValue,b,0,2,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,18],Option[RangeZ,-2,2]]]GraphingShow3D[Plot3D[Product[b,Exponent[x,2]]],Plot3D[Sqrt[y]],Options[Option[ArgRangeValue,b,0,2,2],Option[ShowWireframe,false],Option[ViewAngle,17,-106,86],Option[RangeX,-2,2],Option[RangeY,-2,2],Option[RangeZ,-1,5]]]GraphingPlotEq2D[Equal[Product[b,Exponent[x,2]],Sqrt[y]]]