fx-5800P_方格网法土方量通用计算程序P10-4

fx-5800p编程测量程序集

方格网法土方量通用计算程序P10-4

(1) 主程序——P10-4，占用内存510字节。 "EARTHWORK LEVEL P10-4" 显示程序标题

FreqOn:Norm 1 打开频率串列，设置数值显示格式

"VERTEX n="?N 输入方格顶点数

"SQUAREn="?C 输入方格数

"WIDTH D(m)="?D 输入方格网宽度 Fix 3:0W:0T 挖填土方量累加变量清零 If N=n 平整为水平面 Then "BALANCE YES(0),NO(Else)="?B 是否按挖填平衡计算设计高程 If B0:Then

"H0(m)="?H 不是挖填平衡时输入设计高程 Else 0

M 高程累加变量清零 For 1I To N 为挖填平衡时计算设计高程

If List X[I]<0 Or List X[I]>4:Then "DATA ERROR!":Stop:IfEnd

判断统计串列的顶点面积系数是否对

M+List X[I]List Y[I]M 以顶点系数为权累加顶点高程

Next

计算并显示挖填平衡高程

M÷(4C)

H:"H0(m)=":H

IfEnd

For 1I To N

计算方格顶点的挖填高差 List Y[I]-HE

If E>0:Then W+ED2List X[I]÷4

W 计算挖方量 Else T+ED2List X[I]÷4

T:IfEnd 计算填方量

Next

平整为倾斜面

Else For 1I To N

If List X[I]<0 Or List X[I]>4:Then "DATA ERROR!":Stop:IfEnd

判断统计串列的顶点面积系数是否对

List Y[I]-List Freq[I]E 计算方格顶点的挖填高差 If E>0:Then W+ED2List X[I]÷4

W 计算挖方量 Else T+ED2List X[I]÷4

T:IfEnd 计算填方量 Next:

IfEnd

显示挖方量 "WA(m3)=":W

"TIAN(m3)=":T 显示填方量 "W+T(m3)=":W+T 显示挖填方量差 "P10-4END" (2) 程序说明

1)

运行程序前，应按(REG)键进入双变量统计回归模式，在统计串列中输入方格顶点的面积系数与高程，当平整为水平面时，只需要在List X与List Y串列分别输入各顶点的面积系数与高程，此时，频率串列List Freq自动变成1，除非平整为倾斜面，否则请不要改变机器自动生成的List Freq的数值1；当平整为倾斜平面时，除需要在List X与List Y串列分别输入各顶点的面积系数与高程外，还需要在List Freq输入顶点的设计高程。

程序对顶点面积系数与高程的输入顺序没有要求，可以按任意顺序输入。 如果统计串列中有无用数据，可以连续按键逐行删除串列数据，也可以按(COMP)键进入COMP模式，按(CLR)(Stat)键，执行ClrStat命令清除统计串列的数据，

然后再按(REG)键进入双变量统计回归模式。完成面积系数与顶点高程的输入后，请不要再轻易执行ClrStat命令，以便于重复计算。

2) 按(PROG)(RUN)键，移动光标到程序P10-4行按键运行程序，显示完程序

第1页下一页