1、源程序
F1 A2
L1 N:P=A:Q=B:S=0:I=2
L2 Lbl 0:{C,D}:F=(A+C)(B-D):S=S+F
L3 A=C:B=D:I=I+1
L4 I≦N=>GOTO 0⊿
L5 F=(C+P)(D-Q):S=S+F:S”W”=S/2◢

３、 说明：
（1）、本程序适用于所测断面为多边形闭合图形的面积计算。
（2）、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样
的。
４、 程序代号注释
A、B—计算面积起始点纵横坐标；
C、D—各转折点的纵横坐标；
S—代表计算过程中的有关面积；
S“W”—为图形最后需要的计算面积。
N—多边形的折点个数。



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