怎么用mathematica画克莱因瓶？
答案:2 悬赏:0 手机版
解决时间 2021-02-18 08:21
- 提问者网友：雾里闻花香
- 2021-02-17 13:35
怎么用mathematica画克莱因瓶？
最佳答案
- 五星知识达人网友：几近狂妄
- 2021-02-17 14:05
代码如下：
Manipulate[
With[{bsc = Take[{{0, 0, 0}, {0, 0, 14}, {0, 0, 20}, {0, 0, 25},
{1.7, 0, 30}, {7, 0, 32}, {10, 0, 31.5}, {13, 0,
30}, {15, 0, 26},
{13, 0, 20}, {10, 0, 17.5}, {4, 0, 13.5}, {2.5, 0,
11}, {0.33, 0, 7},
{0.2, 0, 2.5}, {0, 0, 0}}, t + 2],
sizes =
Take[{6.5, 14, 4, 2.3, 2.2, 2.2, 2.2, 2.2, 2.2, 2.2, 2.2, 2.6,
3.3, 3.6,
4.3, 6.5}, t + 2]},
Graphics3D[{color, CapForm[None], Opacity[opacity],
Tube[BSplineCurve[bsc], sizes]}, Boxed -> False,
PlotRange -> {{-15, 17}, {-15, 15}, {0, 35}},
ViewPoint -> {0, -5, 0},
SphericalRegion -> True, ImageSize -> {550, 400}]], {{t, 1,
"times"}, 1, 14, 1},
{{opacity, 0.7}, 0.1, 1}, {{color, Yellow}, ColorSlider}]
Manipulate[
With[{bsc = Take[{{0, 0, 0}, {0, 0, 14}, {0, 0, 20}, {0, 0, 25},
{1.7, 0, 30}, {7, 0, 32}, {10, 0, 31.5}, {13, 0,
30}, {15, 0, 26},
{13, 0, 20}, {10, 0, 17.5}, {4, 0, 13.5}, {2.5, 0,
11}, {0.33, 0, 7},
{0.2, 0, 2.5}, {0, 0, 0}}, t + 2],
sizes =
Take[{6.5, 14, 4, 2.3, 2.2, 2.2, 2.2, 2.2, 2.2, 2.2, 2.2, 2.6,
3.3, 3.6,
4.3, 6.5}, t + 2]},
Graphics3D[{color, CapForm[None], Opacity[opacity],
Tube[BSplineCurve[bsc], sizes]}, Boxed -> False,
PlotRange -> {{-15, 17}, {-15, 15}, {0, 35}},
ViewPoint -> {0, -5, 0},
SphericalRegion -> True, ImageSize -> {550, 400}]], {{t, 1,
"times"}, 1, 14, 1},
{{opacity, 0.7}, 0.1, 1}, {{color, Yellow}, ColorSlider}]
全部回答
- 1楼网友：woshuo
- 2021-02-17 15:23
搜一下：怎么用mathematica画克莱因瓶？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯