| 查看: 1259 | 回复: 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 |
回复此楼» 猜你喜欢
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
物理学I论文润色/翻译怎么收费?
已经有75人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
-
斯坦福大学与Elsevier世界前2%学者新排名查询
已经有1人回复
-
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有19人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
-
apl投稿状态
已经有2人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有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
