主程序：SHUANGQUXIAN

N10 G95G90

N20 T1D1

N30 M3 S800 

N40 G0 X50 Z0

N50 G01 X-1 F0.2

N60 G0 X40 Z3

N70 CYCLE95 ("shuanquxian", 1, 0.1, 0.3, 0, 0.2, 0.1, 0, 1, 0, 0, 0)

N80 G0 X100 Z100

N90 T2 D1

N100 M03 S1500

N110 CYCLE95 ("shuanquxian", 0, 0, 0, 0, 0, 0, 0.1, 5, 0, 0, 0)

N120 G0 X100 Z100

N130 M30



子程序：shuangquxian.iso

N10 G0 X5 Z1						;以定位到双曲线起始点位置

N20 DEF REAL FELD[1, 6] = (72, 2.5, 5, 0, 0.2)	        ;详见注释

N30 WHILE FELD[0, 0] >=2  

N40 FELD[0, 0]= FELD[0, 0]- FELD[0, 4]	                ; Z向步距长度，每次更新0.2

N50 FELD[0, 5]=(36/ FELD[0, 0])+2 		        ;对应Z对应X值

N60 FELD[0, 3]= FELD[0, 0]-72				;对应工件中X值

N70 FELD[0, 2]=2* FELD[0, 5] 				;对应工件中Z值

N80 G01 X= FELD[0, 2] Z= FELD[0, 3]                     ;车削轮廓

N90 ENDWHILE

N100 X40 Z-82

N110 X45