| 查看: 1201 | 回复: 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 |
回复此楼» 猜你喜欢
调剂
已经有0人回复
-
【新加坡】纳米电子器件项目组有“联合培养博士生”名额
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有291人回复
-
中德博士后2026项目5月30日截止- 国内博士后入站、德国两年全职
已经有0人回复
-
面向全球申请人的中德博士后2026项目5月30日截止- 国内博后入站德国两年全职
已经有0人回复
-
【新加坡】纳米电子器件项目组有“联合培养博士生”名额
已经有2人回复
-
重庆交大材料学院26年硕士招生复试实施细则已出。欢迎加入光子学微结构与器件课题组。
已经有0人回复
-
北工大宋晓艳教授团队招收2026年9月入学博士【学博和专博名额均有】！
已经有1人回复
-
天津城建大学理学院化学、环境工程、材料物理等方向接收10人
已经有0人回复
-
天津城建大学理学院化学、环境工程、材料物理等方向接收调剂，10人
已经有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
