% eigenvalue_complex2real.m
% 復數特征值和特征向量的轉化
disp('從復數特征值和特征向量向實特征值和特征向量轉化：')
X=[ 1     2     3
    0     4     5
    0    -5     4];
[V,D] = eig(X)
[VR,DR] = cdf2rdf(V,D)
disp('從實數特征值和特征向量向復數特征值和特征向量轉化：')
A=[1     1     1     3
   1     2     1     1
   1     1     3     1
  -2     1     1     4];
d=eig(A)
[u,t] = schur(A)
[U,T] = rsf2csf(u,t)