加载中…《一休哥》中奇妙的陀螺
(2011-11-24 20:43:28)
标签：
奇妙的陀螺一休哥mathmatica娱乐 |
分类： 小爱好 |
《聪明的一休第79集》中说到的“奇妙的陀螺”，就是在陀螺的上面画一种比较特殊的图案，在旋转的过程中就可以看到七彩的颜色，甚是好看（http://www.bukade.com/cartoon/yixiuge/tudou_79.html）
其实有一个德国人也知道这种奇妙的陀螺，突然有一种冲动想要把它设计出来，但是身边没有纸张，就想先把这种图画出来，在打印出来就好了。想了好久还是用Mathematica设计一下哈哈
代码如下（有兴趣的朋友可以继续完善）：
Manipulate[ Graphics[{Black, Disk[{0, 0}, 25,
{Pi + t, 2 Pi + t}], Black,Circle[{0, 0}, 25, {0 + t, Pi + t}],
Thickness[0.017],Table[Circle[{0, 0}, r, {0 + t, Pi/4 + t}], {r,
{2, 4, 6}}],Table[Circle[{0, 0}, r + 6, {Pi/4 + t, Pi/2 + t}], {r,
{2, 4, 6}}],Table[Circle[{0, 0},r + 12, {Pi/2 + t, 3 Pi/4 + t}],
{r, {2, 4, 6}}],Table[Circle[{0, 0},r + 18, {3 Pi/4 + t, Pi + t}],
{r, {2, 4, 6}}]}], {t, -2000, 2000}]。
但动起来好像没有那种效果，等实物做出来再检验一下
喜欢
0
赠金笔