自然正交函数分析EOF-Read.DOC

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
自然正交函数分析EOF-Read

5.3自然正交函数分析(EOF)程序 近年来,自然正交函数(又称经验正交函数)展开在气象上应用比较广泛。这种正交函数展开不象三角函数展开、球函数展开那样有固定的展开形式。它无固定的函数形式,不是事先人为地给定典型场函数,图形是由场本身来决定的,它具有收敛快又能更好地反映出场的基本结构的特征。它可以在有限的区域中进行,既可以取空间不同站点进行分解,也可以对同一站点的不同时间、不同高度的多种要素进行综和分析。因此它在气象中具有广泛的应用,可用于气象要素场分析、大气垂直结构分析、动力模型垂直分层等。 5.3.1功能 计算要素场的自然正交函数分解。 5.3.2方法说明 自然正交函数分解是针对气象要素场进行的,它的基本思想是把包含p个空间点(或p个变量)的n个时次的观测场随时间进行分解,即将某一区域的气象要素场序列(i=1, 2, …,p;j=1,2,…,n,即p个空间点的n个时次的观测资料)分解成相互正交的时间函数与相互正交的空间函数的乘积之和,常把空间函数看作典型场,时间函数看作典型场的权重系数,则不同时间的要素场是若干个典型场按不同权重线性叠加的结果,各个场之间的差别就在于各典型场的系数不同。则气象要素场可以表示为 (5.3.1) 其中Fij表示第i个场中的第j个测点的观测值。 可将(5.3.1)是写为矩阵的形式                  (5.3.2) 式中为阶的均值为0的资料阵,为阶的空间函数阵,为阶的时间函数阵。由于和是根据场的资料阵进行分解而得到的,分解的函数没有固定的函数形式,因而称为“经验”的,另外,我们还要求这种分解具有“正交”性,即要求满足下式 (5.3.3) 事实上,我们对(5.3.2)式右乘可得                     (5.3.4) 因是阶对称阵,其元素为距平变量的交叉积。根据实对称矩阵的分解定理有                      (5.3.5)  其中是矩阵的特征值组成的对角阵,是对应的特征向量为列向量组成的矩阵。比较(5.3.4)和(5.3.5)式可知                        (5.3.6) 又根据特征向量的性质有                     (5.3.7) 式中为单位矩阵。显然(5.3.6)和(5.3.7)式满足(5.3.3)式的要求。由此可知空间函数矩阵可从矩阵的特征向量求得,而时间函数则可利用(5.3.2)式左乘得到,即                        (5.3.8) 5.3.3子程序语句 CALL EOF(X,P,N,XF) 5.3.4哑元说明 X——输入变量,二维实型数组,大小为PN,存放原始观测值。 P——输入整型变量,空间格点数。 N——输入整型变量,序列的时间长度。 XF——输出变量,二维实型数组,大小为PN,存放恢复值。 5.3.5子程序 SUBROUTINE EOF(X,P,N,LW,XF) INTEGER::P INTEGER::N INTEGER::LW REAL(8),DIMENSION(P,N)::X,XF REAL(8),DIMENSION(P,P)::A,V,V1 REAL(8),DIMENSION(P,N)::T REAL(8),DIMENSION(P)::B,GM,GA REAL(8),DIMENSION(P,LW)::VF REAL(8),DIMENSION(LW,N)::TF ! 求X乘以X的转置,即A=XXˊ DO I=1,P DO J=1,P A(I,J)=0 DO K=1,N A(I,J)=A(I,J)+X(I,K)*X(J,K) END DO END DO END DO ! 用Jacobi法求A的特征值和特征向量 ! 返回时B存放矩阵的全部特征值,V存放特征向量为列组成的矩阵 CALL JCB(A,P,1.0E-6,V,B,L) DO I=1,P GA(I)=0 DO J=1,I GA(I)=GA(I)+B(J) END DO END DO DO I=1,P GM(I)=GA(I)/GA(P) END DO DO I=1,P DO J=1,P V1(I,J)=V(J,I) END DO END DO T=MATMUL(V1,X) WRITE(12,( 特征值)) WRITE(12,(PI10))(I,I=1,P) WRITE(12,(3X,PD10.4))B WRITE(12,( 解释的方差(%))

文档评论(0)

xiaozu + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档