应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » MATLAB/Mathematica » 用matlab求bessel函数的根
51/1返回列表
查看: 1737  |  回复: 6
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

xiaolobster

新虫 (初入文坛)

[交流] 用matlab求bessel函数的根

问题看上去很简单，方程如下所示：
v*sqrt（1-b）*J1（v*sqrt(1-b)）/J0(v*sqrt(1-b))=-v*sqrt(b)*K1(v*sqrt(b))/K0(v*sqrt(b))
其中b为 未知数。v为常数，J1我第一类第1阶贝塞尔函数，J0为第一类第0阶贝塞尔函数；K1为第二类第1阶贝塞尔函数，K2为第二类第0阶贝塞尔函数。

问题：通过解上述方程，求解b的值。
我在matlab中尝试了fzero，和solve，但是都没能给出正确的结果。
求高手指点！
回复此楼

» 猜你喜欢

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

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼2013-11-28 10:33:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bruceleem

铜虫 (著名写手)
祝楼主好运！
回复此楼
4楼2013-11-29 09:23:25
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

bruceleem

铜虫 (著名写手)
★ ★ ★ ★ ★ ★
xiaolobster: 金币+5, ★有帮助 2013-11-29 09:03:39
xzhdty: 金币+1, 谢谢参与 2013-11-30 10:51:42
function bessel_problem
%-----------------------------------------
function f=besselfunc(b,v)
f=v.*sqrt(1-b).*besselj(1,v.*sqrt(1-b))./besselj(0,v.*sqrt(1-b))-(-v.*sqrt(b).*bessely(1,(v.*sqrt(b)))./bessely(0,(v.*sqrt(b))));
end
%-----------------------------------------
v=10;
b0=0.1;
[b,yb,exitflag]=fsolve(@(b)besselfunc(b,v),b0);
b
yb
exitflag
end

将代码保存为m文件，在命令窗口中输入bessel_problem即可求解。给v赋不同的值得到的结果不大一样，这里给v赋值为10。
赞一下 回复此楼
2楼2013-11-28 19:12:56
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaolobster

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by bruceleem at 2013-11-28 19:12:56
function bessel_problem
%-----------------------------------------
function f=besselfunc(b,v)
f=v.*sqrt(1-b).*besselj(1,v.*sqrt(1-b))./besselj(0,v.*sqrt(1-b))-(-v.*sqrt(b).*bessely(1,(v.*sqrt(b))) ...

非常感谢。主要是我的版本有点低，升级版本之后，用solve能解决。不过仍然十分感谢您的热情回复。5个金币要给，必须的。
赞一下 回复此楼
3楼2013-11-29 09:04:49
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

真心妹夫

新虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
请问楼主最后用solve怎么解决的？
赞一下 回复此楼
5楼2014-02-18 04:21:59
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭