百褶花卷

作者： Marvin

对称性极好的花卷，可以设计具备C(n)轴对称性的花卷，其中n为任意正整数。

用料

• Computer 1
• Keyboard 1
• Mouse 1
• Mathematica 1

百褶花卷的做法步骤

步骤 1

启动PC

步骤 2

启动Mathematica

步骤 3

制作电热锅。输入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

步骤 4

制作盘子。输入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

步骤 5

捏制花卷。输入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]，稍等片刻，即可得到香甜可口的花卷。

步骤 6

制作干净的棉布。Plot3D[z = Cos[x] +Cos[y], {x, -3, 3}, {y, -3, 3}, Mesh ->None, BoxStyle -> Directive[White, Opacity[0.0]], Axes -> None]，按下Shift+Enter

步骤 7

花卷入锅，焖蒸片刻。

步骤 8

花卷出锅，放至盘中，盖上棉布。

百褶花卷的小贴士

第五步中的PlotPoints可以调整制作时间。 2 + Sin[40 \[Phi]]/2为花卷方程，可以调节参数达到不同的效果。

菜谱创建时间：2011-12-02 16:42:43