24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2101  |  回复: 5

dxwbucea

铁虫 (著名写手)

[交流] 用Mathematca软件画三维空间立体图形已有3人参与

各位大侠,请来交流一下用Mathematca软件画三维空间立体图形的经验吧。
譬如:画曲面z=xy、z=0 及 x+y=1 所围成的立体图形。
我用  Plot3D[]  和  ParametricPlot3D[]  两个函数来画,效果都不是很理想。
请指导交流。
回复此楼

» 猜你喜欢

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

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有2个 )

gsview

木虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖
dxwbucea: 回帖置顶 2012-02-09 14:38:58
t1 = ParametricPlot3D[{x, Min[y, 1 - x], Min[x*y, x(1 - x)]}, {x, 0, 1}, {y,
      0, 1}, DisplayFunction -> Identity]
t2 = ParametricPlot3D[{x, 1 - x, Min[z, x*(1 - x)]}, {x, 0, 1}, {z, 0, 1},
      DisplayFunction -> Identity];
t3 = ParametricPlot3D[{x, Min[y, 1 - x], 0}, {x, 0, 1}, {y, 0, 1},
      DisplayFunction -> Identity];
Show[{t1, t2, t3}, DisplayFunction -> $DisplayFunction,
  ViewPoint -> {2, -1, 1}]

» 本帖已获得的红花(最新10朵)

4楼2012-02-09 14:27:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dxwbucea

铁虫 (著名写手)

送鲜花一朵
引用回帖:
: Originally posted by gsview at 2012-02-09 14:27:18:
t1 = ParametricPlot3D[{x, Min[y, 1 - x], Min[x*y, x(1 - x)]}, {x, 0, 1}, {y,
      0, 1}, DisplayFunction -> Identity]
t2 = ParametricPlot3D[{x, 1 - x, Min[z, x*(1 - x)]}, {x, 0, 1}, {z, 0, 1 ...

太好了,非常感谢!
就是要这个图,效果很好。
5楼2012-02-09 14:37:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

Ising

木虫 (著名写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖
jjdg(金币+1): 感谢参与 2012-02-08 23:31:43
ContourPlot3D[{x*y - z == 0, z == 0, x + y == 1}, {x, -100,
  100}, {y, -100, 100}, {z, -100, 100}, AxesLabel -> Automatic]

是这样不?




[ Last edited by Ising on 2012-2-8 at 11:30 ]
2楼2012-02-08 11:27:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dxwbucea

铁虫 (著名写手)

引用回帖:
2楼: Originally posted by Ising at 2012-02-08 11:27:26:
ContourPlot3D[{x*y - z == 0, z == 0, x + y == 1}, {x, -100,
  100}, {y, -100, 100}, {z, -100, 100}, AxesLabel -> Automatic]

是这样不?

[ Last ...

谢谢回复。
画出来应该是个三重积分的积分区域,是空间实体。
3楼2012-02-08 11:35:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
6楼2012-02-09 19:37:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 dxwbucea 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见