r_eof2.m

来自「基于matlab的各种EOF分解程序」· M 代码 · 共 10 行

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;