齿轮参数化程序设计

请大家指正下我的如下程序，谢谢：


INPUT
MODULE NUMBER=3
"Enter the module:"
PRESSUER_ANGLE NUMBER=20
"Enter the pressure angle:"
FACE_WIDTH NUMBER=15
"Enter the face width:"
RAD_FILLET NUMBER=0.4
"Enter the fillet:"
END INPUT

RELATIONS
RAD_PITCH=0.5*TOOTH_NUMBER*MODULE
!*** 错误:关系中有一个错误.
RAD_BASE = RAD_PITCH*COS(PRESSURE_ANGLE)
!*** 错误:关系中有一个错误.
CIRCULAR_PITCH = PI*MODULE
TOOTH_THICK_ON_PITCH = CIRCULAR_PITCH/2
RAD_ADDENDUM = RAD_PITCH+1*MODULE
!*** 错误:关系中有一个错误.
RAD_DEDENDUM = RAD_PITCH1-1.157*MODULE
!*** 错误:关系中有一个错误.
INV_PHI = TAN(PRESSURE_ANGLE)-PRESSURE_ANGLE*2*PI/360
!*** 错误:关系中有一个错误.
TOOTH_THICK_ON_BASE = 2*RAD_BASE*(TOOTH_THICK_ON_PITCH/
!*** 错误:关系中有一个错误.
(2*RAD_PITCH)+INV_PHI)
!*** 错误:关系中有一个错误.
ANG_TOOTH_THICK = TOOTH_THICK_ON_BASE/RAD_BASE*360/(2*PI)
!*** 错误:关系中有一个错误.
ANG_TOOTH_SPACE = 360/TOOTH_NUMBER-ANG_TOOTH_THICK
!*** 错误:关系中有一个错误.
END RELATIONS

不是吧，没一个人懂吗？！