֪Mֵλϵ

ģ:		mn=6
:		z1=31
ν:		an=20
:		helix=18
ֱ:	dp=11
Mֵ:	M1=217.352

ν:	
;at=atan(tan(an)/cos(helix))= 20.941896
at=atan(tang(an)/cos(helix))
ֶԲֱ:	
;d1=mn*z1/cos(helix)= 195.571974
d1=mn*z1/cos(helix)

Բѹ:			
;aD=among[ceil(z1/2) eq z1/2,acos(d1*cos(at)/(M1-dp)),acos(d1*cos(at)*cos(90/z1)/(M1-dp))]= 27.869183

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