view toolboxes/FullBNT-1.0.7/KPMtools/is_psd.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

function b = positive_semidefinite(M)
%
% Return true iff v M v' >= 0 for any vector v.
% We do this by checking that all the eigenvalues are non-negative.

E = eig(M);
if length(find(E>=0)) == length(E)
  b = 1;
else
  b = 0;
end