車削多頭螺紋宏程序

627604250

程序原文如下，廣數(shù)系統(tǒng)

& U8 b6 e: _3 C3 m4 h( u  X
%
O0001
1 O6 S4 @. O* m# X2 \#1=10.;(大徑)
& M4 C  z* m4 l# v+ ?' w5 |#2=8.;(小徑)
5 l" ~) ?8 N( U' Q$ A1 ?% o; ?#3=-50.;(終點(diǎn))
  y& w4 o& `7 K2 ?/ t#4=1.5;(牙距)
#5=1.012;(縮水率）
#6=15.;(起點(diǎn))
#7=6;(螺紋頭數(shù))
1 N7 }1 q7 q- k" g#8=#4*#5;
+ g8 X2 t% ^2 W7 _#9=#7*#8;
#10=#6+#9
T0101;
  C+ P# R  m* ^0 d" a/ H6 Z. jM03 S500;
M08;
- |: d1 c$ N- @% }/ n1 V4 D5 |WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
Z#6;
; Q5 S& U* G7 _% P1 Y6 X3 lG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
, W! v* D# c! n+ R! HEND 1;
( C/ V3 [6 R0 B' H, e! X- rG0 Z100. M09;
$ Y$ t2 X- \2 w2 i6 b8 j0 k" J) ^M05;
M30;
%
! p. l3 R$ t% w' {" J( ^
+ A( P8 P) Q" ?4 F現(xiàn)在想在這個(gè)基礎(chǔ)上進(jìn)一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒有這方面大神指點(diǎn)一下呢？
$ {& H) s: r, v