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