原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
实习一 求500hPa高度场气候场、距平场和均方差场
分析：7月份多年平均场在东部海面有高压中心，西部有低压中心。
2、距平场：
T=1982.7
分析：对于7月份而言，1982年的高度场偏低，大部分地区为负距平。
实习二 计算给定数据资料的简单相关系数和自相关系数
2）分别找出两个气温数据自相关系数绝对值最大的滞后时间长度。（滞后长度τ最大取10）
二、fortran程序
program main
implicit none
integer i,j,maxi
real::k=0,sumx=0,sumy=0,xa,ya,sx,sy,r1,y(20),x(20),rx(10),ry(10)
real::data1(20)=(/3.4,3.3,3.2,2.9,3.4,2.8,3.6,3.0,2.8,3.0,3.1,3.0,2.9,2.7,3.5,3.2,3.1,2.8,2.9,2.9/)
real::data2(20)=(/3.24,3.14,3.26,2.38,3.32,2.71,2.84,3.94,2.75,1.83,2.8,2.81,2.63,3.2,3.6,3.4,3.07,1.87,2.63,2.47/)
do i=1,20
sumx=sumx+data1(i)
sumy=sumy+data2(i)
end do
xa=sumx/20;ya=sumy/20
sumx=0;sumy=0
do i=1,20
sumx=sumx+(data1(i)-xa)**2；sumy=sumy+(data2(i)-ya)**2
end do
sx=sqrt(sumx/20);sy=sqrt(sumy/20)
sumx=0;sumy=0
do i=1,20
x(i)=(data1(i)-xa)/sx；y(i)=(data2(i)-ya)/sy
end do
do i=1,20
sumx=sumx+x(i)*y(i)
end do
r1=sumx/20;sumx=0
print *,简单相关系数为,r1
do j=1,10
do i=1,20-j
sumx=sumx+x(i)*x(i+j)；sumy=sumy+y(i)*y(i+j)
end do
rx(j)=abs(sumx/(20-j))； ry(j)=abs(sumy/(20-j))
sumx=0;sumy=0
end do
maxi=1
do i=1,10
if(rx(i)=rx(maxi)) then
maxi=i
end if
end do
print *,年平均气温对应的j为,maxi
maxi=1
do i=1,10
if(ry(i)=ry(maxi)) then
maxi=i
end if
end do
print *,冬季平均气温对应的j为,maxi
end
三、运行结果显示
实习三 计算给定数据的落后交叉相关系数和偏相关系数 北京冬季（12月~2月）气温资料（滞后长度τ最大取10） 12月 1月 2月 1951 1.0 -2.7 -4.3 1952 -5.3 -5.9 -3.5 1953 -2.0 -3.4 -0.8 1954 -5.7 -4.7 -1.1 1955 -0.9 -3.8 -3.1 1956 -5.7 -5.3 -5.9 1957 -2.1 -5.0 -1.6 1958 0.6 -4.3 0.2 1959 -1.7 -5.7 2.0 1960 -3.6 -3.6 1.3 1961 -3.0 -3.1 -0.8 1962 0.1 -3.9 -1.1 1963 -2.6 -3.0 -5.2 1964 -1.4 -4.9 -1.7 1965 -3.9 -5.7 -2.5 1966 -4.7 -4.8 -3.3 1967 -6.0 -5.6 -4.9 1968 -1.7 -6.4 -5.1 1969 -3.4 -5.6 -2.0 1970 -3.1 -4.2 -2.9 1971 -3.8 -4.9 -3.9 1972 -2.0 -4.1 -2.4 1973 -1.7 -4.2 -2.0 1974 -3.6 -3.3 -2.0 1975 -2.7 -3.7 0.1 1976 -2.4 -7.6 -2.2 1977 -0.9 -3.5 -2.3 1978 -2.7 -4.2 -0.5 1979 -1.6 -4.5 -2.9 1980 -3.9 -4.8 -1.4
二、fortran程序
program main
implicit none
integer iy,t,j,i
real::var(30,3),s12(10),s13(10)
文档评论（0）