勘误:
[MA,KB]=qianchuli(V);%质量阵,刚度矩阵
[V1,D1]=eig(KB,-MA);%原系统特征向量及特征值
[V2,D2]=eig(KB.',MA.');%伴随系统特征向量及特征值
d1=diag(D1);
d2=diag(D2);
dr1=real(d1);
di1=imag(d1);
dr2=real(d2);
di2=imag(d2);
de1=[dr1 di1];
de2=[dr2 di2];
[d11,pk11]=sortrows(de1,2);
[d12,pk12]=sortrows(de2,-2);
[~,pk21]=sortrows(d11,1);
[~,pk22]=sortrows(d12,-1);
lv=74;%自由度个数
pt11=zeros(lv,lv);
pt12=zeros(lv,lv);
pt21=zeros(lv,lv);
pt22=zeros(lv,lv);
for ih=1:lv
pm11=pk11(ih);
pm12=pk12(ih);
pm21=pk21(ih);
pm22=pk22(ih);
pt11(ih,pm11)=1;
pt12(ih,pm12)=1;
pt21(ih,pm21)=1;
pt22(ih,pm22)=1;
end
pt1=pt21*pt11;%原系统转换矩阵
pt2=pt22*pt12;%伴随系统转换矩阵
p11=pt1*D1/pt1;
p11=diag(p11);%原系统转换后的特征值
p12=pt2*D2/pt2;
p12=diag(p12);%伴随系统转换后的特征值
Vt1=V1/pt1;%原系统转换后的特征向量
Vt2=V2/pt2;%伴随系统转换后的特征向量 |