cjdzhjli.m

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

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

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

for i=1:dn
    F1(i)=sqrt(Fgd(i,:)*Fgd(i,:)');
end