线代之计算特征值与特征向量
> c [,1] [,2] [,3] [,4] [1,] 1 4 7 10 [2,] 2 5 8 11 [3,] 3 6 9 12 > eigen(c) eigen() decomposition $`values` [1] 3.620937e+01 -2.209373e+00 1.599839e-15 7.166935e-16 $vectors [,1] [,2] [,3] [,4] [1,] 0.4140028 0.82289268 -0.5477226 0.1125155 [2,] 0.4688206 0.42193991 0.7302967 0.2495210 [3,] 0.5236384 0.02098714 0.1825742 -0.8365883 [4,] 0.5784562 -0.37996563 -0.3651484 0.4745519