cjwy.m

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

function [uu,aa]=cjwy(v,k0,h,dn)
for i=1:dn
    uu(i)=v(i)/k0(i);
    aa(i)=1/(uu(i)/h(i));
end