正壓原始方程模式實習(xí)報告-文庫吧在線文庫
【正文】 的數(shù)值試驗； ③是否做邊界平滑的數(shù)值試驗； ④是否做時間平滑的數(shù)值試驗。subroutine ssip(a,w,s,m,n,k,l) 定義五點平滑子程序dimension a(m,n),w(m,n) 定義數(shù)組if(l==1)then do i=2,m1 do j=2,n1 w(i,j)=a(i,j)+s*(a(i1,j)+a(i+1,j)+a(i,j1)+a(i,j+1)4*a(i,j))/ 執(zhí)行正平滑enddoenddodo i=2,m1 do j=2,n1 a(i,j)=w(i,j)enddoEnddoreturnElsedo i=2,m1 do j=2,n1 w(i,j)=a(i,j)+s*(a(i1,j)+a(i+1,j)+a(i,j1)+a(i,j+1)4*a(i,j))/ 執(zhí)行正平滑 enddoenddodo i=2,m1do j=2,n1a(i,j)=w(i,j)enddoenddodo i=2,m1do j=2,n1 w(i,j)=a(i,j)+(s)*(a(i1,j)+a(i+1,j)+a(i,j1)+a(i,j+1)4*a(i,j))/ 執(zhí)行正逆平滑enddoenddodo i=2,m1 do j=2,n1 a(i,j)=w(i,j) enddoenddoendifreturne
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1