shearc.m

来自「利用matalab编制的转子动力学计算软件。其中模型利用有限元建模」· M 代码 · 共 12 行

function kappa=shearc(nu,do,di)
%kappa=shearc(nu,do,di)
%
% shear coefficient for round (hollow) shafts
%
% I. Bucher 3/97

m=di/do;

kappa=6*(1+nu)*(1+m*m)^2/( (7+6*nu)*(1+m*m)^2+(20+12*nu)*m*m);