0001 function [evec] = svec1(emat) 0002 0003 [m,n]= size(emat); 0004 idx = 1; 0005 for j=1:m 0006 for k=1:j 0007 if j==k 0008 evec(idx) = emat(j,k); 0009 else 0010 evec(idx) = emat(j,k); 0011 end 0012 idx = idx + 1; 0013 end 0014 end 0015 0016 end
