例：長30 公稱直稱12

T0101 M03 S300；換梯形螺紋刀，主軸轉速300r/min

G00 X38 Z5；快速走到起刀點

M08；開冷卻

#101=12公稱直徑

#102右邊借刀量初始值

#103導程

#104=0.2；每次吃刀深度，初始值

SQRT[11*11-#104*#104/2]

N1 IF [#101 LT 8] GOTO2；加工到小徑尺寸迴圈結束

G0 Z[5+#102] ；快速走到右邊加工起刀點

G92 X[#101] Z-30 F#103；右邊加工一刀

G0 Z[5+#103] ；快速走到左邊加工起刀點

G92 X[-#101] Z-30 F#103；左邊加工一刀

#101=#101-#104；改變加工直徑

#102=#102+SQRT[11*11-#104/2*#104/2]

IF[#101 LT 10] THEN #104=0.1；小於34時每次吃刀深度為0.1

GOTO 1；

M05；主軸停

M30；程式結束