有限元求解柏松方程。本文采用FORTRAN語言編制程序。程序中大部分變量采用有名公共區存儲方式存儲,這樣可以減少內存占用量。 IFG:生成有限元網格信息,即元素節點局部編碼與總體編碼對照表,節點實際坐標,邊界節點編碼與邊界點上的已知值 GKD:生成總剛一維存儲對角元的地址,計算總剛一維存儲長度 FIXP:設置已知節點函數值 GK(NI,NJ,ADJ,AIJ):單元剛度矩陣計算 GF(NI,N,M,LE,YI,FE):單元列陣的計算 AK(I,J,AIJ):總剛度矩陣元素迭加 QEB:總剛度矩陣和總列陣合成 BDE:邊界條件處理 SOLGS:Gauss-Seidel迭代法求解方程組 UDIFF(NI,NFLAG,UDIF,LE,ADJ):標準元素內形狀函數導數計算 DIFF:節點上 , 加權平均
上傳時間: 2017-09-12
上傳用戶:問題問題
非線性方程求根實驗,使用牛頓下山法,C++編程,包含實驗報告
上傳時間: 2017-09-13
上傳用戶:GavinNeko
用有限差分法求解程函方程,計算每個點的初至走時。
標簽: 地震處理
上傳時間: 2015-04-21
上傳用戶:小關cccc
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
利用matlab編寫newmark方法,可以求解瞬態動力學方程
上傳時間: 2021-06-10
上傳用戶:xiaowu1
28個實際問題建模MATLAB源程序代碼:MATLAB DCT水印源程序代碼.rarMATLAB GUI實現動態畫圖曲線的源程序代碼.rarMATLAB中colorbar的設置 源程序代碼.rarMATLAB中的基本語法和語句示例代碼.rarMATLAB使用歐拉Euler法求解微分方程組 源程序代碼.rarMATLAB光通過三稜鏡色散動畫.rarMATLAB圖像處理實現直線識別(擬合角平分線).rarMATLAB圖像處理實現螺紋識別 源程序代碼.rarMATLAB夜間車牌識別程序.rarMATLAB實現不同插值方法的GUI界面設計 源程序代碼.rarMATLAB實現偏微分方程的差分計算 源程序代碼.rarMATLAB實現圖像去噪 濾波 銳化 邊緣檢測.rarMATLAB實現學生成績查詢系統 源代碼程序.rarMATLAB實現灰度預測模型的源代碼.rarMATLAB實現線性擬合和相關系數 源程序代碼.rarMATLAB尋找素數的源程序代碼.rarMATLAB建模 人口增長模型 源程序代碼.rarMATLAB文字連通域源程序代碼.rarMATLAB求解非線性方程組 fsolve源程序代碼.rarMATLAB生成Gif圖片程序源代碼.rarMATLAB繪制 維維安尼Viviani曲線 源代碼程序.rarMATLAB計算粒子速度分布 源程序代碼.rarMATLAB設計的簡單濾波器程序源代碼.rarMATLAB霍夫曼Huffman編碼譯碼GUI界面設計 源程序代碼.rar基于仿射變換的數字圖象置亂技術 MATLAB源程序代碼.rar拉格朗日插值 MATLAB源程序代碼.rar牛頓Newton插值 MATLAB源程序代碼.rar蒙特卡洛法求橢圓面積的MATLAB源程序代碼.rar
標簽: matlab
上傳時間: 2021-11-28
上傳用戶:
基于PLC的四層電梯控制系統設計doc這是一份非常不錯的資料,歡迎下載,希望對您有幫助!
上傳時間: 2021-12-23
上傳用戶:
該文檔為人工神經網絡具有四個基本特征教程文檔,是一份很不錯的參考資料,具有較高參考價值,感興趣的可以下載看看………………
標簽: 人工神經網絡
上傳時間: 2022-02-19
上傳用戶:1208020161
該文檔為四旋翼四軸飛行器設計總結文檔,是一份很不錯的參考資料,具有較高參考價值,感興趣的可以下載看看………………
標簽: 四軸飛行器
上傳時間: 2022-03-23
上傳用戶:
在1974年以后,分數階微積分有了飛速的發展.它與分數階微分方程四無論從理論上還是應用上都發展迅速,應用領域越來越廣,并且有了許多有關的專著以及論文集,并開始呈現出全面地推廣到常微分方程[2.1甚至泛函微分方程的層而上分數階理論.在分數階微積分理論的研究過程中,其優勢主要體現在:1.分數階導數的全局相關性很好的解決了具有局部性的整數階導數不能夠很好地描述出系統函數發展的歷史依賴過程的問題;2.分數階導數僅僅是用很少的幾個參數就能獲得好的效果,克服了經典的整數階微分模型不能很好地與實驗結果相吻合這個嚴重缺點;3.分數階模型在描述復雜的物理學問題時,比起非線性模型,其物理意義更清晰且表達更簡練.
標簽: 分數階微積分
上傳時間: 2022-06-25
上傳用戶:aben