版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

jjgy_2002

木蟲 (著名寫手)

應助: 16 (小學生)
金幣: 1285.3
散金: 1557
紅花: 4
帖子: 1949
在線: 984.6小時
蟲號: 646930
注冊: 2008-11-05
專業(yè): 信號理論與信號處理

[求助] [求助] 幫看此第一類貝塞爾函數(shù)求解代碼根據(jù)哪篇文獻的計算方法編寫？

[求助] 幫看此第一類貝塞爾函數(shù)求解代碼根據(jù)哪篇文獻的計算方法編寫？
代碼如下：
function Jx = bessel(n,x)
format long;
if n == 0
a = [5.7568490574e10;-1.3362590354e10;6.516196407e8;
      -1.121442418e7;7.739233017e4;-1.849052456e2];
b = [5.7568490411e10;1.029532985e9;9.494680718e6;
      5.927264853e4;2.678532712e2;1.0];
r =[1.0;-0.1098628627e-2;0.2734510407e-4;
      -0.2073370639e-5;0.2093887211e-6];
s =[-0.1562499995e-1;0.1430488765e-3;-0.6911147651e-5;
      0.7621095161e-6;-0.934945152e-7];
if abs(x) < 8
      J0_u = a(1);
      J0_d = b(1);
      for i=2:6
         J0_u = J0_u + a(i)*power(x,2*(i-1));
         J0_d = J0_d + b(i)*power(x,2*(i-1));
      end
      J0 = J0_u/J0_d;
else
      z = 8/abs(x);
      sita = abs(x) - pi/4;
      R0 = r(1);
      S0 = s(1);
      for i=2:5
         R0 = R0 + r(i)*power(z,2*(i-1));
         S0 = S0 + s(i)*power(z,2*(i-1));
      end
      J0 = (R0*cos(sita)-z*S0*sin(sita))*sqrt(2/pi/abs(x));
end
Jx = J0;
else
if n == 1
      c = [7.2362614232e10;-7.895059235e9;2.423968531e8;
         -2.972611439e6;1.570448260e4;-3.016036606e1];
      d = [1.44725228443e11;2.300535178e9;1.858330474e7;
         9.944743994e4;3.769991397e2;1.0];
      p = [1.0;0.183105e-2;-0.3516396496e-4;
         0.2457520174e-5;-0.240337019e-6];
      q = [0.4687499995e-1;-0.2002690873e-3;
         0.8449199096e-5;-0.88228987e-6;
         0.105787412e-6];
      if abs(x) < 8
         J1_u = c(1);
         J1_d = d(1);
         for i=2:6
            J1_u = J1_u + c(i)*power(x,2*(i-1));
            J1_d = J1_d + d(i)*power(x,2*(i-1));
         end
         J1 = x*J1_u/J1_d;
      else
         z = 8/abs(x);
         fi = abs(x) - 3*pi/4;
         P1 = p(1);
         Q1 = q(1);
         for i=2:5
            P1 = P1 + p(i)*power(z,2*(i-1));
            Q1 = Q1 + q(i)*power(z,2*(i-1));
         end
         J1 = (P1*cos(fi)-z*Q1*sin(fi))*sqrt(2/pi/abs(x));
         if x<0
            J1 = -J1;
         end
      end
      Jx = J1;
else
      if abs(x) > n
         y = 2/x;
         bess1 = bessel(0,x);
         bess2 = bessel(1,x);
         for j=1:n-1
            Jx = j*y*bess2 - bess1;
            bess1 = bess2;
            bess2 = Jx;
         end
      else
         M = 2*floor(((n + floor(sqrt(40*n))))/2);
         JS = zeros(M+2 ,1);
         JS(M+2) = 0;
         JS(M+1) = 1;
         y = 2/x;
         bSum = 0;
         for k=M:-1:1
            JS(k) = JS(k+1)*y*k - JS(k+2);
         end
         BK = JS(1);
         for k=1:floor(M/2)
            BK = BK + 2*JS(2*k+1);
         end
         Jx = JS(n+1)/BK;
      end
end
end

回復此樓

» 猜你喜歡

316求調(diào)劑已經(jīng)有6人回復
346求調(diào)劑[0856] 已經(jīng)有7人回復
一志愿山大07化學 332分四六級已過本科山東雙非求調(diào)劑！已經(jīng)有3人回復
310求調(diào)劑已經(jīng)有3人回復
機械專碩299求調(diào)劑至材料已經(jīng)有4人回復
070300化學319求調(diào)劑已經(jīng)有7人回復
08工科 320總分求調(diào)劑已經(jīng)有6人回復
一志愿天津大學化學工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有12人回復
307求調(diào)劑已經(jīng)有3人回復
265求調(diào)劑已經(jīng)有3人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

關于貝塞爾函數(shù)的問題已經(jīng)有25人回復
一個高一函數(shù)題求解已經(jīng)有7人回復
不同階第一類貝塞爾函數(shù)的正交性已經(jīng)有11人回復
【求助】貝塞爾函數(shù)求解已經(jīng)有4人回復

1樓 2011-06-25 14:16:19

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

vivian5251

新蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 35.3
帖子: 29
在線: 2.7小時
蟲號: 1335737
注冊: 2011-07-02
性別: MM
專業(yè): 信息安全

【答案】應助回帖

想幫助,但不會,希望有人能幫到你

贊一下

回復此樓

大家好

4樓2011-07-03 01:10:06

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 9 個回答

jjgy_2002

木蟲 (著名寫手)

應助: 16 (小學生)
金幣: 1285.3
散金: 1557
紅花: 4
帖子: 1949
在線: 984.6小時
蟲號: 646930
注冊: 2008-11-05
專業(yè): 信號理論與信號處理

怎沒人響應呢?

回復此樓

3樓2011-06-27 09:58:13

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jjgy_2002

木蟲 (著名寫手)

應助: 16 (小學生)
金幣: 1285.3
散金: 1557
紅花: 4
帖子: 1949
在線: 984.6小時
蟲號: 646930
注冊: 2008-11-05
專業(yè): 信號理論與信號處理

引用回帖:

5樓: Originally posted by tong_xiao at 2013-11-12 21:14:14
金幣有點少哈

呵呵，能幫忙嗎？我多給金幣就是了

贊一下

回復此樓

6樓2013-11-13 13:02:23

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

tong_xiao

新蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 11
帖子: 3
在線: 3.2小時
蟲號: 2603090
注冊: 2013-08-18
專業(yè): 應用數(shù)學方法

引用回帖:

6樓: Originally posted by jjgy_2002 at 2013-11-13 13:02:23
呵呵，能幫忙嗎？我多給金幣就是了

...

我在一本書上看到過Vb編程的，可以嗎？

贊一下

回復此樓

7樓2013-11-19 21:03:13

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 9 個回答

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 310求調(diào)劑 +3	baibai1314 2026-03-16	3/150	2026-03-21 03:56 by JourneyLucky
[考研] 070300化學319求調(diào)劑 +7	錦鯉0909 2026-03-17	7/350	2026-03-21 03:46 by JourneyLucky
[考研] 307求調(diào)劑 +3	wyyyqx 2026-03-17	3/150	2026-03-21 03:20 by JourneyLucky
[考研] 一志愿重慶大學085700資源與環(huán)境專碩，總分308求調(diào)劑 +3	墨墨漠 2026-03-18	3/150	2026-03-21 00:39 by JourneyLucky
[考研] 354求調(diào)劑 +5	Tyoumou 2026-03-18	8/400	2026-03-21 00:35 by JourneyLucky
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-18	6/300	2026-03-21 00:32 by JourneyLucky
[考研] 材料專碩英一數(shù)二306 +7	z1z2z3879 2026-03-18	7/350	2026-03-20 23:48 by JourneyLucky
[考研] 317求調(diào)劑 +5	申子申申 2026-03-19	9/450	2026-03-20 22:26 by JourneyLucky
[考研] 290求調(diào)劑 +7	^O^乜 2026-03-19	7/350	2026-03-20 21:43 by JourneyLucky
[考研] 北科281學碩材料求調(diào)劑 +5	tcxiaoxx 2026-03-20	5/250	2026-03-20 21:35 by laoshidan
[考研] 一志愿武理材料工程348求調(diào)劑 +3	￣^￣゜汗 2026-03-19	4/200	2026-03-20 21:01 by zhukairuo
[考研] 295復試調(diào)劑 +8	簡木ChuFront 2026-03-19	8/400	2026-03-20 20:44 by zhukairuo
[考研] 261求B區(qū)調(diào)劑，科研經(jīng)歷豐富 +3	牛奶很忙 2026-03-20	4/200	2026-03-20 19:34 by JourneyLucky
[考研] 工科材料085601 279求調(diào)劑 +7	困于星晨 2026-03-17	9/450	2026-03-20 17:38 by 無懈可擊111
[考研] 286分人工智能專業(yè)請求調(diào)劑愿意跨考！ +3	lemonzzn 2026-03-17	4/200	2026-03-20 11:04 by lemonzzn
[考研] 085600材料與化工調(diào)劑 324分 +10	llllkkkhh 2026-03-18	12/600	2026-03-19 14:33 by llllkkkhh
[考研] 0703化學調(diào)劑 +5	pupcoco 2026-03-17	8/400	2026-03-19 13:58 by houyaoxu
[考研] 一志愿福大288有機化學，求調(diào)劑 +3	小木蟲200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu
[考研] 0854可跨調(diào)劑，一作一項核心論文五項專利，省、國級證書40+數(shù)一英一287 +8	小李0854 2026-03-16	8/400	2026-03-18 14:35 by 搏擊518
[考研] 考研化學學碩調(diào)劑，一志愿985 +4	張vvvv 2026-03-15	6/300	2026-03-17 17:15 by ruiyingmiao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

jjgy_2002

[求助] [求助] 幫看此第一類貝塞爾函數(shù)求解代碼根據(jù)哪篇文獻的計算方法編寫？

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

vivian5251

【答案】應助回帖

jjgy_2002

jjgy_2002

tong_xiao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] [求助] 幫看此第一類貝塞爾函數(shù)求解代碼根據(jù)哪篇文獻的計算方法編寫？

» 本主題相關價值貼推薦，對您同樣有幫助: