Hot answers tagged

4

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[Abs[eigVec[[i]]], maxes[[i]]], {i, Length[eigVal]}] {2, 3, 1} Then use the ordering to permute the ...


4

Make a list of your matrices, called myMatrices, and then: SortBy[myMatrices, -Norm[#]&] or Reverse@SortBy[myMatrices, Norm]


1

Sort[MapThread[{First@Ordering[-Abs[#2], 1], #1} &, Eigensystem[A]]][[All, 2]] {4.97199, 60.0037, 9.02434}



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