10-轴系设计计算-4.m

MATLAb 机械源码文件好东西啊

'4-滚动轴承寿命计算(角接触球轴承7009C,正装结构)'
c7r=25800;                                  % 额定动载荷(N)
c70r=20500;                                 % 额定静载荷(N)
s7a=round(0.4*fra);                         % A轴承内部轴向力(N)
s7b=round(0.4*frb);                         % B轴承内部轴向力(N)
if fa+s7b>=s7a
    fa7a=fa+s7b;                            % 确定紧轴承A轴向载荷(N)
    fa7b=s7b;                               % 确定松轴承B轴向载荷(N)
else
    fa7b=abs(fa-s7a);                       % 确定紧轴承B轴向载荷(N)
    fa7a=s7a;                               % 确定松轴承A轴向载荷(N)
end
xda=fa7a/c70r;                              % 轴承A相对轴向载荷
ea=0.465;                                   % A判断参数(插值查表)
xdb=fa7b/c70r;                              % 轴承B相对轴向载荷
eb=0.41;                                    % B判断参数(插值查表)
if fa7a/fra>ea                              % 轴承A轴向载荷与径向载荷之比
    x7a=0.44;                               % 确定A轴承载荷折算系数X
    y7a=1.21;                               % 确定A轴承载荷折算系数Y
else
    x7a=1;
    y7a=0;
end
p7a=round(x7a*fra+y7a*fa7a);                % 轴承A当量动载荷(N)
if fa7b/frb>eb                              % 轴承B轴向载荷与径向载荷之比
    x7b=0.44;                               % 确定B轴承载荷折算系数X
    y7b=1.37;                               % 确定B轴承载荷折算系数Y
else
    x7b=1;
    y7b=0;
end
p7b=round(x7b*frb+y7b*fa7b);                % 轴承B当量动载荷(N)
fp=1.5;                                     % 轴承载荷系数(减速器中等冲击)
lh7a=round(1e6/60/n2*(c7r/fp/p7a)^3);       % 计算轴承A寿命(h)
lh7b=round(1e6/60/n2*(c7r/fp/p7b)^3);       % 计算轴承B寿命(h)
disp ' '
disp '      ==========   角接触球轴承寿命计算   ==========';
fprintf(1,'         7009C轴承额定动载荷   c7r = %3.0f N \n',c7r);
fprintf(1,'                  额定静载荷  c70r = %3.0f N \n',c70r);
fprintf(1,'             A轴承内部轴向力   s7a = %3.0f N \n',s7a);
fprintf(1,'             B轴承内部轴向力   s7b = %3.0f N \n',s7b);
fprintf(1,'            [A轴承]-轴向载荷  fa7a = %3.0f N \n',fa7a);
fprintf(1,'                相对轴向载荷   xda = %3.3f \n',xda);
fprintf(1,'                    判断参数    ea = %3.3f \n',ea);
fprintf(1,'          轴向与径向载荷之比   fae = %3.3f \n',fa7a/fra);
fprintf(1,'                径向载荷系数   x7a = %3.2f \n',x7a);
fprintf(1,'                轴向载荷系数   y7a = %3.2f \n',y7a);
fprintf(1,'                  当量动载荷   p7a = %3.0f N \n',p7a);
fprintf(1,'                    轴承寿命  lh7a = %3.0f h \n',lh7a);
fprintf(1,'            [B轴承]-轴向载荷  fa7b = %3.0f N \n',fa7b);
fprintf(1,'                相对轴向载荷   xdb = %3.3f \n',xdb);
fprintf(1,'                    判断参数    eb = %3.3f \n',eb);
fprintf(1,'          轴向与径向载荷之比   fbe = %3.3f \n',fa7b/frb);
fprintf(1,'                径向载荷系数   x7b = %3.2f \n',x7b);
fprintf(1,'                轴向载荷系数   y7b = %3.2f \n',y7b);
fprintf(1,'                  当量动载荷   p7b = %3.0f N \n',p7b);
fprintf(1,'                    轴承寿命  lh7b = %3.0f h \n',lh7b);