Hot answers tagged

3

Set your matrix and take the eigensystem: a = {{5, 0.1, 0.1}, {2, 60, 1}, {1, 0, 9}}; {eigVal, eigVec} = Eigensystem[a]; Find the max values in each eigenvector, and find their positions in order: maxes = Max /@ Abs[eigVec]; ord = Flatten@Table[Position[eigVec[[i]], maxes[[i]]], {i, Length[eigVal]}] {2, 3, 1} Then use the ordering to permute the ...



Only top voted, non community-wiki answers of a minimum length are eligible