应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？
71/1返回列表
查看: 2483  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

onexf766

木虫 (正式写手)

[求助] 如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？ 已有1人参与

如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？

如 f=r/2(1-1/r^2)+r/2Cos[2*theta](1-1/r^2)(1-3/r^2)

将坐标变换：
r = x^2.0 + y^2.0; theta = AcrTan[y/x];

作图：
ContourPlot[
0.5 (1 - 1.0/(x^2.0 + y^2.0)^2) +
  0.5 (1 - 3.0/(x^2.0 + y^2.0)) (1 - 1.0/(x^2.0 + y^2.0)^2) Cos[
    2 ArcTan[y/x]], {x, 0, 2}, {y, 0, 2}, Contours -> 100]

发现作出来的图有很地方不对，请问有没更好的解决办法？
如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？
P165exp1.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-11-13 22:52:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
CODE:
With[{r = Sqrt[x^2 + y^2], th = ArcTan[x, y]},
ContourPlot[
  r/2 (1 - 1/r^2) + r/2 Cos[2*th] (1 - 1/r^2) (1 - 3/r^2), {x, 0,
   2}, {y, 0, 2}]
]
赞一下(1人) 回复此楼
2楼2013-11-14 12:39:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onexf766

木虫 (正式写手)
引用回帖:
2楼: Originally posted by chyanog at 2013-11-14 12:39:55
With[{r = Sqrt, th = ArcTan},
ContourPlot
]

谢谢你，你的和我没有差别
可能是我没有表达清楚。我的意思是：要做一个图，它的取值范围在 1<r<2，也就是在0<r<1范围为空白（这样就不会出来那些难看的黑线了）。不要说另外用一个函数的图来遮住它哦，那样早我想过了，我主要是想做一个极坐标表示的更为复杂的图，这只是举个简章的例子。
赞一下 回复此楼
3楼2013-11-16 21:09:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onexf766

木虫 (正式写手)
请高手现身指导~
赞一下 回复此楼
4楼2013-11-18 20:41:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhb135

金虫 (正式写手)

【答案】应助回帖

提取数据放到origin里面吧、origin画的图很漂亮的
赞一下 回复此楼
:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D
5楼2013-12-17 20:40:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
引用回帖:
3楼: Originally posted by onexf766 at 2013-11-16 21:09:19
谢谢你，你的和我没有差别
可能是我没有表达清楚。我的意思是：要做一个图，它的取值范围在 1<r<2，也就是在0<r<1范围为空白（这样就不会出来那些难看的黑线了）。不要说另外用一个函数的图来 ...

ContourPlot[f, {x, 0, 2}, {y, 0, 2}, Contours -> 100,
RegionFunction -> Function[{x, y}, 1 < x^2 + y^2]]
回复此楼
6楼2013-12-17 22:43:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onexf766

木虫 (正式写手)
引用回帖:
6楼: Originally posted by walk1997 at 2013-12-17 22:43:12
ContourPlot...

谢谢你的回复，这个问题我在一个月前已经解自已解决了，只时太忙了一直没有登小木虫，你的想法我解决的完全一致！
http://blog.sciencenet.cn/home.php?mod=attachment&filename=4.4%20%BC%B8%D6%D6%B5%E4%D0%CD%B5%C4%BC%AB%D7%F8%B1%EA%CE%CA%CC%E2%C7%F3%BD%E2%28%BA%AC%D3%A6%C1%A6%CE%BB%D2%C6%B3%A1%B7%D6%B2%BC%29.pdf&id=45967
想给你评分，但系统给不了，不知是不是时间过了太久的原故。
赞一下 回复此楼
7楼2013-12-27 21:54:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 onexf766 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭