
Intersection over an index
Posted:
Oct 16, 2012 10:50 PM


Given a set of n many matrices A[k], I'd like to find any common eigenvectors. Using
Intersection[Table[Eigenvalues[A[k]],{k,1,n}] doesn't seem to work. For instance:
A[1] = {{1, 3, 1}, {0, 3, 0}, {1, 1, 1}}; A[2] = {{2, 1, 1}, {0, 1, 0}, {1, 1, 2}}; Intersection[Table[A[p], {p, 1, 2}]]
gives me {{{2, 1, 1}, {0, 1, 0}, {1, 1, 2}}, {{1, 3, 1}, {0, 3, 0}, {1, 1, 1}}}
Any suggestions?

