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

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:0 W:0 T 挖填土方量累加变量清零 If N=n 平整为水平面 Then BALANCE YES(0),NO(Else)=?B 是否按挖填平衡计算设计高程 If B 0:Then H0(m)=?H 不是挖填平衡时输入设计高程 Else 0 M 高程累加变量清零 For 1 I 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 1 I To N List Y[I]-H E 计算方格顶点的挖填高差 If E0:Then W+ED2List X[I] ÷4 W 计算挖方量 Else T+ED2List X[I] ÷4 T:IfEnd 计算填方量 Next Else For 1 I 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 E0: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-4 END (2) 程序说明 1) 运行程序前，应按 (REG)键进入双变量统计回归模式，在统计串列中输入方格顶点 的面积系数与高程，当平整为水平面时，只需要在List X 与List Y 串列分别输入各顶点的面积系 数与高程，此时，频率串列List Freq 自动变成1，除非平整为倾斜面，否则请不要改变机器自动 生成的List Freq 的数值1；当平整为倾斜平面时，除需要在List X 与List Y 串列分别输入各顶点 的面积系数与高程外，还需要在List Freq 输入顶点的设计高程。 程序对顶点面积系数与高程的输入顺序没有要求，可以按任意顺序输入。 如果统计串列中有无用数据，可以连续按 键逐行删除串列数据，也可以按