田螺祭

可怜的田螺们~

用料  

田螺祭的做法  

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]

小贴士

食用前请先二次元化。