 |
 |
 |
| 24小時熱門版塊排行榜 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1770 | 回復(fù): 11 | |||
[求助]
求幫忙，關(guān)于含有bessel函數(shù)的方程的編程求解問題
|
|
我現(xiàn)在有個含有貝塞爾函數(shù)的方程，方程只有一個未知數(shù)k,我需要求方程等于0時k隨l的變化。我編的程序如下，請各位高手幫忙看下哪里出了問題，非常感謝! ps：附件是要求的方程及所用到的關(guān)系式 a=0.01159; b=0.02317; e=10; l=7; syms k jleka=((pi/(2*e^0.5*k*a))^0.5)*besselj(l+0.5,e^0.5*k*a); jlka=((pi/(2*k*a))^0.5)*besselj(l+0.5,k*a); jlkb=((pi/(2*k*b))^0.5)*besselj(l+0.5,k*b); jldka=0.5*jlka+(k*a*pi/8)^0.5*(besselj(l-0.5,k*a)-besselj(l+1.5,k*a)); jldeka=0.5*jleka+(e^0.5*k*a*pi/8)^0.5*(besselj(l-0.5,e^0.5*k*a)-besselj(l+1.5,e^0.5*k*a)); ylka=((pi/(2*k*a))^0.5)*bessely(l+0.5,k*a); ylkb=((pi/(2*k*b))^0.5)*bessely(l+0.5,k*b); yldka=0.5*ylka+(k*a*pi/8)^0.5*(bessely(l-0.5,k*a)-bessely(l+1.5,k*a)); h11=jleka; h12=jlka/jlkb-ylka/ylkb; h21=jldeka; h22=jldka/jlkb-yldka/ylkb; y=h11*h22-h12*h21; k=solve(y) |
回復(fù)此樓» 猜你喜歡
26博士申請
已經(jīng)有3人回復(fù)
-
268求調(diào)劑
已經(jīng)有3人回復(fù)
-
302求調(diào)劑
已經(jīng)有5人回復(fù)
-
311求調(diào)劑
已經(jīng)有10人回復(fù)
-
被我言中：新模板不強調(diào)格式了，假專家開始管格式了
已經(jīng)有4人回復(fù)
-
303求調(diào)劑
已經(jīng)有5人回復(fù)
-
考研求調(diào)劑
已經(jīng)有4人回復(fù)
-
085601專碩，總分342求調(diào)劑，地區(qū)不限
已經(jīng)有4人回復(fù)
-
085601材料工程專碩求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求matlab求解一個方程組的問題
已經(jīng)有6人回復(fù)
- 【求助】matlab 求解微分方程中的未知參數(shù)
已經(jīng)有20人回復(fù)
- 【求助】向各位大俠求助matlab求解微分方程組遇到的一個問題
已經(jīng)有21人回復(fù)
- 【求助】MATLAB 有限差分法（FDM）求解偏微分方程
已經(jīng)有22人回復(fù)
- 【求助完畢】用ode逆向求解微分方程問題
已經(jīng)有4人回復(fù)
- 【求助】積分微分方程matlab求解
已經(jīng)有6人回復(fù)
- 【求助】求助PDEPE函數(shù)求解高階偏微分方程 ：D
已經(jīng)有5人回復(fù)
- 【求助】指數(shù)函數(shù)方程求解
已經(jīng)有5人回復(fù)
fengsj9898
捐助貴賓 (正式寫手)
- 應(yīng)助: 3 (幼兒園)
- 金幣: 285.1
- 散金: 3600
- 紅花: 5
- 帖子: 371
- 在線: 82.8小時
- 蟲號: 425920
- 注冊: 2007-07-28
- 專業(yè): 機械結(jié)構(gòu)強度學(xué)
【答案】應(yīng)助回帖
★ ★
xzhdty(金幣+2): 歡迎常來程序語言看看 2011-07-14 15:41:58
watertxf(金幣+5): 您好！能不能麻煩您在跟我詳細(xì)說一下？ 2011-07-15 14:07:49
xzhdty(金幣+2): 歡迎常來程序語言看看 2011-07-14 15:41:58
watertxf(金幣+5): 您好！能不能麻煩您在跟我詳細(xì)說一下？ 2011-07-15 14:07:49
|
ki=0:0.1:1; nki=length(k); yi=zeros(nki,1); for i=1:nk k=ki(i); jleka=((pi/(2*e^0.5*k*a))^0.5)*besselj(l+0.5,e^0.5*k*a); jlka=((pi/(2*k*a))^0.5)*besselj(l+0.5,k*a); jlkb=((pi/(2*k*b))^0.5)*besselj(l+0.5,k*b); jldka=0.5*jlka+(k*a*pi/8)^0.5*(besselj(l-0.5,k*a)-besselj(l+1.5,k*a)); jldeka=0.5*jleka+(e^0.5*k*a*pi/8)^0.5*(besselj(l-0.5,e^0.5*k*a)-besselj(l+1.5,e^0.5*k*a)); ylka=((pi/(2*k*a))^0.5)*bessely(l+0.5,k*a); ylkb=((pi/(2*k*b))^0.5)*bessely(l+0.5,k*b); yldka=0.5*ylka+(k*a*pi/8)^0.5*(bessely(l-0.5,k*a)-bessely(l+1.5,k*a)); h11=jleka; h12=jlka/jlkb-ylka/ylkb; h21=jldeka; h22=jldka/jlkb-yldka/ylkb; y=h11*h22-h12*h21; yi(i)=y; end |
2樓2011-07-14 11:57:37
xiao5725
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1572.1
- 帖子: 87
- 在線: 53.7小時
- 蟲號: 567460
- 注冊: 2008-06-01
- 專業(yè): 有機化工
3樓2011-07-14 12:24:46
4樓2011-07-14 14:20:49
5樓2011-07-14 14:38:35
6樓2011-07-14 14:40:37
fengsj9898
捐助貴賓 (正式寫手)
- 應(yīng)助: 3 (幼兒園)
- 金幣: 285.1
- 散金: 3600
- 紅花: 5
- 帖子: 371
- 在線: 82.8小時
- 蟲號: 425920
- 注冊: 2007-07-28
- 專業(yè): 機械結(jié)構(gòu)強度學(xué)
7樓2011-07-19 13:08:29
fengsj9898
捐助貴賓 (正式寫手)
- 應(yīng)助: 3 (幼兒園)
- 金幣: 285.1
- 散金: 3600
- 紅花: 5
- 帖子: 371
- 在線: 82.8小時
- 蟲號: 425920
- 注冊: 2007-07-28
- 專業(yè): 機械結(jié)構(gòu)強度學(xué)
★ ★
余澤成(金幣+2): 辛苦了，暑假愉快！ 2011-08-18 17:04:33
余澤成(金幣+2): 辛苦了，暑假愉快！ 2011-08-18 17:04:33
|
a=0.01159; b=0.02317; e=10; for l=1:10 % l=7; % syms k dk=0.1; % 這個來控制精度 k=1:dk:1e3; jleka=((pi./(2.*e.^0.5.*k.*a)).^0.5).*besselj(l+0.5,e.^0.5.*k.*a); jlka=((pi./(2.*k.*a)).^0.5).*besselj(l+0.5,k.*a); jlkb=((pi./(2.*k.*b)).^0.5).*besselj(l+0.5,k.*b); jldka=0.5.*jlka+(k.*a.*pi./8).^0.5.*(besselj(l-0.5,k.*a)-besselj(l+1.5,k.*a)); jldeka=0.5.*jleka+(e.^0.5.*k.*a.*pi./8).^0.5.*(besselj(l-0.5,e.^0.5.*k.*a)-besselj(l+1.5,e.^0.5.*k.*a)); ylka=((pi./(2.*k.*a)).^0.5).*bessely(l+0.5,k.*a); ylkb=((pi./(2.*k.*b)).^0.5).*bessely(l+0.5,k.*b); yldka=0.5.*ylka+(k.*a.*pi./8).^0.5.*(bessely(l-0.5,k.*a)-bessely(l+1.5,k.*a)); h11=jleka; h12=jlka./jlkb-ylka./ylkb; h21=jldeka; h22=jldka./jlkb-yldka./ylkb; y=h11.*h22-h12.*h21; y1=y(1:end-1); y2=y(2:end); idx=find(y1.*y2<0); sol=k(idx); k0=min(sol); kmin(l)=k0; end 用很土的辦法解的，不知道你要求精度多少，自己可以改dk |
8樓2011-07-19 13:09:39
9樓2011-08-18 11:08:48
10樓2011-08-18 11:24:28
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 watertxf 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研求調(diào)劑 +3 | 橘頌. 2026-03-17 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 296求調(diào)劑 +5 | 大口吃飯 身體健 2026-03-13 | 5/250 |
|
|
|
[考研] 277調(diào)劑 +5 | 自由煎餅果子 2026-03-16 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +3 | p asserby. 2026-03-15 | 4/200 |
|
|
|
[考研] 285化工學(xué)碩求調(diào)劑（081700） +9 | 柴郡貓_ 2026-03-12 | 9/450 |
|
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +7 | 邱gl 2026-03-11 | 8/400 |
|
|
|
[考研] 機械專碩325，尋找調(diào)劑院校 +3 | y9999 2026-03-15 | 5/250 |
|
|
|
[考研] 333求調(diào)劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
|
[考研] 0854控制工程 359求調(diào)劑 可跨專業(yè) +3 | 626776879 2026-03-14 | 9/450 |
|
|
|
[考研] 304求調(diào)劑 +5 | 素年祭語 2026-03-15 | 5/250 |
|
|
|
[考研] 一志愿華中師范071000，325求調(diào)劑 +6 | RuitingC 2026-03-12 | 6/300 |
|
|
|
[考研] 22408總分284求調(diào)劑 +3 | InAspic 2026-03-13 | 3/150 |
|
|
|
[考研] 288求調(diào)劑 +4 | 奇點0314 2026-03-14 | 4/200 |
|
|
|
[考研] 一志愿中科院，化學(xué)方向，295求調(diào)劑 +4 | 一氧二氮 2026-03-11 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +6 | Mochaaaa 2026-03-12 | 7/350 |
|
|
|
[考研] 一志愿西南交大，材料專碩317求調(diào)劑 +5 | lx8568 2026-03-11 | 5/250 |
|
|
|
[考研] 四川大學(xué)085601材料工程專碩 初試294求調(diào)劑 +4 | 祝我們好在冬天 2026-03-11 | 4/200 |
|
|
|
[考研] 26調(diào)劑/材料科學(xué)與工程/總分295/求收留 +9 | 2026調(diào)劑俠 2026-03-12 | 9/450 |
|
|
|
[碩博家園] 085600 260分求調(diào)劑 +3 | 天空還下雨么 2026-03-13 | 5/250 |
|
|
|
[考研] 274求調(diào)劑 +3 | S.H1 2026-03-12 | 3/150 |
|