【Mathematica】三种画爱心的方法

1. 爱心第一种

ContourPlot3D[{x^2 + (9 y^2)/4 + z^2 - 1}^3 - x^2 z^3 - (9 y^2 z^3)/
   80 == 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 PlotTheme -> "Classic"]

 或更改样式

ContourPlot3D[{x^2 + 9/4*y^2 + z^2 - 1}^3 - x^2*z^3 - 9/80*y^2*z^3 == 
  0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 ContourStyle -> {Magenta, Specularity[White, 5]}]

 2. 爱心第二种

ContourPlot3D[(x^2 + 2 y^2 + z^2 - 1)^3 - x^2 z^3 - (y^2 z^3)/10 == 
  0, {x, -1.3, 1.3}, {y, -1, 1}, {z, -1.3, 1.3}, PlotPoints -> 100, 
 BoxRatios -> Automatic, Mesh -> None, Axes -> False, 
 ContourStyle -> {Magenta, Specu