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

MATLAb 机械源码文件好东西啊

% ---- 3-滚动轴承寿命计算(圆锥滚子轴承30209,正装结构) ----
cr=67800;                                   % 额定动载荷(N)
c0r=83500;                                  % 额定静载荷(N)
e=0.40;                                     % 判断参数
y=1.5;                                      % 轴向系数
fra=round(sqrt(fah^2+fav^2));               % A轴承径向载荷(N)
frb=round(sqrt(fbh^2+fbv^2));               % B轴承径向载荷(N)
sa=round(fra/2/y);                          % A轴承内部轴向力(N)
sb=round(frb/2/y);                          % B轴承内部轴向力(N)
if fa+sb>=sa
    faa=fa+sb;                              % 确定紧轴承A轴向载荷(N)
    fab=sb;                                 % 确定松轴承B轴向载荷(N)
else
    fab=abs(fa-sa);                         % 确定紧轴承B轴向载荷(N)
    faa=sa;                                 % 确定松轴承A轴向载荷(N)
end
if faa/fra>=e                               % 轴承A轴向载荷与径向载荷之比
    xa=0.40;                                % 确定A轴承载荷折算系数X
    ya=y;                                   % 确定A轴承载荷折算系数Y
else
    xa=1;
    ya=0;
end
pa=round(xa*fra+ya*faa);                    % 轴承A当量动载荷(N)
if fab/frb>=e                               % 轴承B轴向载荷与径向载荷之比
    xb=0.40;                                % 确定B轴承载荷折算系数X
    yb=y;                                   % 确定B轴承载荷折算系数Y
else
    xb=1;
    yb=0;
end
pb=round(xb*frb+yb*fab);                    % 轴承B当量动载荷(N)
fp=1.5;                                     % 轴承载荷系数(减速器中等冲击)
lha=round(1e6/60/n2*(cr/fp/pa)^(10/3));     % 计算轴承A寿命(h)
lhb=round(1e6/60/n2*(cr/fp/pb)^(10/3));     % 计算轴承B寿命(h)
disp ' '
disp '      ==========   圆锥滚子轴承寿命计算   ==========';
fprintf(1,'         30209轴承额定动载荷    cr = %3.0f N \n',cr);
fprintf(1,'                  额定静载荷   c0r = %3.0f N \n',c0r);
fprintf(1,'                    判断参数     e = %3.3f \n',e);
fprintf(1,'                    轴向系数     y = %3.3f \n',y);
fprintf(1,'               A轴承径向载荷   fra = %3.0f N \n',fra);
fprintf(1,'               B轴承径向载荷   frb = %3.0f N \n',frb);
fprintf(1,'             A轴承内部轴向力    sa = %3.0f N \n',sa);
fprintf(1,'             B轴承内部轴向力    sb = %3.0f N \n',sb);
fprintf(1,'               A轴承轴向载荷   faa = %3.0f N \n',faa);
fprintf(1,'               B轴承轴向载荷   fab = %3.0f N \n',fab);
fprintf(1,'  [A轴承]-轴向与径向载荷之比   fae = %3.3f \n',faa/fra);
fprintf(1,'                径向载荷系数    xa = %3.2f \n',xa);
fprintf(1,'                轴向载荷系数    ya = %3.2f \n',ya);
fprintf(1,'                  当量动载荷    pa = %3.0f N \n',pa);
fprintf(1,'  [B轴承]-轴向与径向载荷之比   fbe = %3.3f \n',fab/frb);
fprintf(1,'                径向载荷系数    xa = %3.2f \n',xb);
fprintf(1,'                轴向载荷系数    ya = %3.2f \n',yb);
fprintf(1,'                  当量动载荷    pa = %3.0f N \n',pb);
fprintf(1,'                   轴承A寿命   lha = %3.0f h \n',lha);
fprintf(1,'                   轴承B寿命   lha = %3.0f h \n',lhb);