如何运用Mathematica制作一个心形的数学函数图像?我要代码

Question

就是作一个心形的函数图像

Answer 1

ContourPlot3D[(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}, PlotPoints -> 30,
Axes -> False, Lighting -> Automatic,
ContourStyle -> {RGBColor[1, .5, .5]}, Mesh -> None]

立体的

楼上的平面灰心我给改成红心了：
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2},
PlotStyle -> Red]

Answer 2

形式最简单流传最广的心形线,莫过于莱布尼茨的:
PolarPlot[ 1 - Sin[x], {x, -Pi, Pi}]
通过广大Geek们努力,在保持形式简洁的前提下,这个更好看些:
RegionPlot[(x^2 + y^2 - 1)^3 - x^2 y^3 <= 0, {x, -2, 2}, {y, -2, 2}]