f_eigensys.m

来自「核直接线性判别方法:图像及高维复杂数据模式识别的利器！内有方法开发的相关文档说明」· M 代码 · 共 17 行

function [eVec,eVal]=F_EigenSys(M);
%
% Syntax: [eVec,eVal]=F_EigenSys(M);
% - Eigen values and vectors of M, sorted by decreasing eigen values.
%
% Author: Lu Juwei - U of Toronto
% Created in 27 May 2001
% Modified in 6 August 2003
%

[eVec,eVal]=eig(M);
eVal=abs(diag(eVal)');

[eVal,Index]=sort(eVal);
eVal=fliplr(eVal);
eVec=fliplr(eVec(:,Index));