Fx-4850P计算程序..docVIP

主 线 高 程 计 算 ZXSJGC（设计高程主程序） Fixm : Lbl 1:｛EM｝:E”ZHUANG HAO ″:M”CENG”:Prog”SY”:E≤A-T→F=D-B（A-E）：≠→Prog “GG1”△Prog “GG2”：M=1→F=F:Goto 2△回车M=2→F=F-0.04：Goto 2△回车M=3→F=F-0.1：Goto 2△回车M=4→F=F-0.18：Goto 2△回车M=5→F=F-0.38：Goto 2△回车M≥6→Prog”GSLX” △回车M=7→F=F-0.2△Lbl 2:K≠0→N”HENG PO ″=100N▲[注:若不显示横坡则把前面的“▲”换为“：”即可]F”GAO CHENG ″▲[注:若不显示高程则把前面的“▲”换为“：”即可] ≠→F”GAO CHENG ″▲[注:若不显示高程则把前面的“▲”换为“：”即可]△Prog “WCJS”： [注:若不须要计算误差则把前面的“Prog “WCJS”：”删除即可]Goto 1 ZXSGGC（施工导线高程主程序） Fixm : Lbl 1:｛EM｝:E”ZHUANG HAO ″:M”CENG”:Prog”SY”:E≤A-T→F=D-B（A-E）：≠→Prog “GG1”△Prog “GG2”：M=1→F=F+0.04*0.15[注:0.04为第一层厚度,0.15为第一层松铺系数]:Goto 2△回车M=2→F=F-0.04+0.06*0.15[注:0.06为第二层厚度,0.15为第二层松铺系数]：Goto 2△回车M=3→F=F-0.1+0.08*0.15[注:0.08为第三层厚度,0.15为第三层松铺系数]：Goto 2△回车M=4→F=F-0.18+0.08*0.15[注:0.08为第四层厚度,0.15为第四层松铺系数]：Goto 2△回车M=5→F=F-0.26+0.32*0.25[注:0.32为第五层厚度,0.25为第五层松铺系数]：Goto 2△回车M≥6→Prog”GSLX”:F=F+0.2*0.25[注:0.2为第六层厚度,0.25为第六层松铺系数]△Lbl 2: Prog “WCJS”： [注:若不须要计算误差则把前面的“Prog “WCJS”：”删除即可]Goto 1 WCJS （计算实测与设计误差及工程量子程序） ｛X｝:X”DU SHU ″:Q”SCGC ″=Y[注:Y值每次开始前或转站时必须存入测站的视线高程]-X/1000[注:读数单位为米时不除1000] ▲W”WU CHA ″=Q-F▲[注:以下步骤为现场计算路基低于设计高程15mm以下部分工程量程序，若不计算可以不加或不显示结果]W≥-15→Goto 1：≠→AbsK =1→V=（-W+15）*60 [注:此公式为计算距中1米处补偿量]：Goto 5≠→AbsK =13→V=（-W+15）*64[注:此公式为计算距中13米处补偿量]：Goto 5≠→V=（-W+15）*80 [注:此公式为计算距中5、9米处补偿量] △△△Lbl 5: Z=Z+V [注:Z值每次计算前必须存入“0”，最后提出即可]：Lbl 1 [注:以上程序若不扣除15mm只须把上述体积计算公式中的“+15”去除即可；若布点位置不同则体积公式要随着改变] GG1（子程序1） G=Abs(A-E):H=（T-G）2÷2÷R：B＞C→A≥E→F=D-GB-H△△B＞C→A＜E→F=D+GC-H△△B＜C→A≥E→F=D-GB+H△△B＜C→A＜E→F=D+GC+H△△ GG2（子程序2） ｛K｝:K”YC ″：K＞0→Prog”PY2”： ≠→Prog “PY1”△E≤J-I-2L→N=0.02:F=F-N( AbsK-1)：≠→Prog “GG3”△ GG3（子程序3） K= AbsK：E≤J-L-I→N=0.02-（0.04÷L）×（E-J+2L+I）:F=F-N(K-1)：Goto 1△回车E≤J-L→N=-0.02:F=F-(K-1)×0.02： Goto 1△回车E≤J→N=-0.02+（0.04÷L）×（E-J+L）:F=F-(K-1)N△Lbl 1 SY（竖曲线要素） E≤竖曲线结束点桩号→B=进入坡度：C=出去坡度：T=切线长：R=竖曲线半径：A=顶点桩号：D=顶点高程：Goto 2△回车重复上述步骤至最后一条竖曲线为止△Lbl 2 PY1（左幅横坡要素） E≤左幅变坡点结束点桩号→L=超高变坡段长：I=超高段长：J=左幅变坡点结束点桩号：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lbl 1 PY2（右幅横坡要素） E≤右幅变坡点结束点桩号→L=超高变坡段长：I=超高段长：J=右幅变坡点结束点桩号：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lb