![下厨房的奇葩们=____,=的封面](https://i2.chuimg.com/50399cd2877911e6a9a10242ac110002_3072w_2048h.jpg?imageView2/1/w/300/h/140/interlace/1/q/75)
Computer | 1 |
Keyboard | 1 |
Mouse | 1 |
Mathematica | 1 |
打开电脑
启动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]