24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

onexf766

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 3258.2
散金: 30
帖子: 476
在线: 185.9小时
虫号: 455243
注册: 2007-11-10
专业: 固体力学

[求助] 如何用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]

发现作出来的图有很地方不对，请问有没更好的解决办法？

P165exp1.jpg

回复此楼

» 猜你喜欢

最近几年招的学生写论文不引自己组发的文章已经有5人回复
职称评审没过，求安慰已经有54人回复
26申博自荐已经有3人回复
A期刊撤稿已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

请教mathematic问题？关于解微分方程组的和画图的一些问题。已经有19人回复
急切求助！一个mathematica求解一个简单一元非线性方程的问题已经有4人回复
使用Multiwfn绘制原子轨道图形、研究原子壳层结构及相对论效应的影响已经有17人回复
求高手用matlab做一个动画已经有3人回复
请教一个Mathematica积分的问题（重金求解）已经有6人回复
matlab做函数图象的问题已经有6人回复
【求助】请教一个关于解方程的问题已经有8人回复

1楼 2013-11-13 22:52:03

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

onexf766

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 3258.2
散金: 30
帖子: 476
在线: 185.9小时
虫号: 455243
注册: 2007-11-10
专业: 固体力学

引用回帖:

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
应助: 12 (小学生)
金币: 808.1
红花: 5
帖子: 85
在线: 52.8小时
虫号: 1540955
注册: 2011-12-17
性别: GG
专业: 计算数学与科学工程计算

【答案】应助回帖

感谢参与，应助指数 +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的回帖