| 查看: 1861 | 回复: 3 | ||
xiaojixiong金虫 (小有名气)
|
[求助]
求助：如何求含贝塞尔函数的超越方程的复数解
|
|
如题，小弟最近碰到一含贝塞尔函数的超越方程。程序如下： i=1; for x=0:0.001:5 % x=kc/Wp for y=0:0.001:5 % y=w/Wp if (y-x)<=4.2&&0<(y-x) t=0.6*1000*sqrt(y.*y-x.*x); ta=0.6*sqrt(y.*y-x.*x); tc=0.6*2* sqrt(y.*y-x.*x); t1=(y.*y-1); t2=x.*x*(3.4596-y.*y); t3=y.*y*(y*y-4.4596); T=0.6*1000*sqrt((t1.*(t2+t3))/t3); Ta=0.6*sqrt((t1.*(t2+t3))/t3); pTa=(Ta/4).*(Ta/4); pta=(ta/4).*(ta/4); ptc=(tc/4).*(tc/4); % ta有关的贝塞尔函数（4个）； cta0=besselj(0,ta(：)); cta1=besselj(1,ta(：)); dta0=bessely(0,ta(：)); dta1=bessely(1,ta(：)); % tc 有关的贝塞尔函数(2个) ctc0=besselj(0,tc(：)); dtc0=bessely(0,tc(：)); A=ctc0.*dta0-cta0.*dtc0; B=-ctc0.*dta1+cta1.*dtc0; cTa0=besselj(0,Ta(：)); cTa1=besselj(1,Ta(：)); f=((y.*y-1)/T).*cTa1.*A+(y.*y/t)*cTa0 *B; if abs(f)<=0.00000001 a0(i)=x;b0(i)=y; i=i+1; disp([num2str(x) ' ' num2str(y)]); end end end end 我通过限制f绝对值的精度，去求出了满足f=0的实数解，但是我若想求出满足f=0，x和对应的y的复数解。这个程序应该怎么改啊，谢谢大家了。 |
回复此楼» 猜你喜欢
今年的WR进展到哪一步了？
已经有8人回复
-
时间戳他又来了
已经有17人回复
-
系统今天又提示维护了，估计离放榜不远了
已经有9人回复
-
产物和副产物价值比较
已经有4人回复
-
这个自发加氧反应的机理是什么？
已经有7人回复
-
J-J-W不为人知的一面
已经有19人回复
-
没消息就是被刷了呗
已经有14人回复
-
微信指数没变化，科研之友没阅读
已经有8人回复
-
这种情况还有戏吗
已经有11人回复
-
同事接到电话了，我却没有
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 高数关于不显含x和y的微分方程求解？
已经有8人回复
- 如何求解含复数系数的贝塞尔微分方程
已经有8人回复
0605102034
铜虫 (著名写手)
- 应助: 2 (幼儿园)
- 金币: 4272.9
- 散金: 89
- 红花: 4
- 帖子: 2445
- 在线: 670小时
- 虫号: 1514410
- 注册: 2011-11-28
- 性别: GG
- 专业: 碳素材料与超硬材料
2楼2014-09-24 22:44:15
xiaojixiong
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 3482.5
- 散金: 3
- 帖子: 239
- 在线: 67.6小时
- 虫号: 425899
- 注册: 2007-07-28
- 性别: GG
- 专业: 等离子体物理
3楼2014-09-25 08:35:26
xiaojixiong
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 3482.5
- 散金: 3
- 帖子: 239
- 在线: 67.6小时
- 虫号: 425899
- 注册: 2007-07-28
- 性别: GG
- 专业: 等离子体物理
4楼2014-09-25 08:43:09