subfunmassmatrix_cantilever.m

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

function MassM=SUBFunMassMatrix(L,n,d1,d2,Density)
     
Le=L/n; 
r1=d1/2;      %钢管的内半径
r2=d2/2;      %钢管的外半径
A=pi*(r2^2-r1^2); 

Me=Density*A*Le;

MassM=zeros(n,n);
for i=1:n
    for j=1:n
        if i==j
           MassM(i,j)=Me;
       end
   end
end