F1 A3
L1 T=0:H=0:WQ
L2 Lbl 0:{NEFG}:NEFG:A=0:P=A:D=G:K=0:M=1
L3 Lbl 1:{XYZ}:XYZ:I=POI(X-E,Y-F):J≤0=>J=J+360⊿J≤180=>U=1:≠> U=-1⊿ C=UI:K=K+(A+C)(Z-G)/2:A=C:G=Z:M=M+1
L4 M<N=>GOTO 1⊿K=K+(C+P)(D-Z)/2◢
L5 T≠1=>GOTO 2: ≠>L=G-H:V=(R+K+√（RK))(Q-H)/3◢⊿W=W+V◢
L6 Lbl 2:R=K:H=G:T=1:{Q}:Q ：GOTO 0
2、说明
（1）、程序可自动计算每一断面面积，当进行到第二个断面时就会显示出1~2断面间的体积，而后再进行第三断面面积计算，并累计出1~3断面之间的体积。。。。。。，直到最后得出需算断面间的总体积。
（2）、坐标输入时，应按顺时针方向逐个输入折点坐标，这样得出的面积为正值，一个桩号折点输入完后，程序自动进入下一桩号的输入状态。
3、程序代号注释
Q—断面桩号；
EFG—断面起算折点的坐标；
XYZ—断面上其他折点坐标；
S—断面面积；
L—断面间距；
V—本断面与前一断面之间计算出的体积。
N—Q桩号断面上的折点个数；
W—本断面之前所有体积之和。
