Mercurial > hg > ishara

diff general/numerical/matrix/eigvecs.m @ 16:db7f4afd27c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rearranging numerical toolbox.
author samer
date Thu, 17 Jan 2013 13:20:44 +0000
parents general/numerical/eigvecs.m@e44f49929e56
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/numerical/matrix/eigvecs.m	Thu Jan 17 13:20:44 2013 +0000
@@ -0,0 +1,8 @@
+% eigvec - Return selected eigenvectors of a matrix
+%
+% eigvec :: [[N,N]], [[M]->[N]] -> [[N,M]].
+function V=eigvecs(A,I)
+	[V,D]=eig(A);
+	V=fliplr(V);
+	V=V(:,I);
+end