已知跨棒距M值求变位系数

模数:		mn=6
齿数:		z1=31
齿形角:		an=20
螺旋角:		helix=18
量棒直径:	dp=11
量棒跨距M值:	M1=217.352

端面齿形角:	
at=atan(tang(an)/cos(helix))
分度圆直径:	
d1=mn*z1/cos(helix)

量棒中心所在圆的压力角:			

 ;aD=acos(d1*cos(at)/(M1-dp))                     ;z1为偶数
 aD=acos(d1*cos(at)*cos(90/z1)/(M1-dp))           ;z1为奇数

变位系数:		
;x1=[inv(aD)-dp/(z1*mn*cos(an))-inv(at)+pi/(2*z1)]*z1/(2*tang(an))= 0.549996

lisp:invaD=(inv aD)
lisp:invat=(inv at)
x1=(invaD-dp/(z1*mn*cos(an))-invat+pi/(2*z1))*z1/(2*tang(an))