x11是对称矩阵,为什么特征根求出来是复数,请问怎么样把元素含1/3的矩阵变成对称矩阵?
一个例子:
> x11<-matrix(x1,ncol=4,byrow=T);x11
[,1] [,2] [,3] [,4]
[1,] 1.0000000 2.0 3 3
[2,] 0.5000000 1.0 2 2
[3,] 0.3333333 0.5 1 1
[4,] 0.3333333 0.5 1 1
> evx1<-eigen(x11)
> evx1
$values
[1] 4.010363e+00+0.000000e+00i -5.181451e-03+2.037944e-01i -5.181451e-03-2.037944e-01i
[4] 7.701050e-35+0.000000e+00i