<strike id="kayye"></strike>
一個(gè)學(xué)習(xí)時(shí)域有限差分方法的一維程序，用C語(yǔ)言編寫(xiě)。
上傳時(shí)間： 2013-11-29
上傳用戶(hù)：sz_hjbf
利用時(shí)域有限差分法計(jì)算有介質(zhì)板的高斯波源，通過(guò)Origin能夠顯示結(jié)果。
標(biāo)簽： 時(shí)域 介質(zhì) 有限差分 計(jì)算
上傳時(shí)間： 2017-07-24
上傳用戶(hù)：WMC_geophy
利用時(shí)域有限差分法模擬二維坐標(biāo)中波傳播，使用Origin成功作圖。
上傳時(shí)間： 2014-11-05
上傳用戶(hù)：fredguo
利用時(shí)域有限差分法模擬二維光子晶體光纖中光的傳播
標(biāo)簽： 時(shí)域 二維 光子晶體光纖 有限差分
上傳時(shí)間： 2017-08-22
上傳用戶(hù)：上善若水
利用時(shí)域有限差分方法模擬光子晶體光纖的算法程序
標(biāo)簽： 時(shí)域 光子晶體光纖 有限差分 模擬
上傳時(shí)間： 2013-12-26
上傳用戶(hù)：xauthu
時(shí)域有限差分法的算法 時(shí)域有限差分法的算法
上傳時(shí)間： 2017-09-05
上傳用戶(hù)：x4587
用有限差分法求解程函方程，計(jì)算每個(gè)點(diǎn)的初至走時(shí)。
標(biāo)簽： 地震處理
上傳時(shí)間： 2015-04-21
上傳用戶(hù)：小關(guān)cccc
微波相關(guān)專(zhuān)輯 共31冊(cè) 341M電磁場(chǎng)計(jì)算中的時(shí)域有限差分法（王常清） 382頁(yè) 12.3M pdf版.pdf
標(biāo)簽：
上傳時(shí)間： 2014-05-05
上傳用戶(hù)：時(shí)代將軍
function [alpha,N,U]=youxianchafen2(r1,r2,up,under,num,deta) %[alpha,N,U]=youxianchafen2(a,r1,r2,up,under,num,deta) %該函數(shù)用有限差分法求解有兩種介質(zhì)的正方形區(qū)域的二維拉普拉斯方程的數(shù)值解 %函數(shù)返回迭代因子、迭代次數(shù)以及迭代完成后所求區(qū)域內(nèi)網(wǎng)格節(jié)點(diǎn)處的值 %a為正方形求解區(qū)域的邊長(zhǎng) %r1,r2分別表示兩種介質(zhì)的電導(dǎo)率 %up,under分別為上下邊界值 %num表示將區(qū)域每邊的網(wǎng)格剖分個(gè)數(shù) %deta為迭代過(guò)程中所允許的相對(duì)誤差限 n=num+1; %每邊節(jié)點(diǎn)數(shù) U(n,n)=0; %節(jié)點(diǎn)處數(shù)值矩陣 N=0; %迭代次數(shù)初值 alpha=2/(1+sin(pi/num));%超松弛迭代因子 k=r1/r2; %兩介質(zhì)電導(dǎo)率之比 U(1,1:n)=up; %求解區(qū)域上邊界第一類(lèi)邊界條件 U(n,1:n)=under; %求解區(qū)域下邊界第一類(lèi)邊界條件 U(2:num,1)=0;U(2:num,n)=0; for i=2:num U(i,2:num)=up-(up-under)/num*(i-1);%采用線性賦值對(duì)上下邊界之間的節(jié)點(diǎn)賦迭代初值 end G=1; while G>0 %迭代條件：不滿(mǎn)足相對(duì)誤差限要求的節(jié)點(diǎn)數(shù)目G不為零 Un=U; %完成第n次迭代后所有節(jié)點(diǎn)處的值 G=0; %每完成一次迭代將不滿(mǎn)足相對(duì)誤差限要求的節(jié)點(diǎn)數(shù)目歸零 for j=1:n for i=2:num U1=U(i,j); %第n次迭代時(shí)網(wǎng)格節(jié)點(diǎn)處的值 if j==1 %第n+1次迭代左邊界第二類(lèi)邊界條件 U(i,j)=1/4*(2*U(i,j+1)+U(i-1,j)+U(i+1,j)); end if (j>1)&&(j U2=1/4*(U(i,j+1)+ U(i-1,j)+ U(i,j-1)+ U(i+1,j)); U(i,j)=U1+alpha*(U2-U1); %引入超松弛迭代因子后的網(wǎng)格節(jié)點(diǎn)處的值 end if i==n+1-j %第n+1次迭代兩介質(zhì)分界面（與網(wǎng)格對(duì)角線重合）第二類(lèi)邊界條件 U(i,j)=1/4*(2/(1+k)*(U(i,j+1)+U(i+1,j))+2*k/(1+k)*(U(i-1,j)+U(i,j-1))); end if j==n %第n+1次迭代右邊界第二類(lèi)邊界條件 U(i,n)=1/4*(2*U(i,j-1)+U(i-1,j)+U(i+1,j)); end end end N=N+1 %顯示迭代次數(shù) Un1=U; %完成第n+1次迭代后所有節(jié)點(diǎn)處的值 err=abs((Un1-Un)./Un1);%第n+1次迭代與第n次迭代所有節(jié)點(diǎn)值的相對(duì)誤差 err(1,1:n)=0; %上邊界節(jié)點(diǎn)相對(duì)誤差置零 err(n,1:n)=0; %下邊界節(jié)點(diǎn)相對(duì)誤差置零 G=sum(sum(err>deta))%顯示每次迭代后不滿(mǎn)足相對(duì)誤差限要求的節(jié)點(diǎn)數(shù)目G end
標(biāo)簽： 有限差分
上傳時(shí)間： 2018-07-13
上傳用戶(hù)：Kemin
二維Helmholtz方程的高階有限差分方法，
標(biāo)簽： Helmholtz 二維 方程 有限差分
上傳時(shí)間： 2019-04-29
上傳用戶(hù)：s997861000
蟲(chóng)蟲(chóng)下載站版權(quán)所有 京ICP備2021023401號(hào)-1
<strike id="gacci"></strike>