田螺祭

作者： Marvin

可怜的田螺们~

用料

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

田螺祭的做法步骤

步骤 1

打开电脑

步骤 2

启动Mathematica

步骤 3

挑选田螺的样式。输入下列代码并 Shift+Enter. style = {Red, LightBlue, Gray, Purple, Yellow, Green, Cyan, Magenta, Brown, Orange, Pink};

步骤 4

制作田螺。 输入下列代码并 Shift+Enter. viviparidae = ParametricPlot3D[{1.16^v Cos[v] (1 + Cos[u]), -1.16^v Sin[ v] (1 + Cos[u]), -2 1.16^v (1 + Sin[u])}, {u, 0, 2 Pi}, {v, -15, 6}, Mesh -> False, PlotStyle -> Evaluate[RandomChoice[style]], PlotRange -> All, Boxed -> False, Axes -> None]

步骤 5

制作多个田螺。 输入下列代码并 Shift+Enter. Grid[{{vivshow, vivshow}, {vivshow, vivshow}}, ItemSize -> 10]

菜谱创建时间：2012-07-19 23:22:19