EquationSymbolicSolveRequest[List[Equal[Product[x,y],3]],List[x]]Solution[{x,ExpressionSetPoint[ExpressionWithCondition[Divide[3,y],NotEqual[y,0]],False,ReservedReal]}]EquationSymbolicSolveRequest[List[Equal[Product[x,y],3]],List[y]]Solution[{y,ExpressionSetPoint[ExpressionWithCondition[Divide[3,x],NotEqual[x,0]],False,ReservedReal]}]GraphingPlotEq2D[Equal[Product[x,y],3]]GraphingShow3D[PlotEq3D[Equal[Product[x,y],3]],Options[Option[ShowWireframe,false],Option[ViewAngle,7.604,-149.946,86.142]]]EquationSymbolicSolveRequest[List[Equal[Product[2,y],3]],List[y]]Solution[{y,ExpressionSetPoint[3/2,False,ReservedReal],1.5}]EquationSymbolicSolveRequest[List[Equal[Product[90,y],3]],List[y]]Solution[{y,ExpressionSetPoint[1/30,False,ReservedReal],0.0333333333333}]EquationSymbolicSolveRequest[List[Equal[Product[12,y],3]],List[y]]Solution[{y,ExpressionSetPoint[1/4,False,ReservedReal],0.25}]