支持奥运，Mathematica作的奥运五环(2D和3D)

FreddyMusic

This is my new design ---  Olymic Audi.

1. 
   
2. 
   
3. ParametricPlot3D[{
   
4.   {(5 + Cos[v]/2) Cos[u], (5 + Cos[v]/2) Sin[
   
5.      u], (Sin[v] + Sqrt[2]*Sin[u + Pi/4 + Pi])/2}, (*blue*)
   
6.   {5 + (5 + Cos[v]/2) Cos[u], -5 + (5 + Cos[v]/2) Sin[u], (Sin[v] +
   
7.       Sqrt[2]*Sin[u + Pi/4])/2}, (*yellow*)
   
8.   {10 + (5 + Cos[v]/2) Cos[u], -10 + (5 + Cos[v]/2) Sin[u], (Sin[v] +
   
9.       Sqrt[2]*Sin[u + Pi/4 + Pi])/2} ,(*black*)
   
10.   {15 + (5 + Cos[v]/2) Cos[u], -15 + (5 + Cos[v]/2) Sin[u], (Sin[v] +
    
11.       Sqrt[2]*Sin[u + Pi/4])/2}, (*green*)
    
12.   {20 + (5 + Cos[v]/2) Cos[u], -20 + (5 + Cos[v]/2) Sin[u], (Sin[v] +
    
13.       Sqrt[2]*Sin[u + Pi/4 + Pi])/2} (*red*)
    
14.   }, {u, 0, 2 Pi}, {v, 0, 2 Pi},
    
15. PlotStyle -> {RGBColor[0, .5, .76], (*blue*)
    
16.    RGBColor[251/256, 178/256, 49/256],(*yellow*)
    
17.    RGBColor[34/256, 30/256, 29/256],(*black*)
    
18.    RGBColor[1/256, 156/256, 88/256] ,(*green*)
    
19.    RGBColor[235/256, 29/256, 42/256](*red*)
    
20.    }, Mesh -> None]
    
21. 
    

复制代码

The note book is ready for a perfect olymic rings.

littlels

FreddyMusic,很佩服你，这篇帖子让我明白了什么叫“抛砖引玉”。
其实数学方面我真的很差，平面和3d的五环都是在Mathematica现成的帮助中修改而来的，我会努力学学Mathematica，希望以后还能得到你的帮助，谢谢！

dim

不错。
能否作成动画的效果？

FreddyMusic

littlels

The problem is not completely finished.

The Olympic torch is running like so.

quekuan

很不错，下此我一定拿个作品来参赛

xiaozhuzhu741

嗯，看过了，做的挺好的，学习！:)

nmfyl

牛人！再细腻些更好

ajacky007

很长见识呀,顶以下

whsun

很好很有意思

笨笨

精典

sfwei01

好东西，极力赞一个！

sew

太牛了，得好好研究研究！

sticku

看来牛人还挺多饿~~~~

ch_j1985

大开眼界！在论坛感到了自己的渺小……

zengjinlove

做的不错 苦苦  顶个

zery

请问是用什么做的啊？

nklaijiayu

太强了～～尤其是3D的