24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1014  |  回复: 4

kabaisun

专家顾问 (正式写手)

[求助] Mathematica怎么做如下两参数三维面的等高线图?已有2人参与

会不会太简单了只要一行代码可以解决的事??最近脑洞有点大。。
举个栗子:ParametricPlot3D[{r Cos[t], r Sin[t], (r - 1/r) Sin[t]}, {t, 0,
  2 Pi}, {r, 0, 1}]
问:如何做出这个三维面的等高线图?
注意:请不要把r转成x,y的表达式!!那个太简单不是,只要contour一下就好了
回复此楼
严实诚勇
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xzczd

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
kabaisun: 金币+20, 有帮助 2015-03-22 19:40:45
据我所知,没有除换元以外的方法……非要说的话这个大概是一种,但是这还不如换元呢(效果也算不好):
CODE:
pic = ParametricPlot3D[{r Cos[t], r Sin[t], (r - 1/r) Sin[t]}, {t, 0,
    2 Pi}, {r, 0, 1}, MeshFunctions -> (#3 &), Mesh -> {Range[-2, 2]}]
Graphics[Cases[Normal@pic, Line[a_] :> Line[Most /@ a], Infinity], Frame -> True]

Mathematica怎么做如下两参数三维面的等高线图?

另,一个稍有相关的帖:http://tieba.baidu.com/p/3476558381
小木虫Mathematica版块已毁(当然原本也不咋的),建议大家前往百度贴吧或Stackexchange。
2楼2015-03-22 18:13:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kabaisun

专家顾问 (正式写手)

引用回帖:
2楼: Originally posted by xzczd at 2015-03-22 18:13:23
据我所知,没有除换元以外的方法……非要说的话这个大概是一种,但是这还不如换元呢(效果也算不好):


pic = ParametricPlot3D
Graphics[Cases, Frame -> True]



另,一个稍有相关的帖:http://tie ...

谢谢你的推荐,确实比较相关
严实诚勇
3楼2015-03-22 19:40:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

视角调整为俯视图不就是了吗? 改变mesh的样子
ส็็็็็็็็็็็็็็็็็็็็
4楼2015-03-24 10:43:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wufengseu

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
kabaisun: 金币+15, 有帮助 2015-03-24 22:41:58
如果注意到参数图形和等高图绘制所需要的数据及其联系,可以这样解决问题。
Mathematica怎么做如下两参数三维面的等高线图?-1
Snap1.jpg

5楼2015-03-24 15:01:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 kabaisun 的主题更新
信息提示
请填处理意见