車削多頭螺紋宏程序

627604250

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

/ r; \& f+ E) `* }
%
O0001
#1=10.;(大徑)
#2=8.;(小徑)
#3=-50.;(終點(diǎn))
#4=1.5;(牙距)
: V+ `9 l" L+ ~$ i( k9 h#5=1.012;(縮水率）
8 }8 E5 Z, X9 E7 m$ ~, Q4 n#6=15.;(起點(diǎn))
/ x& i" Y- ?* k) g! l#7=6;(螺紋頭數(shù))
( p0 e* [! `7 N& e; |#8=#4*#5;
#9=#7*#8;
3 p( X1 g) D2 H#10=#6+#9
/ f1 Y1 h( G, V- r+ {T0101;
M03 S500;
9 b  K$ e, w# a# N- R, a2 eM08;
WHILE [#6 LT #10] DO 1;
% J5 t' u$ n* Z( q. KG0 G99 X[#1+2.];
/ G6 d. ]2 K# tZ#6;
3 A! s% }7 q; j* H. KG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
2 z( m2 o2 `, ?9 |( A#6=#6+#8;
END 1;
9 o' x3 h3 B( u$ i5 x) EG0 Z100. M09;
* V7 Y  {. J: B8 V4 C2 AM05;
M30;
%
$ d( G* I( V6 y
7 W. m. |) I/ O/ X現(xiàn)在想在這個(gè)基礎(chǔ)上進(jìn)一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒(méi)有這方面大神指點(diǎn)一下呢？
9 F2 {0 M8 k7 a5 S$ B$ e