Mathematica 的“财”与“色”

FreddyMusic

今天看到 一个 Pro-E 建模 搞得蛮好。

http://forum.simwe.com/thread-900460-1-1.html

谁有本事用Mathematica 也画个元宝，我给他  + 1 分技术

谁要是有能耐，画个胸罩 + 2 分

弦犹在耳

画个胸罩 + 2 分 :funk:

FreddyMusic

胸罩不是那么好画的，你能画出来就 + 2 分。

ggggwhw

1. a = 1;
   
2. b = 2;
   
3. c = 3;
   
4. tu[1] = ParametricPlot3D[{a*u*Cos[v], b*u*Sin[v], c*u}, {u, 3, 5}, {v,
   
5.      0, 2 Pi}, Mesh -> None, Boxed -> False, Axes -> False];
   
6. tu[2] = ParametricPlot3D[{a*u*Cos[v], b*u*Sin[v], 9}, {u, 0, 3}, {v,
   
7.     0, 2 Pi}, Mesh -> None];
   
8. tu[3] = ParametricPlot3D[{3*Sin[u]*Cos[v], 3*Sin[u]*Sin[v],
   
9.     11 + c*Cos[u]}, {u, 0, Pi/2}, {v, 0, 2 Pi}, Mesh -> None];
   
10. tu[4] = ParametricPlot3D[{5.7 a*Sin[u]*Cos[v], 5.7 b*Sin[u]*Sin[v],
    
11.     18 - 2 c*Cos[u]}, {u, 0, Pi/3}, {v, 0, 2 Pi}, Mesh -> None];
    
12. Show[Table[tu[i], {i, 1, 4}]]

复制代码

有几个人见过元宝呢，参数你自己确定吧，如果加上ＰｌｏｔＰｏｉｎｔｓ－＞２００可以取消锯齿．用Ｃｏｌｏｒ函数可以改变颜色．

FreddyMusic

方法不错,就是成色差了点。




我了为改了改。

1. PlotStyle -> {Orange, Specularity[White, 10]}

复制代码

miaoyundong

胸罩~~~~~~~~

FreddyMusic

画得不像，也不美。不加分。

miaoyundong

抽象一下~~~~~

HyperGroups

呵呵，比较简单对称了。
有空再细化细化，什么带子什么的。

zsmiup

编程高手 无聊的时候

叹为观止

cheerupbeer

太有才了！下次画个篮球更好！:P

cheerupbeer

太有才了！下次画个篮球更好！:P