Fortran編寫高斯消元法程序，三元一次方程求解。
上傳時間： 2018-03-15
上傳用戶：qingchengde
function [alpha,N,U]=youxianchafen2(r1,r2,up,under,num,deta) %[alpha,N,U]=youxianchafen2(a,r1,r2,up,under,num,deta) %該函數用有限差分法求解有兩種介質的正方形區域的二維拉普拉斯方程的數值解 %函數返回迭代因子、迭代次數以及迭代完成后所求區域內網格節點處的值 %a為正方形求解區域的邊長 %r1,r2分別表示兩種介質的電導率 %up,under分別為上下邊界值 %num表示將區域每邊的網格剖分個數 %deta為迭代過程中所允許的相對誤差限 n=num+1; %每邊節點數 U(n,n)=0; %節點處數值矩陣 N=0; %迭代次數初值 alpha=2/(1+sin(pi/num));%超松弛迭代因子 k=r1/r2; %兩介質電導率之比 U(1,1:n)=up; %求解區域上邊界第一類邊界條件 U(n,1:n)=under; %求解區域下邊界第一類邊界條件 U(2:num,1)=0;U(2:num,n)=0; for i=2:num U(i,2:num)=up-(up-under)/num*(i-1);%采用線性賦值對上下邊界之間的節點賦迭代初值 end G=1; while G>0 %迭代條件：不滿足相對誤差限要求的節點數目G不為零 Un=U; %完成第n次迭代后所有節點處的值 G=0; %每完成一次迭代將不滿足相對誤差限要求的節點數目歸零 for j=1:n for i=2:num U1=U(i,j); %第n次迭代時網格節點處的值 if j==1 %第n+1次迭代左邊界第二類邊界條件 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); %引入超松弛迭代因子后的網格節點處的值 end if i==n+1-j %第n+1次迭代兩介質分界面（與網格對角線重合）第二類邊界條件 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次迭代右邊界第二類邊界條件 U(i,n)=1/4*(2*U(i,j-1)+U(i-1,j)+U(i+1,j)); end end end N=N+1 %顯示迭代次數 Un1=U; %完成第n+1次迭代后所有節點處的值 err=abs((Un1-Un)./Un1);%第n+1次迭代與第n次迭代所有節點值的相對誤差 err(1,1:n)=0; %上邊界節點相對誤差置零 err(n,1:n)=0; %下邊界節點相對誤差置零 G=sum(sum(err>deta))%顯示每次迭代后不滿足相對誤差限要求的節點數目G end
標簽： 有限差分
上傳時間： 2018-07-13
上傳用戶：Kemin
有限差分法的簡單原理和概念，，，，，，，，，，，，
標簽： 有限差分
上傳時間： 2019-06-18
上傳用戶：mrchen...
MATLAB有限元與譜元法導論一書中附帶的Matlab程序
上傳時間： 2020-05-12
上傳用戶：Galhoney
該文檔為基于Python求解偏微分方程的有限差分法簡介文檔，是一份很不錯的參考資料，具有較高參考價值，感興趣的可以下載看看………………
標簽： python
上傳時間： 2021-11-12
上傳用戶：
! 平面桿系結構靜力分析程序 ! 先處理法源程序 ! ! 主要功能和特點： ! 可調數組 ! 輸入單元結點編號和結點位移編碼； ! 先處理法形成總體剛度陣和結構綜合結點荷載 ! 存儲總剛上三角元素； ! GAUSS消元法解線性代數方程組； ! 計算結點位移和單元桿端力
上傳時間： 2013-12-19
上傳用戶：fanboynet
! 平面框架結構靜力分析程序(by fortran) ! 后處理法 ! ! 主要功能： ! 輸入單元結點編號,自動生成結點位移編號； ! 總剛元素按上三角陣存儲； ! 主1副0法引入位移約束條件 ! GAUSS消元法解線性代數方程組；
上傳時間： 2015-03-27
上傳用戶：sclyutian
中南大學C語言程序設計實習 1 實驗一：C語言圖形模式的設置 2 實習二：一元函數的圖形繪制 3 實習三：二維圖形的幾何變換 4 實習四：非線性方程求根的二分法 5 實習五：非線性方程求根的牛頓法 6 實習六：數值積分的矩形法和梯形法 7 實習八：級數求和問題 8 實習九：曲線擬合 9 實習十一：解線性方程組的Gauss消元法 10 實習十四：解線性方程組的Jacobi迭代法 11 實習十六：空間曲面和曲線的繪制 12 實習十七：Hanoi塔問題 13 實習十八：綜合問題
上傳時間： 2013-12-16
上傳用戶：daguda
求解聲學問題的邊界元源程序，可以為使用邊界元法求解位勢問題和彈性力學問題提供啟發
上傳時間： 2015-07-26
上傳用戶：牛津鞋
采用三種最常用的快速算法：非線性迭代法，高斯消元法和一中全新的解法解線性方程組！
上傳時間： 2013-12-02
上傳用戶：牛津鞋
