华中数控宏程序教案
M30
%8001
G64G37(连续切削,半径编程)
#10=0#11=0(抛物线起点)
WHILE#11LE#20
G01X[#10]Z[-#11]F150
#10=#10+0.08(抛物线X增量)
#11=#10*#10/#2(计算抛物线z)
ENDW
#50=SQRT[#20*#2](抛物线与椭圆交接处半径) G01X[#50]Z[-#20](抛物线终点)
G01Z[-#21](直线终点)
#12=0#13=0(椭圆起点)
WHILE#13LE#1
#12=#0/#1*SQRT[#1*#1-#13*#13](椭圆X增量) G01X[#50+#0-#12]Z[-#21-#13]
#13=#13+0.08(椭圆z增量)
ENDW
G01X[#50+#0]Z[-#21-#1](椭圆终点) Z[-#22]
U2
G0X50Z100
M99