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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？
51/1返回列表
查看: 2971  |  回复: 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的回帖

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的回帖
查看全部 7 个回答

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的回帖

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的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 建议基金发布提前给出明确的时间点 +11 kulium 2026-08-21 14/700 2026-08-24 02:12 by 流流伤
[基金申请] 2026国自然函评费到账 +16 羊腰板 2026-08-21 17/850 2026-08-23 23:02 by tianxiaochun
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +4 process2012 2026-08-23 5/250 2026-08-23 19:58 by jurkat.1640
[教师之家] 跳槽后在研项目怎么办？ +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 93BebMhtakh前后11位开头都是大写 +7 且听虎啸 2026-08-17 8/400 2026-08-22 21:55 by 医学老男孩
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] filecode，4个jtjc了 +13 ziyangfang 2026-08-19 16/800 2026-08-22 17:08 by WH3796
[基金申请] 人气不行了 +8 fansofjerry 2026-08-21 8/400 2026-08-22 16:30 by zyqchem
[基金申请] 今天基金会出结果吗？20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 放榜前的不淡定 40+4 snowwithsea 2026-08-19 14/700 2026-08-21 23:51 by cratir
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +16 医学老男孩 2026-08-20 20/1000 2026-08-21 21:13 by Ldrop2023
[基金申请] 看来今天不会放榜了？ +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 时间戳变了，能看出什么问题？ +18 基诺咪客 2026-08-17 23/1150 2026-08-20 17:19 by Godzela
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
关闭
请填处理意见
关闭