Current location - Training Enrollment Network - Mathematics courses - How to make a heart-shaped mathematical function image with Mathematica? I want the password.
How to make a heart-shaped mathematical function image with Mathematica? I want the password.
contourplot 3d[(2 x^2+y^2+z^2- 1)^3-(x^2 z^3)/ 10-y^2 z^3 = =

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]