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

fx-4850P_方格网法土方量通用计算程序P10-4 fx-4850P程序 方格网法土方量通用计算程序P10-4 (1) 主程序P10-4 EARTHWORK LEVEL P10-4 显示程序标题 Norm:Defm 300 定义扩充变量300可计算100个顶点 =ALEVEL(0) OR SLOPE(ELSE)= 输0平整为水平面，否则平整为斜面 A=0BBALANCE YES(0),NO(ELSE)= 输0为挖填平衡计算设计高程 ONEW DATA(0),OLD(ELSE)= 输0为要求输入新数据 O=0 Prog SUB10-41: 调子程序输入新数据 OLD VERTEX n=:N Fix 3:W=0:T=0 挖填土方量累加变量清零 CSQUARE n= 输入方格数 DWIDTH D(m)= 输入方格网宽度 A=0B=0M=0:Q=N:I=0: 平整为挖填平衡水平面 Lbl 0:II+1:MM+Z3I-2Z3I-1: 累加顶点高程加权和 Dsz Q:Goto 0:H=M4C: 计算挖填平衡高程 WA TIAN BALANCE H0(m)=:H 显示挖填平衡高程 =Q=N:I=0: 设置初始变量 Lbl 1:II+1:EZ3I-1-H: 计算顶点挖填高差 Prog SUB10-42: 调子程序累加挖填方量 Dsz Q: =Goto 1=LEVEL BALANCE!:Goto P: 挖填平衡土方量计算结束 HH0(m)=: 输入水平面设计高程 =Q=N:I=0: = 设置初始变量 Lbl 2:II+1:EZ3I-1-H: 计算顶点挖填高差 Prog SUB10-42: 调子程序累加挖填方量 Dsz Q:Goto 2: LEVEL DESIGN!: Goto P 设计水平面土方量计算结束 A=0Goto 4 设置初始变量 Q=N:I=0 Lbl 3 :I=I+1:E=Z3I-1-Z3I 计算顶点挖填高差 Prog SUB10-42 调子程序累加挖填方量 Dsz Q:Goto 3:SLOPE DESIGN! 设计倾斜面土方量计算结束 Lbl P:WA(m3)=:W 显示挖方量 TIAN(m3)=:T 显示填方量 W+T(m3)=:W+T 显示挖填方量差 Lbl 4:P10-4END 子程序SUB10-41将输入的顶点数据存储到扩充变量存储器子程序 N=0:Q=100 Lbl A:EF 输入面积系数，输入任意负数结束输入 EARAE COEFI,<0END= E>4AREA COEFI ERROR!:Goto A 面积系数输入错误时重新输入 E>0N=N+1:FVERTEX H(m)=: 输入顶点高程 Z3N-2E:Z3N-1F: 存储面积系数与顶点高程 A 0G:GVERTEX Hp0(m)=:Z3N=G 平整为倾斜面时输入顶点设计高程 Goto E 显示已输入的顶点数 Dsz Q:Goto A:Lbl E:VERTEX n=:N 子程序SUB10-42计算一个顶点的挖填方量 fx-4850P程序 E>0W=W+ED2Z3I-24: 累加挖方量 T=T+ED2Z3I-24 累加填方量 (2) 程序说明 1) 程序将用于输入的顶点面积系数、高程与倾斜面的设计高程(只有平整为倾斜面时才需要输入)存储在扩充变量存储器，程序定义了300个扩充变量存储器，最多可以存储100个顶点的数据，如需要计算更多顶点的土方量，请在程序第2行，将Defm 300 语句中的300修改为“顶点数100”的数值，只要用户计算器的内存容量够就可以。 2) 第一次运行程序，已将顶点的面积系数、高程与倾斜面的设计高程(只有平整为倾斜面时才需要输入)存入扩充变量存储器后，重复运行程序，屏幕提示“ NEW DATA(0),OLD(ELSE)=?”时，输入0的任意数值，程序能利用扩充变量存储器中的已有数据进行计算，这时，程序不会再提示输入顶点数据，只顺序提示用户输入方格数与方格网宽度。 3) 程序将计算出的挖方量存储在W变量中，填方量存储在T变量中，并显示它们的计算结果。 (3) 计算案例 图10-17 平整为水平场地方格法土方计算 将图10-17中19个方格顶点的面积系数及其高程值输入统计串列后的屏幕显示最前的串列数据与最后的串列数据见图10-18左边两图所示。 1) 执行程序P10-4计算图10-17挖填平衡土方量 屏幕提示 EARTHWORK LEVEL P10-4 LEVEL(0) OR SLOPE(ELSE)=? BALANCE YES(0),NO(ELSE)=? NEW DATA(0),OLD(ELSE)=? AREA COFFI,<0 END=? VERTEX H(m)=? AREA COFFI,<0 END=? VERTEX H(m)=? AREA COFFI,<0 END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? 按键 0 0 01 34.8 2 34.15 2 33.45 1 33.1 2 34.4 说明 显示程序标题 输入0为水平面 输入0为挖填平衡 输入0为重新输入顶点数据 输入A1顶点面积系数 输入A1顶点高程 输入A2顶点面积系数 输入A2顶点高程 输入 A3顶点面积系数 输入A3顶点高程 输入A4顶点面积系数 输入A4顶点高程 输入B1顶点面积系数 输入B1顶点高程 fx-4850P程序 AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0 END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX H(m)=? AREA COFFI,<0END=? VERTEX n=19 SQUARE n=? WIDTH D(m)=? WA TIAN BALANCE H0(m)=33.039 LEVEL BALANCE! LEVEL BALANCE WA(m3)=1491.136 LEVEL BALANCE TIAN(m3)=-1491.136 W+T(m3)=0.000 P10-4END 4 33.74 33.553 32.651 32.252 33.754 33.34 32.754 32.22 31.751 33.22 32.82 32.42 31.851 31.3 -1 1120 输入B2顶点面积系数 输入B2顶点高程 输入B3 顶点面积系数 输入B3顶点高程 输入B4 顶点面积系数 输入B4顶点高程 输入B5 顶点面积系数 输入B5顶点高程 输入C1 顶点面积系数 输入C1顶点高程 输入C2 顶点面积系数 输入C2顶点高程 输入C3 顶点面积系数 输入C3顶点高程 输入C4 顶点面积系数 输入C4顶点高程 输入C5 顶点面积系数 输入C5顶点高程 输入D1 顶点面积系数 输入D1顶点高程 输入D2 顶点面积系数 输入D2顶点高程 输入D3 顶点面积系数 输入D3 顶点高程 输入D4 顶点面积系数 输入 D4顶点高程 输入D5顶点面积系数 输入D5顶点高程 输入任意负数结束顶点数据输入 显示程序自动统计的顶点数 输入方格数 输入方格宽度 显示挖填平衡高程 平整为挖填平衡水平面 显示挖方量 显示填方量 显示挖填代数和 程序运行结束显示 上表的计算出的挖填平衡高程为H0=33.039m 。 2) 执行程序P10-4计算图10-17 设计高程H0=34m的挖填土方量 屏幕提示 EARTHWORK LEVEL P10-4 LEVEL(0) OR SLOPE(ELSE)=?0 BALANCE YES(0),NO(ELSE)=? NEW DATA(0),OLD(ELSE)=? OLD VERTEXT n=?19 SQUARE n=?11 WIDTH D(m)=?20 H0(m)=?33.039 LEVEL DESIGN! WA(m3)=190.000 TIAN(m3)=-4420.000 W+T(m3)=-4230.000 按键 67 说明 显示程序标题 选择水平面 输入0 任意数为按设计高程计算 输入 0任意数使用最近输入顶点数据 显示扩充变量存储器中已有顶点数 使用最近输入的方格数 使用最近输入的方格宽度 输入设计水平面的高程 平整为设计水平面 显示挖方量 显示填方量 显示挖填代数和 34 fx-4850P程序 P10-4 END 程序运行结束显示 3) 执行程序 P10-4计算图10-17设计高程H 0=32m的挖填土方量 屏幕提示 EARTHWORK LEVEL P10-4 LEVEL(0) OR SLOPE(ELSE)=?0 BALANCE YES(0),NO(ELSE)=? NEW DATA(0),OLD(ELSE)=? OLD VERTEXT n=? 19 SQUARE n=? 11 WIDTH D(m)=?20 H0(m)=?34.000 LEVEL DESIGN! WA(m3)=4720.000 TIAN(m3)=-150.000 W+T(m3)=4750.000 P10-4END 按键 说明 显示程序标题 选择水平面 6 输入0任意数为按设计高程计算 输入0任意数使用最近输入顶点数据 7 显示扩充变量存储器中已有顶点数 使用最近输入的方格数 使用最近输入的方格宽度 输入设计水平面的高程 32 平整为设计水平面 显示挖方量 显示填方量 显示挖填代数和 程序运行结束显示 图10-18 平整为倾斜面场地方格法土方计算 将图10-18 中30个方格顶点的面积系数及其高程值输入统计串列后的屏幕显示最前的串列数 据与最后的串列数据见图10-18右边两图所示。 1) 执行程序P10-4计算图10-18平整为设计倾斜面的挖填土方量 屏幕提示 EARTHWORK LEVEL P10-4 LEVEL(0) OR SLOPE(ELSE)=? NEW DATA(0),OLD(ELSE)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? 按键 5 01 55.155.5 2 55.655.42 说明 显示程序标题 输入0平整为倾斜面 输入0为重新输入顶点数据 输入顶点1 面积系数 输入顶点1高程 输入顶点 1 倾斜面设计高程 输入顶点2面积系数 输入顶点2高程 输入顶点2倾斜面设计高程 输入顶点3面积系数 fx-4850P程序 VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? 55.555.32 54.855.22 55.355.11 55.5 552 5454.34 54.354.24 54.354.14 53.854 4 54.153.92 54.453.82 52.753.14 53.2 534 53.252.94 52.652.84 52.952.72 53.252.62 51.551.94 51.951.84 51.9 输入顶点3高程 输入顶点3倾斜面设计高程 输入顶点4 面积系数 输入顶点4高程 输入顶点4倾斜面设计高程 输入顶点5 面积系数 输入顶点5高程 输入顶点5倾斜面设计高程 输入顶点6 面积系数 输入顶点6高程 输入顶点6倾斜面设计高程 输入顶点7 面积系数 输入顶点7高程 输入顶点7倾斜面设计高程 输入顶点8 面积系数 输入顶点8高程 输入顶点8倾斜面设计高程 输入顶点9 面积系数 输入顶点9高程 输入顶点9倾斜面设计高程 输入顶点10 面积系数 输入顶点10高程 输入顶点10倾斜面设计高程 输入顶点11 面积系数 输入顶点11高程 输入顶点11倾斜面设计高程 输入顶点12 面积系数 输入顶点12高程 输入顶点12倾斜面设计高程 输入顶点13 面积系数 输入顶点13高程 输入顶点13倾斜面设计高程 输入顶点14 面积系数 输入顶点14高程 输入顶点14倾斜面设计高程 输入顶点15 面积系数 输入顶点15高程 输入顶点15倾斜面设计高程 输入顶点16 面积系数 输入顶点16高程 输入顶点16倾斜面设计高程 输入顶点17 面积系数 输入顶点17高程 输入顶点17倾斜面设计高程 输入顶点18 面积系数 输入顶点18高程 输入顶点18倾斜面设计高程 输入顶点19 面积系数 输入顶点19高程 输入顶点19倾斜面设计高程 输入顶点20面积系数 输入顶点20高程 输入顶点20倾斜面设计高程 输入顶点21面积系数 输入顶点21高程 fx-4850P程序 VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? AREA COFFI,<0END=? VERTEX H(m)=? VERTEX Hp0(m)=? VERTEX H(m)=? VERTEX n=30 SQUARE n=? WIDTH D(m)=? SLOPE DESIGN! WA(m3)=1440.000 TIAN(m3)=-580.000 W+T(m3)= 860.000 P10-4END 屏幕提示 EARTHWORK LEVEL P10-4 LEVEL(0) OR SLOPE(ELSE)=? BALANCE YES(0),NO(ELSE)=? NEW DATA(0),OLD(ELSE)=? OLD VERTEXT n=? 30 SQUARE n=? 20 WIDTH D(m)=?20 WA TIAN BALANCE H0(m)=52.954 LEVEL BALANCE! WA(m3)=4965.000 TIAN(m3)=-4965.000 W+T(m3)=0.000 P10-4END 51.74 51.551.64 51.851.52 52.051.41 50.250.62 50.750.52 50.750.42 50.350.32 50.650.21 50.950.8 -5 2020 输入顶点21倾斜面设计高程 输入顶点22 面积系数 输入顶点22高程 输入顶点22倾斜面设计高程 输入顶点23 面积系数 输入顶点23高程 输入顶点23倾斜面设计高程 输入顶点24 面积系数 输入顶点24高程 输入顶点24倾斜面设计高程 输入顶点25 面积系数 输入顶点25高程 输入顶点25倾斜面设计高程 输入顶点26 面积系数 输入顶点26高程 输入顶点26倾斜面设计高程 输入顶点27 面积系数 输入顶点27高程 输入顶点27倾斜面设计高程 输入顶点28 面积系数 输入顶点28高程 输入顶点28倾斜面设计高程 输入顶点 29面积系数 输入顶点29高程 输入顶点29倾斜面设计高程 输入顶点30面积系数 输入顶点30 高程 输入顶点 30倾斜面设计高程 输入任意负数结束顶点数据输入 显示程序自动统计的顶点数 输入方格数 输入方格宽度 平整为设计倾斜面 显示挖方量 显示填方量 显示挖填代数和 程序运行结束显示 说明 显示程序标题 选择水平面 选择挖填平衡 输入0任意数使用最近输入顶点数据 显示扩充变量存储器中已有顶点数 使用最近输入的方格数 使用最近输入的方格宽度 显示计算出的挖填平衡高程 平整为挖填平衡水平面 显示挖方量 显示填方量 显示挖填代数和 程序运行结束显示