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

fx-4850P_方格网法土方量通用计算程序P10-4 fx-4850P程序 方格网法土方量通用计算程序P10-4 (1) 主程序——P10-4 "EARTHWORK LEVEL P

fx-4850P_P10-4 方格网法土方量通用计算程序 fx-4850P 程序 P10-4 方格网法土方量通用计算程序 (1)——P10-4"EARTHWORKLEVELP10-4" 主程序显 Norm:Defm300300100 示程序标题定义扩充变量可计算 ==A"LEVEL(0)ORSLOPE(ELSE)=" 个顶点 0A=0B"BALANCE 输平整为水平面，否则平整为斜面 YES(0),NO(ELSE)="0 输为挖填平衡计算设计高程 O"NEWDATA(0),OLD(ELSE)="0 输为要求输入新数据 O=0 Prog"SUB10-41": 调子程序输入新数据 "OLDVERTEXn=":N Fix3:W=0:T=0 挖填土方量累加变量清零 C"SQUAREn="D"WIDTHD(m)=" 输入方格数 输入方格网宽度 A=0B=0M=0:Q=N:I=0:Lbl 平整为挖填平衡水平面 0:II+1:MM+Z[3I-2]Z[3I-1]: 累加顶点高程加权和 DszQ:Goto0:H=M÷4C: 计算挖填平衡高程 "WATIANBALANCEH0(m)=":H 显示挖填平衡高程