气象统计方法实习报告注 ： 本 人 上 传 实 习 报 告 ， 并 不 想 为 大 家 抄 袭 提 供 方 便 ， 只 是 想 给 大 家 一个 参 考 和 验 证 ， 我 认 为 每 一 个 用 心 之 人 都 会 做 得 比 我 更 好 ， 本 文 档 只 起 抛 砖 之 效 。专业：大气科学班级：2010 级 x 班学号：xxxxxxxxxx姓名：xx1目录实习一气候场、距平场和均方差场的计算...............................2实习二 相关系数及自相关系数的计算.......................................6实习三 一元线性回归...................................................................9实习四 滑动平均......................................................................... 10实习五 多元线性回归.................................................................12实习六 ＥＯＦ分析..................................................................... 15实习心得....................................................................................... 262实习一气候场、距平场和均方差场的计算要求：有一500hPa 高度场资料，文件名 h500.dat，范围：60~150E，0~40N.时段：1982.1~1985.12共 48 个月。水平分辨率：2.5*2.5，格点数：37*17。编 fortran 程序，求 500hPa高度场的（1）气候场；（2）距平场；（3）均方差场。并能用 Grads 做出图形,实习报告中气候场、距平场、均方差场任意给出两张图，图注要清楚，即要注明是哪个时间的图形，并做简单说明。注：h500.For 给出了如何用 fortran 读取 ASCII 码资料 h500.dat.编写的 fortran 程序如下：program oneimplicit noneinteger nx,ny,mo,yrparameter(nx=37,ny=17,mo=12,yr=4)real datas(nx,ny,mo,yr)real a(nx,ny,mo),aa(nx,ny,mo,yr),bb(nx,ny,mo)integer i,j,t,it,ii,mi,irecopen(5,file='e:\h500.dat')do ii=1,4do mi=1,12read(5,1000)read(5,3000) ((datas(i,j,mi,ii),i=1,nx),j=1,ny)end doend doclose(5)!气候场do t=1,12do j=1,nydo i=1,nxa(i,j,t)=0do it=1,4a(i,j,t)=a(i,j,t)+datas(i,j,t,it)end do3a(i,j,t)=a(i,j,t)/4end doend doend do!求距平场do t=1,12do j=1,nydo i=1,nxaa(i,j,t,1)=0do it=1,4aa(i,j,t,it)=datas(i,j,t,it)-a(i,j,t)end doend doend doend do!求...
