cjdzhjli.asv

matlab编写结构计算振型分解法

function [Fgd]=cjdzhjli(Fgd,dn)
i=dn;

while (i-1)>0
    F1(i-1,:)=Fgd(i,:)+Fgd(i-1,:);
    F1=F1
    i=i-1;
end

for i=1:dn
    Fgd=norm(F1(i