打开电脑
启动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]
放入锅中清蒸。锅的制作请参照:http://www.xiachufang.com/recipe/1010026/