田螺祭

打开电脑

启动Mathematica

挑选田螺的样式。输入下列代码并 Shift+Enter.

style = {Red, LightBlue, Gray, Purple, Yellow, Green, Cyan, Magenta,
  Brown, Orange, Pink};

制作田螺。
输入下列代码并 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]

制作多个田螺。
输入下列代码并 Shift+Enter.

Grid[{{vivshow, vivshow}, {vivshow, vivshow}}, ItemSize -> 10]