一个半圆（半球，直径20R10)的圆
圆的标准方程X²+Y²=R²
O0001
粗车
M3S1000G99
T101M08
G0X21.Z10.
Z1.
#1=10.5
#2=0
#3=0
N10#1=#1-2
IF[#1LT#2]THEN#1=#2
#4=SQRT[10.5*10.5-#1*#1]
#100=#3+#1*2
#101=10.5-#4
G0X#100
G1Z-#101 F0.15
G0U1.Z1.
IF[#1EQ#2]GOTO20
IF[#1GE#2]GOTO10
N20G0X120.Z130.
精车
T101S1400
G0X21.Z10.
Z1.
#1=10
#2=0
#3=0
G0X0.
G1Z0.F0.2
N30#2=#2+0.1
IF[#2GT10]THEN#2=10
#4=SQRT[#1*#1-#2*#2]
#102=#3+#2*2
#103=10-#4
G1X#102Z-#103F0.12
IF[#2EQ10]GOTO40
IF[#2LE10]GOTO30
N40G0X120.Z130.
M30
圆的标准方程X²+Y²=R²
O0001
粗车
M3S1000G99
T101M08
G0X21.Z10.
Z1.
#1=10.5
#2=0
#3=0
N10#1=#1-2
IF[#1LT#2]THEN#1=#2
#4=SQRT[10.5*10.5-#1*#1]
#100=#3+#1*2
#101=10.5-#4
G0X#100
G1Z-#101 F0.15
G0U1.Z1.
IF[#1EQ#2]GOTO20
IF[#1GE#2]GOTO10
N20G0X120.Z130.
精车
T101S1400
G0X21.Z10.
Z1.
#1=10
#2=0
#3=0
G0X0.
G1Z0.F0.2
N30#2=#2+0.1
IF[#2GT10]THEN#2=10
#4=SQRT[#1*#1-#2*#2]
#102=#3+#2*2
#103=10-#4
G1X#102Z-#103F0.12
IF[#2EQ10]GOTO40
IF[#2LE10]GOTO30
N40G0X120.Z130.
M30
