车削多头螺纹宏程序

627604250

程序原文如下，广数系统
0 q: {2 l. x' A
7 d7 P* b. B- ]3 A4 h  J" a
& {  {2 j% b4 F! @3 E, a%
O0001
) l+ R$ E& i( M* P0 ~#1=10.;(大径)
#2=8.;(小径)
# ?5 t8 [) k9 x+ w#3=-50.;(终点)
2 P" i+ @/ Y# J8 ]( E- K#4=1.5;(牙距)
) h! X3 y/ k5 F. A4 [1 `#5=1.012;(缩水率）
& w6 O# y$ V2 J5 ^. j4 X7 B#6=15.;(起点)
#7=6;(螺纹头数)
2 J. ~, ]) b7 T3 q5 j8 O9 L% f9 x' Z#8=#4*#5;
#9=#7*#8;
! h/ J. ?& H: y0 e#10=#6+#9
/ T+ S0 U$ E6 AT0101;
M03 S500;
M08;
7 E; M  o5 o: GWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
$ e9 V1 }  Z4 v8 x% J' rG76 P020160 Q20 R0.;
2 k+ r) s5 r: M% B0 xG76 X#2 Z#3 P811 Q50 F#9;
1 Q8 P$ u+ I+ a: {# X; m#6=#6+#8;
END 1;
G0 Z100. M09;
M05;
2 M: @* w8 P3 I9 EM30;
- j$ W2 s# c* R! C3 q%

& K" X' \: J1 b* a1 N& ?# n8 c5 ]现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
9 l2 g; Y$ Z9 K$ }