% 計算斜齒輪公法線長度及其偏差
% 輸入齒輪基本參數(shù)
Mn=4;z=60;an=20;bat=12.92;
disp ' '
disp '           ========== 斜齒圓柱齒輪基本參數(shù)   =========='
fprintf (1,'                      模數(shù)      Mn = %3.2f mm \n',Mn)
fprintf (1,'                      齒數(shù)       z = %3.0f \n',z)
fprintf (1,'                    壓力角      an = %3.3f 度 \n',an)
fprintf (1,'                    螺旋角     bat = %3.3f 度 \n',bat)
% 角度轉換為弧度
hd=pi/180;
anh=an*hd;
bath=bat*hd;
invan=tan(anh)-anh;
% 計算跨齒數(shù)和公法線長度
ath=atan(tan(anh)/cos(bath));
invan=tan(anh)-anh;
invat=tan(ath)-ath;
zp=z*invat/invan;
k=round(zp/9+0.5);
Wkn=Mn*cos(anh)*(pi*(k-0.5)+zp*invan);
disp ' '
disp '    ========== 計算斜齒圓柱齒輪公法線長度及其偏差   =========='
fprintf (1,'                 端面壓力角     at = %3.3f 度 \n',ath/hd)
fprintf (1,'                   相當齒數(shù)     zp = %3.3f \n',zp)
fprintf (1,'                     跨齒數(shù)      k = %2.0f \n',k)
fprintf (1,'                 公法線長度    Wkn = %3.3f mm \n',Wkn)
% 輸入齒距極限偏差和齒圈徑向跳動公差
fpt=0.028;Fr=0.071;
% 輸入齒厚極限偏差代號
H=-8;L=-16;
% 計算齒厚極限偏差
Es=H*fpt;Ei=L*fpt;
fprintf (1,'                 齒厚上偏差     Es = %3.3f mm \n',Es)
fprintf (1,'                 齒厚下偏差     Ei = %3.3f mm \n',Ei)
% 計算公法線長度極限偏差
Ews=Es*cos(anh)-0.72*Fr*sin(anh);
Ewi=Ei*cos(anh)+0.72*Fr*sin(anh);
fprintf (1,'           公法線長度上偏差    Ews = %3.3f mm \n',Ews)
fprintf (1,'           公法線長度下偏差    Ewi = %3.3f mm \n',Ewi)