%MINEIG Minimum eigenvalue and the corresponding eigenvector.% [L, Q] = MINEIG(A) returns the minimum eigenvalue L and the% corresponding eigenvector Q of the square matrix A. Minimum is % in the sense of absolute value if complex eigenvalues exist.%% [L, Q] = MINEIG(A, B) returns the minimum generalized eigenvalue% (返回矩陣A的最小特征值以及與其對應的特征向量）% L and the corresponding generalized eigenvector Q of the square% matrix A. Minimum is in the sense of absolute value if complex eigenvalues exist.function [l, q]=mineig(varargin);  [v, d]=eig(varargin{1});	 % D是輸入矩陣的特征值構成的對角矩陣  % find the minimum eigenvalue and the index to it[l, index]=min(abs(diag(d)));					% this is the corresponding eigenvectorq = real(v(:,index));