| 查看: 1185 | 回复: 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 |
回复此楼» 猜你喜欢
新西兰Robinson研究所招收全奖PhD
已经有0人回复
-
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有160人回复
-
笼目材料中量子自旋液体基态的证据
已经有0人回复
-
数学教学论硕士可以读数学物理博士吗？
已经有0人回复
-
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生
已经有4人回复
-
澳门大学 应用物理及材料工程研究院 潘晖教授课题组诚招博士后
已经有11人回复
-
求助NH4V4O10晶体的CIF文件
已经有0人回复
-
英国全奖博士招聘-深度学习与量子物理
已经有0人回复
-
间接带隙半导体有效质量求助
已经有1人回复
-
投稿chemical physical letters不送审？
已经有2人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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