| 查看: 2971 | 回复: 4 | |||
[交流]
【求助】如何用Mathematica画三重积分区域图
|
|
如何用Mathematica画几张曲面围成的三重积分域的图形? 比如Ω由平面 z=0, y=1, z=y 与抛物柱面 y=x^2 围成. [ Last edited by xxppyy on 2011-4-21 at 23:52 ] |
回复此楼» 猜你喜欢
奇怪，两个人的filecode固定段从头到尾一模一样
已经有9人回复
-
是这周出结果还是下周出结果？
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有4人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有27人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重新画网格 说没有reference point
已经有4人回复
- 如何利用word 或者ultra-edit 将相同后缀的信息一次性提取出来
已经有7人回复
- 请教一个Mathematica积分的问题（重金求解）
已经有6人回复
- 旋转式压片机如何调节重量差异？
已经有14人回复
- 【原创】在WORD中使用Mathematica画的图形的体会
已经有13人回复
- 【求助】Mathematica画图问题
已经有7人回复
- 【求助】三重积分
已经有9人回复
- 【求助】三乙胺的重蒸问题
已经有4人回复
- 【讨论】word 2007如何快速画三线表
已经有3人回复
» 抢金币啦！回帖就可以得到:
-
北京理工大学集成电路学院-柔性电子器件与智造研究所-2027级博士招生
+1/468
-
武汉女征男
+2/216
-
中科院招聘博士后及科研助理
+2/214
-
西安交大马伟/王亚洲课题组诚聘联培学生多名/科研助理/博士-有机生物电子学方向
+1/90
-
3,4-二(三甲基硅氧基)-1-丁烯（CAS：89543-84-0）
+1/86
-
威格科技：为化学合成打造全流程惰性气氛解决方案
+1/85
-
十二烷基溴化吡啶（CAS：104-73-4）
+1/84
-
三(三甲基硅基)硼酸酯（CAS：4325-85-3）
+1/84
-
香港理工大学PhD/RA/PostDoc in OR/AI/OM
+1/82
-
招收本科/研究生实习生（2026年9月开始可以长期实习）
+1/82
-
广东医科大学博士后招聘-基础医学，生信等方向
+1/44
-
2027 Chemical Engineering Ph.D 招生
+1/39
-
无机非金属材料科学相关 实习研发人员招聘
+1/32
-
同济大学环境学院肖倩课题组2026年补充招收推免生
+1/26
-
中科院理化所热声热机团队招聘电气工程专业(电机方向)博士后/特别研究助理
+1/19
-
澳大利亚 Murdoch University 全奖博士招生（3个名额）地质化工冶金领域
+1/9
-
有合作举办scopus会议的吗？
+1/5
-
海南大学化学院-科研助理招聘 （可读博，可与华中科技大学，天津大学联培）+博后招聘
+1/5
-
香港理工大学殷骏课题组诚聘1 名博士后以及2 名博士生
+1/4
-
天津大学张小岩教授团队招收2027级推免生（光电子能源、热管理材料与器件、微纳传感）
+1/4
2楼2011-05-23 14:13:56
★ ★ ★ ★ ★
xxppyy(金币+2):谢谢参与
xxppyy(金币+10): 有启发！但我希望图中只有这一立体本身，没有多余部分，是否也能做到？谢谢。 2011-05-27 22:24:53
dubo(金币+4): 谢谢应助 2011-05-28 14:08:53
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] 结果：  将就着看吧！ |
3楼2011-05-27 15:56:12
4楼2011-05-27 17:00:09
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫(金币+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
小木虫(金币+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] 结果：  |
5楼2011-05-28 13:30:29
