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

fx-4850P 程序 方格网法土方量通用计算程序P10-4 (1) 主程序——P10-4 EARTHWORK LEVEL P10-4 显示程序标题 Norm:Defm 300 定义扩充变量300 可计算100 个顶点 ALEVEL(0) OR SLOPE(ELSE)= 输0 平整为水平面，否则平整为斜面 A=0 BBALANCE 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=0 B=0 M=0:Q=N:I=0: 平整为挖填平衡水平面 Lbl 0:I=I+1:M=M+Z[3I-2]Z[3I-1]: 累加顶点高程加权和 Dsz Q:Goto 0:H=M÷4C: 计算挖填平衡高程 WA TIAN BALANCE H0(m)=:H 显示挖填平衡高程 Q=N:I=0: 设置初始变量 Lbl 1:I=I+1:E=Z[3I-1]-H: 计算顶点挖填高差 Prog SUB10-42: 调子程序累加挖填方量 Dsz Q:Goto 1: LEVEL BALANCE!:Goto P: 挖填平衡土方量计算结束 HH0(m)=: 输入水平面设计高程 Q=N:I=0: 设置初始变量 Lbl 2:I=I+1:E=Z[3I-1]-H: 计算顶点挖填高差 Prog SUB10-42: 调子程序累加挖填方量 Dsz Q:Goto 2: LEVEL DESIGN!:Goto P 设计水平面土方量计算结束 A=0 Goto 4 Q=N:I=0 设置初始变量 Lbl 3:I=I+1:E=Z[3I-1]-Z[3I] 计算顶点挖填高差 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-4 END 子程序SUB10-41——将输入的顶点数据存储到扩充变量存储器子程序 N=0:Q=100 Lbl A:{EF} EARAE COEFI,0 END= 输入面积系数，输入任意负数结束输入 E4 AREA COEFI ERROR!:Goto A 面积系数输入错误时重新输入 E0 N=N+1:FVERTEX H(m)=: