一維穩(wěn)態(tài)導(dǎo)熱matlab程序求解_第1頁
一維穩(wěn)態(tài)導(dǎo)熱matlab程序求解_第2頁
一維穩(wěn)態(tài)導(dǎo)熱matlab程序求解_第3頁
一維穩(wěn)態(tài)導(dǎo)熱matlab程序求解_第4頁
一維穩(wěn)態(tài)導(dǎo)熱matlab程序求解_第5頁
已閱讀5頁，還剩4頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、設(shè)定N=100，a=3, b=40, T0=8, s=20x-4T Matlab源程序代碼：length=2;N=100;iterN=0;eps=1.0e-4;deltQ=2;T2=(1:N);T2(1)=8;T2(N)=1;dx=length/(N-2);while (deltQ>=eps && iterN<50) T=T2;for i=1:N k(i)=3*T(i)3; sc(i)=20*(i-1)/N; sp(i)=4;endk(N/2+1:N)=40*T(N/2+1:N).3;for i=2:N-1 if i=2 a(i-1)=-2*k(i)/dx; c(i

2、-1)=-2*k(i)*k(i+1)/dx/(k(i)+k(i+1); b(i-1)=-a(i-1)-c(i-1)-sp(i)*dx; d(i-1)=sc(i)*dx-a(i-1)*T(i-1); else if i=N-1; a(i-1)=-2*k(i)*k(i-1)/dx/(k(i)+k(i-1); c(i-1)=-2*k(i+1)/dx; b(i-1)=-a(i-1)-c(i-1)-sp(i)*dx; d(i-1)=sc(i)*dx-c(i-1); else a(i-1)=-2*k(i)*k(i-1)/dx/(k(i)+k(i-1); c(i-1)=-2*k(i)*k(i+1)/dx/(

3、k(i)+k(i+1); b(i-1)=-a(i-1)-c(i-1)-sp(i)*dx; d(i-1)=sc(i-1)*dx; end endendif abs(b(1)<=abs(c(1) | abs(b(N-2)<=abs(c(N-2) warndla('²»Âú×ã×·¸Ï·¨Ìõ¼þ','¾¯¸æ£¡');endfor i=1

4、:N-2 if abs(b(i)<abs(c(i)+abs(a(i) warndla('²»Âú×ã×·¸Ï·¨Ìõ¼þ','¾¯¸æ£¡'); endendfor i=1:N-2 if i=1 u(1)=b(1); else l(i)=a(i)/u(i-1); u(i)=b(i)-l(i)*c(i-1); endendfor i=1:N-2 if i=1 y(1)=d(1); else y(i)=d(i)-l(i)*y(i-1); endendfor j=N-2:-1:1 if j=N-2 x(N-2)=y(N-2)/u(N-2); else x(j)=(y(j)-c(j)*x(j+1)/u(j); endend iterN=iterN+1; T2(2:N-1)=x(1:N-2); deltQ=max(abs(T2-

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論