<p id="s6hp2"><pre id="s6hp2"></pre></p>

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

客戶端APP下載

論文輔導

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

返回列表

jjgy_2002

木蟲 (著名寫手)

應(yīng)助: 16 (小學生)
金幣: 1285.3
散金: 1556
紅花: 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

回復此樓

» 猜你喜歡

307求調(diào)劑已經(jīng)有9人回復
288求調(diào)劑已經(jīng)有15人回復
085700資源與環(huán)境308求調(diào)劑已經(jīng)有5人回復
294求調(diào)劑材料與化工專碩已經(jīng)有14人回復
0817 化學工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章已經(jīng)有18人回復
265求調(diào)劑已經(jīng)有3人回復
296求調(diào)劑已經(jīng)有6人回復
0703化學調(diào)劑已經(jīng)有13人回復
085600材料與化工求調(diào)劑已經(jīng)有15人回復
生物學調(diào)劑招人�。�！已經(jīng)有4人回復

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

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

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

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

jjgy_2002

木蟲 (著名寫手)

2樓2011-06-25 16:52:32

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

jjgy_2002

木蟲 (著名寫手)

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

怎沒人響應(yīng)呢?

回復此樓

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

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

vivian5251

新蟲 (初入文壇)

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

【答案】應(yīng)助回帖

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

贊一下

回復此樓

大家好

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

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

tong_xiao

新蟲 (初入文壇)

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

金幣有點少哈

回復此樓

5樓2013-11-12 21:14:14

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

jjgy_2002

木蟲 (著名寫手)

應(yīng)助: 16 (小學生)
金幣: 1285.3
散金: 1556
紅花: 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

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

tong_xiao

新蟲 (初入文壇)

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

引用回帖:

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

...

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

贊一下

回復此樓

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

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

tong_xiao

新蟲 (初入文壇)

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

就是一個visual basic 常用算法集里面有一個此種算法，不過是vb，跟你的matlab大同小異哦

贊一下

回復此樓

8樓2013-11-19 21:06:47

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

jjgy_2002

木蟲 (著名寫手)

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

引用回帖:

7樓: Originally posted by tong_xiao at 2013-11-19 21:03:13
我在一本書上看到過Vb編程的，可以嗎？...

可以啊

回復此樓

9樓2013-11-20 15:51:13

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 jjgy_2002 的主題更新

返回列表

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

[考研] 317求調(diào)劑 +3	申子申申 2026-03-19	6/300	2026-03-19 14:16 by 申子申申
[考研] 一志愿南昌大學，327分，材料與化工085600 +3	Ncdx123456 2026-03-19	3/150	2026-03-19 13:18 by houyaoxu
[考研] 一志愿天大材料與化工（085600）總分338 +5	蔡大美女 2026-03-13	5/250	2026-03-19 10:44 by 是小劉呀～
[考研] 材料專業(yè)求調(diào)劑 +5	hanamiko 2026-03-18	5/250	2026-03-18 20:19 by 星空星月
[考研] 【同濟軟件】軟件（085405）考研求調(diào)劑 +3	2026eternal 2026-03-18	3/150	2026-03-18 19:09 by 搏擊518
[考研] 295求調(diào)劑 +3	一志愿京區(qū)211 2026-03-18	5/250	2026-03-18 17:03 by zhaoqian0518
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5	share_joy 2026-03-16	5/250	2026-03-18 14:48 by haxia
[考研] 311求調(diào)劑 +6	26研0 2026-03-15	6/300	2026-03-18 14:43 by haxia
[考研] 311求調(diào)劑 +11	冬十三 2026-03-15	12/600	2026-03-18 14:36 by 星空星月
[考研] 302求調(diào)劑 +10	呼呼呼。。。。 2026-03-17	10/500	2026-03-18 12:45 by Linda Hu
[考研] 299求調(diào)劑 +5	△小透明* 2026-03-17	5/250	2026-03-18 11:49 by 盡舜堯1
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 308求調(diào)劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考研] 0703一志愿211 285分求調(diào)劑 +5	ly3471z 2026-03-13	5/250	2026-03-16 16:16 by 哦哦123
[考研] 0703 物理化學調(diào)劑 +3	我可以上岸的對?/a> 2026-03-13	5/250	2026-03-16 10:50 by 我可以上岸的對?/a>
[考研] 求老師收留調(diào)劑 +4	jiang姜66 2026-03-14	5/250	2026-03-15 20:11 by Winj1e
[考研] 294求調(diào)劑 +3	Zys010410@ 2026-03-13	4/200	2026-03-15 10:59 by zhq0425
[考研] 中科大材料與化工319求調(diào)劑 +3	孟鑫材料 2026-03-14	3/150	2026-03-14 20:10 by ms629
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 330求調(diào)劑 +3	?醬給調(diào)劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky

24小時熱門版塊排行榜

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

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

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