exm0533_1.m

精通matlab

%exm0533_1.m
%把复数特征值对角阵D转换成实数块对角阵，使VR*DR/VR=A。

A=[1,-3;2,2/3];
[V,D]=eig(A)  

[VR,DR]=cdf2rdf(V,D)