氣候變化及其診斷實(shí)習(xí)報告(專業(yè)版)
【正文】 *x39。在105E，40N處的等值線值明顯是區(qū)域中最大的。,form=39。（2）程序：program dlimplicit none parameter N=37,M=17,nyr=4,nmon=12real h(N,M,nmon,nyr),s(N,M,nmon),qh(N,M,nmon),bzc(N,M,nmon,nyr),jp(N,M,nmon,nyr)integer ix,iy,it,ittopen(1,file=39。binary39。7月份標(biāo)準(zhǔn)差場上圖是500hpa高度場1982年7月要素標(biāo)準(zhǔn)差場分布圖，從圖中可以分析出：該要素緯向分布無明顯連續(xù)的變化趨勢，呈現(xiàn)多個中心，在62E，17N，132E，7N和103E，40N處分別存在一個低值中心，在90E，15N處存在一個略微高于周圍區(qū)域的高值中心，在140E~150E，25N處存在一個明顯的高值中心，在150E，40N處呈現(xiàn)最高值等值線。)sx=0sy=0do i =1,Nread(2,*) x(i)read(3,*) y(i)sx=sx+x(i)sy=sy+y(i)end do avex=sx/Navey=sy/Ncall f(x,y,avex,avey)end program!求回歸方程subroutine f(x,y,avex,avey)implicit none parameter N=17,P=integer i,x(N)real avex,avey,y(N),sxy,sx2,b,a,m,y2(N),cy,hy,FFsxy=0sx2=0do i=1,Nsxy=sxy+(x(i)avex)*(y(i)avey)sx2=sx2+(x(i)avex)**2end dosxy=sxy/Nsx2=sx2/Nb=sxy/sx2a=aveyb*avexm=a+b*Pprint(39。,), m !求檢驗值cy=0hy=0do i=1,Ny2(i)=a+b*x(i)cy=cy+(y(i)y2(i))**2hy=hy+(y2(i)avey)**2print(), y2(i)end doFF=hy/(cy/(N2))print(39。h:\qihou\160\39。f:/sx/h500/39。binary39。)open(4,file=39。1月份距平場上圖是500hpa高度場1982年1月要素距平場分布圖，從圖中可以分析出：該要素距平沿緯度變化趨勢明顯，從20N左右至40N距平值遞增，從赤道至20N距平值遞減，在100E，35N處有一個高值中心，在60E，25N和130E，22N處分別有一個低值中心。d:/sx/39。（2）實(shí)習(xí)步驟；；；；。所以相關(guān)系數(shù)不高。) do itt=1,nyr do i
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1