INPUT
Z1 NUMBER /*齿轮1齿数
"Enter Z1: "
Z2 NUMBER /*齿轮2齿数
"Enter Z2: "
M NUMBER /*模数
"Enter M: "
X1 NUMBER /*齿轮1变位系数
"Enter x1:"
X2 NUMBER /*齿轮2变位系数
"Enter x2:"
ALPHA NUMBER /*压力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER /*齿槽圆角半径
"Enter rad_fillet:"
SHAFT_DIA NUMBER /*轴孔直径
"Enter shaft_dia:"
KEY_WIDTH NUMBER /*键槽宽度
"Enter key_width:"
KEY_HEIGHT NUMBER /*键槽高度
"Enter key_height:"
END INPUT
RELATIONS
INVA=TAN(ALPHA)-ALPHA*PI/180
/*标准压力角时的渐开线函数值
INVAP=2*(X1+X2)*TAN(ALPHA)/(Z1+Z2)
+INVA
/*计算啮合角时的渐开线函数值
AP=10
SOLVE /*解方程程序
INVAP=TAN(AP)-AP*PI/180
FOR AP
HA=1 /*齿顶高系数
IF M<1 /*径向间隙系数的确定
C=0.35
ELSE
C=0.25
ENDIF
R1 = 0.5*M*Z1 /*齿轮1分度圆半径
INPUT
Z1 NUMBER /*齿轮1齿数
"Enter Z1: "
Z2 NUMBER /*齿轮2齿数
"Enter Z2: "
M NUMBER /*模数
"Enter M: "
X1 NUMBER /*齿轮1变位系数
"Enter x1:"
X2 NUMBER /*齿轮2变位系数
"Enter x2:"
ALPHA NUMBER /*压力角
"Enter the pressure angle: "
GEAR_WIDTH NUMBER /*齿轮宽度
"Enter the gear width: "
RAD_FILLET NUMBER /*齿槽圆角半径
"Enter rad_fillet:"
SHAFT_DIA NUMBER /*轴孔直径
"Enter shaft_dia:"
KEY_WIDTH NUMBER /*键槽宽度
"Enter key_width:"
KEY_HEIGHT NUMBER /*键槽高度
"Enter key_height:"
END INPUT