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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 2599  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602调剂 初试总分335 +8 19123253302 2026-04-05 8/400 2026-04-05 20:44 by 南航~万老师
[考研] 070300化学学硕311分求调剂 +8 梁富贵险中求 2026-04-04 8/400 2026-04-05 18:01 by 猪会飞
[考研] 313求调剂 +5 海日海日 2026-04-04 5/250 2026-04-05 15:52 by jndximd
[考研] 材料调剂 +7 dxy调剂 2026-04-04 7/350 2026-04-05 09:15 by 陌秋26
[考研] 材料调剂 +12 一样YWY 2026-04-02 13/650 2026-04-04 20:49 by 蓝云思雨
[考研] 338求调剂 +7 晟功? 2026-04-03 7/350 2026-04-04 20:37 by 蓝云思雨
[考研] 278求调剂 +3 依旧！ 2026-04-02 4/200 2026-04-04 20:27 by 蓝云思雨
[考研] 0703求调剂383分 +8 W55j 2026-04-03 8/400 2026-04-04 20:09 by xhai2011
[考研] 土木水利328分求调剂 +6 疾风知劲草666 2026-04-02 6/300 2026-04-03 11:38 by znian
[考研] 286求调剂 +7 Faune 2026-03-30 7/350 2026-04-03 10:14 by linyelide
[考研] 085801 总分275 本科新能源 求调剂 +19 bradoner 2026-04-01 23/1150 2026-04-03 10:07 by linyelide
[考研] 一志愿山东大学，085600，344 +7 魏子per 2026-04-02 8/400 2026-04-02 21:12 by 百灵童888
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 085900土木水利336分求调剂 +4 Zhangjiangj 2026-03-31 6/300 2026-04-02 11:40 by 1753564080
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 311求调剂 +10 李芷新1 2026-03-31 10/500 2026-04-01 14:38 by chenqifeng666
[考研] 环境工程调剂 +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[考研] 复试调剂 +7 双马尾痞老板2 2026-03-31 7/350 2026-03-31 19:49 by Dyhoer
[考研] 求调剂 生物学 377分 +6 zzll03 2026-03-31 6/300 2026-03-31 17:33 by 唐沐儿
信息提示
关闭
请填处理意见
关闭