Mathematica 与胸罩

minjiecow

前而版主出了一题，呵呵，这里做了一个MIMI罩，如果多点分的话，我想我还会愿意做一条性感内裤！
如果胸罩大小不适，请自行调整，呵呵

1. 
   
2. a = 1.2;
   
3. tu2 = Plot[a x^2 - 2 r/3, {x, -1.1, 1.1}];
   
4. tu3 = Plot[ 0.7 (x + 3.5 r)^2 - 0.8, {x, -2, 1}];
   
5. tu4 = Plot[ 0.7 (x - 3.5 r)^2 - 0.8, {x, 0, 2}];
   
6. r = 3/4;
   
7. tu1 = ParametricPlot[{{r Cos[t] - 1.2 r, r Sin[t]}, {r Cos[t] + 1.2 r,
   
8.       r Sin[t]}}, {t, 0, 2 Pi}];
   
9. tu5 = Plot3D[0, {x, -2.2 r, 2.2 r}, {y, -0.8, 0},
   
10.   RegionFunction ->
    
11.    Function[{x, y,
    
12.      z}, ((x + 1.2 r)^2 +
    
13.         y^2 >= (r)^2) && (((x - 1.2 r)^2 + y^2 >= (r)^2)) && (y <
    
14.        a x^2 - 2 r/3) && (y < 0.7 (x + 3.5 r)^2 - 0.8) && (y <
    
15.        0.7 (x - 3.5 r)^2 - 0.8)], BoxRatios -> Automatic]; tu6 =
    
16. Plot3D[(-(x + 1.2 r)^2 - y^2 + (3/4)^2), {x, -2, 2}, {y, -1, 1},
    
17.   RegionFunction ->
    
18.    Function[{x, y,
    
19.      z}, ((x + 1.2 r)^2 + y^2 <= (3/4)^2) && (y <=
    
20.        a x^2 - 2 r/3) && (y <= 0.7 (x + 3.5 r)^2 - 0.8)],
    
21.   BoxRatios -> Automatic];
    
22. tu7 = Plot3D[(-(x - 1.2 r)^2 - y^2 + (3/4)^2), {x, -2, 2}, {y, -1, 1},
    
23.     RegionFunction ->
    
24.     Function[{x, y,
    
25.       z}, ((x - 1.2 r)^2 + y^2 <= (3/4)^2) && (y <=
    
26.         a x^2 - 2 r/3) && (y <= 0.7 (x - 3.5 r)^2 - 0.8)],
    
27.    BoxRatios -> Automatic];
    
28. tu8 = Show[tu5, tu6, tu7, PlotRange -> {{-3, 3}, {-2, 2}, {-1, 1}}];
    
29. tu9 = ParametricPlot3D[{{1.01 + r, 2 Cos[t],
    
30.      0.8 Sin[t] - 0.75}, {-1.01 - r, 2 Cos[t],
    
31.      0.8 Sin[t] - 0.75}}, {t, -3 Pi/5, 1.15 Pi/3}, {r, 0, 0.1},
    
32.    Mesh -> False];
    
33. tu10 = ParametricPlot3D[{2 Cos[t], r, 1.1 Sin[t] - 0.6}, {t, 4.8 Pi/6,
    
34.      Pi + 7.2 Pi/6}, {r, -0.8, -.2}];
    
35. Show[tu8, tu9, tu10, PlotRange -> {{-3, 3}, {-2, 2}, {-2, 1}}]
    

复制代码

minjiecow

;P呵呵，虽然有点不务正业，但当做消遣也无妨！

nickcoom

哥们，您太有才了，大小还参数化了。

jywj108

把math用在这里太奢侈了，这些应该用CAD软件搞定更合适，mathematica不会是用来开发这个的吧？！！

chenju2121

太有才了！

ingo

mathematica的主要用途是干什么的呢？

敦诚

我看出来了啊！math板块在我们freddymusic的带领下越来越色情了啊！哈哈哈

wushi111

这个么。。。呵呵。 有趣

minjiecow

哥我做的胸罩承载的数学，展现的是Mathematica的做图技巧！
你发现了吗，胸罩里有：两个抛物面，一个平面，三个椭圆柱面。
我的技术还太粗糙，会有不合身的地方，呵呵

fsyshixi

有才有才！！！

liysman

不错~论坛里好像有个哥们的头像就是个胸罩，而且那是个胸罩的应力图，都是高级知识分子啊。

windhair

我只能说,:"真有生活!"!:D

albert2009

有才  很有爱嘛

Lyncher

“创意由性欲而来”，印证了！！

乱世野鬼

牛逼呀！太有才了！

东西南北

牛人   哈哈

xiaoqing8569

:)配色差了点

hf2027

确实很有意思·

newtang

江上带有人才出 各领风骚数百年

mrmrw

搞这个东西的仁兄，的确是第1流的内衣数字化设计的高手！