傳熱學(xué)matlab溫度分布大作業(yè)完整版(編輯修改稿)
2024-09-13 07:33 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 (200+t(3,2)+t(5,2)+t(4,3))/4。 t(5,2)=(2*t(4,2)+200+t(5,3))/4。t(2,3)=(100+t(2,2)+t(3,3)+t(2,4))/4。 t(3,3)=(t(3,2)+t(2,3)+t(4,3)+t(3,4))/4。 t(4,3)=(t(4,2)+t(3,3)+t(5,3)+t(4,4))/4。 t(5,3)=(2*t(4,3)+t(5,2)+t(5,4))/4。t(2,4)=(100+t(2,3)+t(2,5)+t(3,4))/4。 t(3,4)=(t(3,3)+t(2,4)+t(4,4)+t(3,5))/4。 t(4,4)=(t(4,3)+t(4,5)+t(3,4)+t(5,4))/4。t(5,4)=(2*t(4,4)+t(5,3)+t(5,5))/4。t(2,5)=(2*t(2,4)+300+t(3,5))/24。 t(3,5)=(2*t(3,4)+t(2,5)+t(4,5)+200)/24。 t(4,5)=(2*t(4,4)+t(3,5)+t(5,5)+200)/24。 t(5,5)=(t(5,4)+t(4,5)+100)/12。t39。endcontour(t39。,50)。ans = 【Jacobi迭代程序】函數(shù)文件為：function [y,n]=jacobi(A,b,x0,eps)D=diag(diag(A))。L=tril(A,1)。U=triu(A,1)。B=D\(L+U)。f=D\b。y=B*x0+f。n=1。while norm(yx0)=eps x0=y。 y=B*x0+f。 n=n+1。end命令文件為：A=[4,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0。 1,4,1,0,0,1,0,0,0,0,0,0,0,0,0,0。 0,1,4
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1