6、QRT[1-#2*#2/#13/#13]G01Z[#14]WHILE#0GE#1IFABS[#0]LT#5#3=#13*SQRT[1-#0*#0/[#12*#12]]IF#3GT#2#4=SQRT[#3*#3-#2*#2]G01Y[#4]F400G19G03Y[-#4]J[-#4]K[-#2]ENDIFENDIFG01Y[-#11/2]F400#0=#0-#15G01X[#0]IFABS[#0]LT#5#3=#13*SQRT[1-#0*#0/[#12*#12]]IF#3GT#2#4=SQRT[#3*#3-#2*#2]G01Y[-#4]F400G19G02Y[#4]J[#4]K[-#2] END