r_eof2.m

基于matlab的各种EOF分解程序

function r_eof(EOFs)

[m,n]=size(EOFs);

T0=zeros(n,n);

for i=1:n
   T(:,n)=fmins('RotateEOFs',T0(:,n),[],[],EOFs(:,n));
end;