車削多頭螺紋宏程序

627604250

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

1 v. t7 D" U2 L  Y
%
3 ~1 B; T( [$ o; Y3 b3 ~O0001
#1=10.;(大徑)
4 e0 `% o( a, |: g* W$ ]#2=8.;(小徑)
#3=-50.;(終點(diǎn))
* |0 T- O, u8 M& [; Q#4=1.5;(牙距)
& K1 r2 z. j) C9 ^: M  ~) P#5=1.012;(縮水率）
% T% a$ Q2 P( k- c4 D& K. g) f5 E% O#6=15.;(起點(diǎn))
#7=6;(螺紋頭數(shù))
#8=#4*#5;
#9=#7*#8;
#10=#6+#9
9 y& P9 D9 l: c! t" [# lT0101;
9 z' M( z7 K& [+ @5 d! jM03 S500;
7 }* s+ D/ K% z7 b  `) j8 `! \& g( _M08;
( g# `. x! @& }WHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
; n# W$ R1 w, ]! J7 f, |, NZ#6;
1 ]/ m0 ?2 O' D& OG76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
#6=#6+#8;
8 r( M  H0 ]; \) ^END 1;
: a! k9 F$ u2 q- }8 g( _6 t% yG0 Z100. M09;
- z0 o/ q2 L& Z9 I) j2 Q) `M05;
  p2 j# o/ Z& g# K3 ~/ {: {% VM30;
%
3 A. H6 o4 i0 S/ z, E
6 T) l, [* V2 J+ Q現(xiàn)在想在這個(gè)基礎(chǔ)上進(jìn)一步車削多頭梯形螺紋，不知道該咋定義，目前的操作是車削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒有這方面大神指點(diǎn)一下呢？