matrixju.rar_helpa4n_刚度矩阵_多自由度体系的刚度矩阵_阻尼_阻尼矩阵

%子程序 %功能：构建刚度矩阵或者阻尼矩阵。 %适用范围：底部固结的多自由度结构，且编号从底层开始往上排序，即底部一层为k1，二层为k2 %输入参数：korc为刚度向量，cn为层数 function[kcju]=matrixju(korc,cn) kcju=zeros(cn); for i=1:cn-1 kcju(i,i)=korc(i)+korc(i+1); kcju(i,i+1)=-korc(i+1); kcju(i+1,i)=-korc(i+1); end kcju(cn,cn)=korc(cn);