車(chē)削多頭螺紋宏程序

627604250

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

! k! q2 W# H2 L3 O! O
$ i7 u1 _6 v* D* g5 G%
/ {4 |2 y/ q! }( W$ ?# jO0001
#1=10.;(大徑)
5 \, c4 g3 @, E0 U/ e& r3 q#2=8.;(小徑)
#3=-50.;(終點(diǎn))
- \( i2 a* ]5 l2 U: J9 H( |#4=1.5;(牙距)
) }" q: U6 E2 G9 {9 J" l  ~4 d#5=1.012;(縮水率）
#6=15.;(起點(diǎn))
) ?1 e9 F. x" z% a1 A0 C1 o#7=6;(螺紋頭數(shù))
#8=#4*#5;
! C& {7 n9 h, i* m#9=#7*#8;
* W6 c- @! D$ j6 C+ t  r' O# Q#10=#6+#9
T0101;
% v( y1 h4 b: ?/ ~M03 S500;
M08;
* ]4 j3 ]( }# q7 UWHILE [#6 LT #10] DO 1;
7 \+ }& s4 h' y# L! V+ _9 eG0 G99 X[#1+2.];
# i0 ^( Y- M4 N, g4 u% v, vZ#6;
9 w& E4 f2 M0 d+ B7 @G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
6 [- I* o8 N5 G/ `* Y- D2 \#6=#6+#8;
END 1;
! U- \% o2 R3 Y3 I- _  H- [G0 Z100. M09;
M05;
, V9 {8 j+ V! ]) A/ ]" jM30;
%

現(xiàn)在想在這個(gè)基礎(chǔ)上進(jìn)一步車(chē)削多頭梯形螺紋，不知道該咋定義，目前的操作是車(chē)削完成了補(bǔ)刀補(bǔ)實(shí)現(xiàn)的，有沒(méi)有這方面大神指點(diǎn)一下呢？
. T' j+ y$ D2 q/ L" _  w" t1 a