| 查看: 2668 | 回复: 4 | |||
[交流]
【求助】如何用Mathematica画三重积分区域图
|
|
如何用Mathematica画几张曲面围成的三重积分域的图形? 比如Ω由平面 z=0, y=1, z=y 与抛物柱面 y=x^2 围成. [ Last edited by xxppyy on 2011-4-21 at 23:52 ] |
回复此楼» 猜你喜欢
自荐读博
已经有8人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
-
自然科学基金委宣布启动申请书“瘦身提质”行动
已经有4人回复
-
求个博导看看
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 重新画网格 说没有reference point
已经有4人回复
- 如何利用word 或者ultra-edit 将相同后缀的信息一次性提取出来
已经有7人回复
- 请教一个Mathematica积分的问题（重金求解）
已经有6人回复
- 旋转式压片机如何调节重量差异？
已经有14人回复
- 【原创】在WORD中使用Mathematica画的图形的体会
已经有13人回复
- 【求助】Mathematica画图问题
已经有7人回复
- 【求助】三重积分
已经有9人回复
- 【求助】三乙胺的重蒸问题
已经有4人回复
- 【讨论】word 2007如何快速画三线表
已经有3人回复
» 抢金币啦！回帖就可以得到:
-
中国科学院大学纳米科学与工程学院唐智勇（院长）-张银团队招聘启事
+1/177
-
成都理工大学全国重点实验室公开诚聘绿色有机合成方向联培生及科研助理
+1/80
-
最新看到一个观点：说高校教师的斩杀线是青基和面上
+1/64
-
87 年东北小哥定居苏州（沪杭亦可），诚寻携手余生的你
+1/60
-
急招碳材料相关特任研究人员/博士后/科研助理/26级博士和硕士
+1/49
-
加拿大卡尔加里大学 量子通信和信息方向 硕士/博士招生
+1/46
-
2026博士申请——有机化学\计算化学\药物化学方向
+1/44
-
从业之感悟
+2/32
-
长江学者团队招聘药学/生物信息学等方向高校教师7名(地点杭州、有事业编)+博后5名
+1/29
-
南京大学 统计与机器学习理论方向 博士招生
+1/27
-
大叔征婚
+1/17
-
南京工业大学招收2026年全日制学术博士（供热、供燃气通风与空调）
+1/13
-
国家级人才课题组招收2026年入学博士
+1/11
-
博士/硕士招生
+1/11
-
重庆大学前沿院，黄小洋教授课题组，招收2026年非均相催化方向学术博士2名
+1/9
-
求博导收留
+1/5
-
2025年申请的陕西省自然科学基础研究计划- 重点项目-青年项目（B类）
+1/4
-
福州大学梁宇航副教授招收2026年申核制博士研究生/硕士研究生（理论计算方向）
+1/3
-
Discussion最难写？因为没有用对工具吧。
+1/2
-
上海理工大学 生物医学工程专业 招收2026年全日制博士生一名
+1/2
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