'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);