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

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

[ Last edited by xxppyy on 2011-4-21 at 23:52 ]

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有7人回复
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急已经有6人回复
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急已经有6人回复
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急已经有7人回复
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急已经有5人回复
售SCI文章，我:8O.5.5.1O.54,科目全,可十急已经有5人回复
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有6人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有4人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有7人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有6人回复

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

重新画网格说没有reference point 已经有4人回复
如何利用word 或者ultra-edit 将相同后缀的信息一次性提取出来已经有7人回复
请教一个Mathematica积分的问题（重金求解）已经有6人回复
旋转式压片机如何调节重量差异？已经有14人回复
【原创】在WORD中使用Mathematica画的图形的体会已经有13人回复
【求助】Mathematica画图问题已经有7人回复
【求助】三重积分已经有9人回复
【求助】三乙胺的重蒸问题已经有4人回复
【讨论】word 2007如何快速画三线表已经有3人回复

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

查看全部散金贴

1楼 2011-04-15 23:04:53

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

gsview

木虫 (小有名气)

应助: 4 (幼儿园)
金币: 2406.9
帖子: 146
在线: 234.8小时
虫号: 443276

★ ★ ★ ★ ★
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的回帖

查看全部 5 个回答

BIANJunsong

新虫 (初入文坛)

应助: 2 (幼儿园)
金币: 326.5
帖子: 30
在线: 41.2小时
虫号: 1239174

★
xxppyy(金币+2):谢谢参与
余泽成(金币-2): 不会金币就不给了，谢谢配合！ 2011-05-23 19:24:39

顶，可是我不会啊

回复此楼

2楼2011-05-23 14:13:56

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

gsview

木虫 (小有名气)

应助: 4 (幼儿园)
金币: 2406.9
帖子: 146
在线: 234.8小时
虫号: 443276

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫(金币+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的回帖

24小时热门版块排行榜

xxppyy

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

» 猜你喜欢

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

» 抢金币啦！回帖就可以得到: 查看全部散金贴

gsview

BIANJunsong

gsview

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

查看全部散金贴