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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 如何用mathematica 9做一个关于极坐标的函数（如f(r,theta)）的contour图？
71/1返回列表
查看: 2562  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 伙伴们，祝我生日快乐吧 +15 myrtle 2026-03-10 24/1200 2026-03-15 21:16 by 苏州_逗号
[考研] 材料工程专硕274一志愿211求调剂 +5 薛云鹏 2026-03-15 5/250 2026-03-15 20:38 by Logic2024
[考研] 268求调剂 +5 一定有学上- 2026-03-14 6/300 2026-03-14 22:20 by 运气yunqi
[考研] 材料工程327求调剂 +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 一志愿天大化工（085600）调剂总分338 +6 蔡大美女 2026-03-09 6/300 2026-03-14 02:46 by JourneyLucky
[考研] 332分材料工程调剂 +3 莓好时光海苔 2026-03-09 3/150 2026-03-14 02:03 by JourneyLucky
[考研] 328，0703考生求调剂，一志愿为东北师范大学 +4 观素律 2026-03-09 5/250 2026-03-14 01:24 by JourneyLucky
[考研] 求调剂 +6 yfihxh 2026-03-09 6/300 2026-03-14 01:18 by JourneyLucky
[考研] 271求调剂 +10 生如夏花… 2026-03-11 10/500 2026-03-14 00:35 by 卖报员小雨
[考研] 2026考研调剂+本科延边大学+山东大学+生物化学与分子生物学+有项目经验 +3 ccdsscjy 2026-03-10 3/150 2026-03-14 00:12 by JourneyLucky
[考研] 337一志愿华南理工0805材料求调剂 +7 mysdl 2026-03-11 9/450 2026-03-13 22:43 by JourneyLucky
[考研] 285化工学硕求调剂（081700） +6 柴郡猫_ 2026-03-12 6/300 2026-03-13 20:46 by hmn_wj
[硕博家园] 深圳大学硕士招生（2026秋，传感器方向，仅录取第一志愿） +4 xujiaoszu 2026-03-11 7/350 2026-03-13 17:28 by xujiaoszu
[考研] 工科278分求调剂 +5 周慢热啊 2026-03-12 7/350 2026-03-13 15:49 by JourneyLucky
[考研] 328化工专硕求调剂 +4 。，。，。，。i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[考研] 270求调剂 085600材料与化工专硕 +3 YXCT 2026-03-11 3/150 2026-03-13 10:13 by houyaoxu
[考研] 085600 材料与化工 295 求调剂 +10 dream…… 2026-03-10 12/600 2026-03-12 13:46 by dream……
[考研] 一志愿江南大学085701环境工程专硕总分287求调剂 +5 18266118446 2026-03-09 5/250 2026-03-11 16:51 by 2020015
[硕博家园] 木虫好像不热闹了，是不是？ +4 偏振片 2026-03-10 4/200 2026-03-10 09:51 by longwave
信息提示
关闭
请填处理意见
关闭