Marvin
百褶花卷
0
人做过这道菜
对称性极好的花卷，可以设计具备C(n)轴对称性的花卷，其中n为任意正整数。
用料
| Computer | 1 |
| Keyboard | 1 |
| Mouse | 1 |
| Mathematica | 1 |
百褶花卷的做法
-
启动PC
-
启动Mathematica
-
制作电热锅。输入Plot3D[{x^2 + y^2, -x^2 - y^2}, {x, -2, 2}, {y, -2, 2}, PlotRange -> {0, 4}, RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 4], BoxRatios -> Automatic, Mesh -> None, BoxStyle -> Directive[White, Opacity[0.0]], Axes -> None]，然后按下Shift+Enter
-
制作盘子。输入Plot3D[{z = x^4 + y^4}, {x, -1, 1}, {y, -1, 1}, PlotRange -> {0, 1}, RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 1], Mesh -> None, BoxStyle -> Directive[White, Opacity[0.0]], Axes -> None]，然后按下Shift+Enter
-
捏制花卷。输入SphericalPlot3D[2 + Sin[40 \[Phi]]/2, {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi}, Mesh -> None, PlotPoints -> 100, BoxStyle -> Directive[White, Opacity[0.0]], Axes -> None]，稍等片刻，即可得到香甜可口的花卷。
-
制作干净的棉布。Plot3D[z = Cos[x] +Cos[y], {x, -3, 3}, {y, -3, 3}, Mesh ->None, BoxStyle -> Directive[White, Opacity[0.0]], Axes -> None]，按下Shift+Enter
-
花卷入锅，焖蒸片刻。
-
花卷出锅，放至盘中，盖上棉布。
小贴士
第五步中的PlotPoints可以调整制作时间。
2 + Sin[40 \[Phi]]/2为花卷方程，可以调节参数达到不同的效果。
2 + Sin[40 \[Phi]]/2为花卷方程，可以调节参数达到不同的效果。
