牟盒方盖

windtalkers · 发表于 2011-5-13 22:45:20

本帖最后由 windtalkers 于 2011-5-20 00:01 编辑

有一个形状，叫“牟盒方盖”，它由两个垂直柱面相交的部分形成。
我用ContourPlot3D[{x^2+y^2==1,x^2+z^2==1},{x,-2,2},{y,-2,2},{z,-2,2}]会画出这两个垂直相交的柱面，但是如果仅仅画这个方盖，该怎么做呢？

TBE_Legend · 发表于 2011-5-14 12:57:09

RegionPlot3D[
x^2 + y^2 <= 1 && x^2 + z^2 <= 1, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]

复制代码

windtalkers · 发表于 2011-5-14 13:33:58

本帖最后由 windtalkers 于 2011-5-20 00:01 编辑

2# TBE_Legend
感谢{:2_37:} ！但是，还有其他的命令吗？比如，只绘制这个方盖的表面图。RegionPlot3D，这个命令有点占资源。

guocong89 · 发表于 2011-5-15 09:12:26

3# windtalkers

ContourPlot3D[{x^2 + y^2 == 1, x^2 + z^2 == 1}, {x, -2, 2}, {y, -2,
2}, {z, -2, 2},
RegionFunction ->
Function[{x, y, z}, Evaluate[x^2 + y^2 <= 1 && x^2 + z^2 <= 1]]]

复制代码

你说的占用资源比较多是个什么概念?

照你的意思,使用这个要慢得多

windtalkers · 发表于 2011-5-15 11:32:20

4# guocong89
抱歉，可能是我的电脑配置的原因，用RegionPlot3D时，我取了100个点（PlotPoints->100），能生成图，但是用鼠标拖动它时，电脑太卡。
按照你的方法，能否加上其它的参数？消去缺口。

minjiecow · 发表于 2011-5-19 22:43:58

这个肯定能让你满意！
ParametricPlot3D[{{r Cos[t], r Sin[t], Sqrt[1 - r^2 Cos[t]^2]}, {r Cos[t], r Sin[t], -Sqrt[1 - r^2 Cos[t]^2]}, {r Cos[t], Sqrt[1 - r^2 Cos[t]^2], r Sin[t]}, {r Cos[t], -Sqrt[1 - r^2 Cos[t]^2], r Sin[t]}}, {r, 0,
1}, {t, 0, 2 Pi}]

windtalkers · 发表于 2011-5-19 23:52:24

非常感谢！

guocong89 · 发表于 2011-5-20 21:24:16

6# minjiecow
侧面曲线真好看

minjiecow · 发表于 2011-5-21 16:24:25

是吗？这个我还真没有注意呢！

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[图形图像] 牟盒方盖

本帖子中包含更多资源

本帖子中包含更多资源

评分