应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】如何用Mathematica画三重积分区域图
51/1返回列表
查看: 2710  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

xxppyy

木虫 (小有名气)

[交流] 【求助】如何用Mathematica画三重积分区域图

如何用Mathematica画几张曲面围成的三重积分域的图形?
比如Ω由平面 z=0, y=1, z=y 与抛物柱面 y=x^2 围成.

[ Last edited by xxppyy on 2011-4-21 at 23:52 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-04-15 23:04:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

BIANJunsong

新虫 (初入文坛)
★
xxppyy(金币+2):谢谢参与
余泽成(金币-2): 不会金币就不给了，谢谢配合！ 2011-05-23 19:24:39
顶，可是我不会啊
回复此楼
2楼2011-05-23 14:13:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gsview

木虫 (小有名气)
★ ★ ★ ★ ★
xxppyy(金币+2):谢谢参与
xxppyy(金币+10): 有启发！但我希望图中只有这一立体本身，没有多余部分，是否也能做到？谢谢。 2011-05-27 22:24:53
dubo(金币+4): 谢谢应助 2011-05-28 14:08:53
aa = ParametricPlot3D[{x, x^2, z}, {x, -2, 2}, {z, 0, 3},
      DisplayFunction -> Identity];
bb = ParametricPlot3D[{x, y, 0}, {x, -2, 2}, {y, 0, 10},
      DisplayFunction -> Identity];
cc = ParametricPlot3D[{x, 1, z}, {x, -2, 2}, {z, 0, 10},
      DisplayFunction -> Identity];
dd = ParametricPlot3D[{x, y, y}, {x, -2, 2}, {y, 0, 10},
      DisplayFunction -> Identity];
Show[{aa, bb, cc, dd}, PlotRange -> {{-2, 2}, {0, 2}, {0, 2}},
  ViewPoint -> {2, 0.3, 1}, DisplayFunction -> $DisplayFunction]

结果：


将就着看吧！
赞一下(2人) 回复此楼
3楼2011-05-27 15:56:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木虫pursuer

木虫 (正式写手)
★ ★
xxppyy(金币+2):谢谢参与
dubo(金币+1): 多谢交流 2011-05-28 14:07:19
新奇，有点兴趣
回复此楼
4楼2011-05-27 17:00:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gsview

木虫 (小有名气)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 多谢应助 2011-05-28 14:07:00
dubo(金币+1): 我印象中matlab也可以，呵呵 2011-05-28 14:09:44
微尘、梦想(金币+14): 代发！ 2011-05-31 09:59:10
aa = ParametricPlot3D[{x, x^2, Min[z, x^2]}, {x, -1, 1}, {z, 0, 1},
      DisplayFunction -> Identity];
bb = ParametricPlot3D[{x, Max[y, x^2], 0}, {x, -1, 1}, {y, 0, 1},
      DisplayFunction -> Identity];
cc = ParametricPlot3D[{x, 1, z}, {x, -1, 1}, {z, 0, 1},
      DisplayFunction -> Identity];
dd = ParametricPlot3D[{x, Max[y, x^2], y}, {x, -1, 1}, {y, 0, 1},
      DisplayFunction -> Identity];
Show[{aa, bb, cc, dd}, PlotRange -> {{-1.5, 1.5}, {0, 1.5}, {0, 1.5}},
  ViewPoint -> {2, 0.3, 1}, DisplayFunction -> $DisplayFunction]


结果：
赞一下(4人) 回复此楼
5楼2011-05-28 13:30:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xxppyy 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭