EquationSymbolicSolveRequest[List[Equal[Product[a,b],3]],List[b]]Solution[{b,ExpressionSetPoint[ExpressionWithCondition[Divide[3,a],NotEqual[a,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[a,b],3]],List[a]]Solution[{a,ExpressionSetPoint[ExpressionWithCondition[Divide[3,b],NotEqual[b,0]],False,ReservedReal]}]GraphingShow2D[PlotEq2D[Equal[Product[x,y],3]]]GraphingShow2D[PlotPolar2D[Equal[Product[x,y],3]],Options[Option[ArgRangeValue,x,0,1.78,2],Option[ArgRangeValue,y,0,2,2],Option[RangeX,-1,1],Option[RangeY,-1,1]]]GraphingShow3D[PlotEq3D[Equal[Product[x,y],3]],Options[Option[ShowWireframe,false],Option[ViewAngle,17,-106,86]]]