程序:
O0019
N010T0101
N010M03S800
N020G99G0X55Z0
N030G01X0Z0F0.1
N040G0Z5
N050G0X50Z5
N060#101=23.5
N070#102=1.5
N080#103=0
N090WHILE[#101GT#103]DO1
N100#101=#101-#102
N110IF[#101LT#103]THEN#101=#103
N120#104=[#101*#101/22.09]
N140G01Z2F1
N150X[2*#101]F0.12
N160G01Z[-#104+0.5]
N170U1
N180END1
N190G00X100Z100
N200T0202
N210G00X0Z1
N220#106=0
N230#107=0.1
N240#108=23.5
N250WHILE[#106LE#108]DO2
N260#105=[#106*#106/22.9]
N270G1X[2*#106]Z[-#105]F0.1
N280#106=#106+#107
N290END2
N300G01X52F1
N310G0X100Z100
N320M02
N330
%