清蒸苹果

打开电脑

启动Mathematica

制作苹果
ParametricPlot3D[{(1 + Cos[v]) Cos[u] +
  0.085 Cos[5 u] + (0.994 v/\[Pi])^100, (1 + Cos[v]) Sin[u],
 6 Sin[v] + 2 Cos[v] -
  0.7 Log[1 - v/\[Pi]]}, {u, -\[Pi], \[Pi]}, {v, -\[Pi], \[Pi]},
Mesh -> False, BoxRatios -> 1, Boxed -> False, Axes -> None,
PlotStyle -> {Green, Specularity[Yellow, 10]}, ImageSize -> 500]

放入锅中清蒸。锅的制作请参照：https://www.xiachufang.com/recipe/1010026/