0,{x,- 1.4, 1.4},{y,- 1.4, 1.4},{z,- 1.4, 1.4},plot points-& gt; 30,
Axis-> False, lighting-> Automatic,
Outline style->; {RGBColor[ 1,. 5,. 5]},Mesh-& gt; None]
three-dimensional
The plane upstairs was discouraged, so I changed it to hearts:
regionplot[(x^2+y^2- 1)^3-x^2 y^3 & lt; = 0,{x,-2,2},{y,-2,2},
plot style-& gt; Red]