subfuncmatrix_cantilever.m

来自「主要用于高层建筑的减振设计,根据线性振动理论,用matlab高级语言编写而成,由」· M 代码 · 共 15 行

function CM=SUBFunCMatrix_Cantilever(n,c,E)
% n--------将杆分为n段
% E---------弹性模量2.1*10^11
% c--------阻尼系数

CM=zeros(n,n);
CM(1,1)=2*c;
for i=2:n
   CM(i,i)=2*c;
   CM(i,i-1)=-c;
   CM(i-1,i)=-c;
end
CM(n,n)=c;