| 查看: 1227 | 回复: 1 | |||
[求助]
Mathematica画图问题 已有1人参与
|
|
Rho= Sqrt[x^2 + y^2]; Theta= ArcTan[y/x]; Plot3D[z = (Sin[Theta] + Cos[Theta])*BesselJ[1, Rho], {x, -10, 10}, {y, -10, 10}] 代码如上图像如附件所示 用Mathematica画亥姆赫兹方程的1阶贝塞尔函数解函数图像，但因为要直角坐标转柱坐标，所以用了Arctan函数，导致图像在x=0处不连续，求解答  图像.JPG |
回复此楼» 猜你喜欢
如何从铁电相到顺电相。
已经有1人回复
-
各位大佬，求一份最新Wien2k版本作为学习用途
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有254人回复
-
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后
已经有42人回复
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有24人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- gambit画图问题求教
已经有3人回复
- 一个很不错的mathematica教程
已经有507人回复
- Mathematica关于绘制隐函数方程组的问题，跪求，快疯了
已经有11人回复
- Mathematica问题求助
已经有7人回复
- mathematica里怎么将矩阵导出为矩阵
已经有4人回复
- 关于mathematica作图的问题
已经有6人回复
- powerpoint画图问题
已经有9人回复
- xp画图怎么改变原子的颜色 急急急
已经有4人回复
- 画图：渐变色的图是用什么软件画的？求帮忙！（有图）
已经有3人回复
- 紧急求助：mathematica中的数据如何保存为mat格式
已经有8人回复
- GAMBIT 二维画图中的一个问题
已经有5人回复
- 多曲线标注问题
已经有7人回复
- Atomeye的颜色模式——画图
已经有4人回复
- 请教个mathematica画图的问题
已经有5人回复
- 请教一个Mathematica积分的问题（重金求解）
已经有6人回复
- lev00 画图老出现问题，错在哪了？
已经有9人回复
- mathematica请教计算结果问题
已经有4人回复
- 【求助】MATLAB、Mathematica和Maple这三大数学软件的优缺点
已经有41人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【求助】求助帮助编一个读取TEXT文件画图的程序
已经有8人回复
- 【原创】在WORD中使用Mathematica画的图形的体会
已经有13人回复
- Origin数据处理和作图问题
已经有6人回复
- 【求助】关于Mathematica绘图问题【已完结】
已经有3人回复
- 【求助】Mathematica画图问题
已经有7人回复
- 【求助】origin和mathematica的问题！
已经有6人回复
- 【分享】将Mathematica绘图数据转换至Origin软件
已经有134人回复
- 【求助】紧急求助有关MATHEMATICA的问题
已经有9人回复
【答案】应助回帖
|
很简单，ArcTan的值域，是 -Pi/2 到 Pi/2 ……要解决这个问题很简单，那就是，改用RevolutionPlot3D： RevolutionPlot3D[(Sin[t] + Cos[t])*BesselJ[1, r], {r, 0, 10}, {t, 0, 2 Pi}] 当然了，硬要Plot3D也是可以的，那就需要你把ArcTan后的角度和实际角度凑出来，比如： Rho = Sqrt[x^2 + y^2]; Theta = If[x y > 0, ArcTan[x, y], 2 Pi + ArcTan[x, y]]; Plot3D[(Sin[Theta] + Cos[Theta])*BesselJ[1, Rho], {x, -10, 10}, {y, -10, 10}] |
2楼2014-07-03 18:19:57
20