fisher.m

来自「MATLAB科学计算与工程分析源代码源程序3」· M 代码 · 共 12 行

function [u,result,num]=fisher(M,V,X)
[m,n]=size(M);
I=eye(m);
J=ones(m);
B=M'*(I-J./m)*M;
E=m*V;
[U,D]=eig(inv(E)*B);
[lamda,index]=max(sum(D));
u=U(:,index);
result=abs(X*u-M*u);
[minu,num]=min(result);