Fx-4850P计算程序

主线高程计算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 1ZXSGGC（施工导线高程主程序）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 1WCJS （计算实测与设计误差及工程量子程序）｛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 1SY （竖曲线要素）E ≤竖曲线结束点桩号→B=进入坡度：C=出去坡度：T=切线长：R=竖曲线半径：A=顶点桩号：D=顶点高程：Goto 2△回车重复上述步骤至最后一条竖曲线为止△Lbl 2PY1（左幅横坡要素）E ≤左幅变坡点结束点桩号→L=超高变坡段长：I=超高段长：J=左幅变坡点结束点桩号：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lbl 1PY2（右幅横坡要素）E≤右幅变坡点结束点桩号→L=超高变坡段长：I=超高段长：J=右幅变坡点结束点桩号：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lbl 1GSLX（中湿与干燥类型要素）E≤第一段中湿类型结束点桩号→Lbl 2：F=F-0.56：Goto 1△回车E≤第一段干燥类型结束点桩号→Lbl 3：F=F-0.54：Goto 1△回车E≤下一段中湿类型结束点桩号→Goto 2△回车E≤下一段干燥类型结束点桩号→Goto 3△回车重复上述后两步至最后中湿或干燥段为止△Lbl 1匝道高程计算ZA DAO GC（主程序）Fixm : Lbl 1:｛E｝:E”ZHUANG HAO ″: Prog “MLGC”：F▲Goto 1MLGC（子程序1）Prog “MLZ”：Prog “SQXY”：｛K｝:K”YC ″:K＞0→Prog “MLB2”：≠→Prog “MLB1”△Prog “BZ”SQXY（子程序2）E≤A-T→F=D-B（A-E ）：≠→Prog “GG1”△BZ（子程序3）K= AbsK：F=F-（L-（I-L）÷N×（E-J+N））×KMLZ（竖曲线要素）E≤竖曲线结束点桩号→B=进入坡度：C=出去坡度：T=切线长：R=竖曲线半径：A=顶点桩号：D=顶点高程：Goto 1△回车重复上述步骤至最后一条竖曲线为止△Lbl 1MLB1（左幅横坡要素）E≤左幅变坡点结束点桩号→L=起点横坡：I=终点横坡：J=左幅变坡点结束点桩号：N=变坡段长：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lbl 1MLB2（右幅横坡要素）E≤右幅变坡点结束点桩号→L=起点横坡：I=终点横坡：J=右幅变坡点结束点桩号：N=变坡段长：Goto 1△回车重复上述步骤至最后一段个超高段为止△Lbl 1主线坐标计算ZZ（主程序）Fixm : Lbl 1:”ZHUANG HAO ″？L: Prog “YZ”：Prog “ZZ1”：Prog “ZZ2”：”YC ″?Q: if Q＞0：thenRec（Q，Z+90）：elseRec（-Q，Z-90）ifendX=X+I▲Y=Y+J▲Z→DMS▲Goto 1ZZ1（子程序1）πA AbsW÷180→C:Atan(AbsW÷2)→F:B=0=>0→D:0→E:K-F→R:R+C→T:S→R:U→T: B≠0=>B 2÷24÷A→D：B÷2-B3÷240÷A2→E：Dtan( A bsW÷2)+E+F→F:C+B→C:K-F→R:R+B→S:R+C→U:U-B→T△ZZ2（子程序2）ifL≤R:thenG+ Rec（K-L，V+180）→X：H+J→Y:Z→V: Goto 0elseifL≤S:thenRec（F，V+180）：G+I→X:H+J→Y:L-R→C: Prog “ZZ3”：V+90C2÷(πAB) →ZW＜0=>0-J→J:V-90C 2÷(πAB) →Z:Prog “ZZ4”：Goto 0elseifL≥U:thenRec（L-U+F，V+W）：G+I→X：H+J→Y ：V+W→Z：Goto 0 elseifL≥T:thenRec（F，V+W）：G+I→X：H+J→Y ：U-L→C：Prog “ZZ3”：0-I→I：V+W-90C 2÷(πAB) →Z：W＜0=>0-J→J:V+W+90C2÷(πAB) →ZX+ICos（V+W）-JSin(V+W) →X: Y+I Sin(V+W)+J Cos（V+W）→Y:Goto 0G+ Rec（F，V+180）→X：H+J→Y:180(L-R-B÷2) ÷A÷π→C:A SinC+E→I:A(1-CosC)+D→J:V+C→Z: W＜0=>O-J→J:V-C→Z:Prog “ZZ4”ifendLbl 0：if z＜0:thenz+360→z:elseifz≥360:thenz-360→z:ifend ZZ3（子程序3）C-C 5÷（40 A2B2) →I：C3÷（6AB)- C7÷（336（AB)3）→JZZ4（子程序4）X+ICosV-JSinV→X: Y+I SinV+JCosV→YYZ（平曲线要素）L≤园曲线或缓和曲线终点桩号→G=交点纵坐标X：H=交点横坐标Y：K=交点里程：V=进入方位角：A=半径：W=转角（左转为“-“）：B=缓和曲线长度：Goto 2△回车重复上述步骤至最后一条平曲线为止△Lbl 2匝道坐标计算ZD（主程序）Fixm：Lbl 0：{L}：L“ZHUANGHAO”：Prog“QSSJ”：R=0→S=0→Prog“ZX”：Goto 2△△R=S→Prog“RQX”：≠→Prog“LES”△Lbl 2：Z＞360→Z=Z-360 △Z＜0→Z=Z+360 △X ▲Y ▲Z ▲Lbl 3：{Q}：Q“BL”：Q=0→Goto 0 △D=X-QSinZ：K=Y+QCosZD ▲K ▲Goto 3ZX 子程序<12>I=（L-B：T=F：J=0：Z=T：Prog“XYZS”YQX 子程序<13>V=180（L-B）÷R÷π：Z=F+V：I=RSinV：J=R（1-CosV：T=F：Prog“XYZS”LES 子程序<14>S=0→M=0:C=Abs(R(N-B):T=F:A=(L-B:R＞0→Z=90A2÷C÷π+T: ≠→Z=T-90A2÷C÷π△Goto 1 △S ≠0→R ≠0→(Abs s)＞(Abs R)→C=Abs((N-B)×SR÷(S-R: M=Abs(C÷S: E=90M2÷C÷π:A=M+(L-B: S＞0→T=F-E: Z=T+90A2÷C÷π:≠→T=F+E: Z=T-90A2÷C÷π△ Goto 1 △△△R≠0→S≠0→(Abs R) ＞(Abs S)→C=Abs((N-B)SR÷(S-R: M=Abs(C÷S: E=90M2÷C÷π:E=-E: A=M-(L-B: R＞0→T=F-E: Z=T-90A2÷C÷π: ≠→T=F+E: Z=T+90A2÷C÷π△△Goto 1 △△R=0→C=Abs(S(N-B: M=Abs(C÷S:E=90M2÷C÷π: E=-E: A=M-(L-B:S＞0→T=F-E: Z=T-90A2÷C÷π: ≠→T=F+E:Z=T+90A2÷C÷π△Goto 1 △Lbl 1 :Prog “ABV”XYZS 子程序<15>X=G+IcosT-JsinT:Y=H+IsinT+JcosTABV 子程序<16>I=(A-M-(AΛ5-MΛ5)÷40÷C2+(AΛ9-MΛ9)÷3456÷CΛ4-(AΛ13-MΛ13)÷599040÷CΛ6+(AΛ17-MΛ17)÷17547264÷CΛ8:J=(AΛ3-MΛ3)÷6÷C-(AΛ7-MΛ7)÷336÷CΛ3+( AΛ11-MΛ11)÷42240÷CΛ5-( AΛ15-M Λ15)÷9676800÷CΛ7+( AΛ19-MΛ19)÷3530096640÷CΛ9: R=0→S＞0→I=-I:≠→I=-I:J=J △△S=0→R＞0→I=-I:≠→J=-J:I=-I △△S≠0→(Abs S)＞(Abs R)→S＜0→J=-J:≠→I=I△△△R≠0→(Abs S)＜(Abs R)→S＜0→I=-I:J=-J:≠→I=-I:J=J: △△△Prog “XYZS”注:画线部分可不输入[完]附和导线简单平差计算程序同时可以计算附合导线,无定向导线主程序:DXJSQ “TX=F:W”:B:X:Y:F:Q=2→D:E: (注:以上,附和时Q≠2即可)≠→D:E:A △Z=0:V=0:W=0:N=0:Lbl 0:N=N+1 :{S}S“BIAN CHANG”:Z=Z+S:Z[ZN]=S:Prog “FJ”:Z[ZN-1]=F:Prog “D”:N＜B→Goto0 △ Q=Z→Prog “X”: ≠→Prog“FJ”:Prog “J”:Prog “P”△1、子程序“FJ”G=180：{L}：L“JIAO DU”：F=F+L：F≤G→F=F+G：≠→F=F-G△F≥2G→F=F-2G2、子程序——DRec（Z[ZN，ON+Z [ZN-1：V=V+I：W=W+J3、子程序——XPol（D-X，E-Y：U=I：O=J：“T=”：T=Z÷Abs（U-Pol（V，W ▲K=U÷I：O=O-J：N=0：Lbl 1：“N=”：N=N+1 ▲“XN=”：X=X+Rec（KZ[ZN]，O+Z[ZN-1 ▲“YN=”：Y=Y+J ▲N＜B→Goto 1 △“END”4、子程序——JV=0：W=0：“FW=”：F=F-A ▲0=-F÷（B+1：N=0：Lbl 2：N=N+1：Prog “D”：N＜B→Goto 25、子程序——P“FX=”：V=V+X-D ▲“FY=”：W=W+Y-E ▲“T=”：T=Z÷√（V2+W2▲ V=-V÷Z：W=-W÷Z：N=0：Lbl 3：“N=”：N=N+1 ▲“XN=”：X=X+Rec（Z[ZN，ON+Z[ZN-1]+VZ[ZN ▲“YN=”：Y=Y+J+WZ[ZN ▲N＜B→Goto 3 △“EDN”B——导线边数 S——平距L——水平角 F——起始边的方位角X，Y——起始点坐标 A——终止边方位角Fw——方位角闭合差 D，E——终止点坐标Fx——纵坐标闭合差 XN，YN——为求标点坐标FY——横坐标闭合差T——导线相对闭合差分母值JX——图形信息（附合时=1，无定向时）主线放样主程序ZHU XIAN FYFixm:{MN}:M “X0”:N “Y0”:Lbl 1:{L}:L “ZHUANG HAO”: Prog “YZ”:Prog “ZZ1”:Prog “ZZ2”:{Q}:Q “YC”:Q＞0→Rec (Q，Z+90 :≠→Rec(-Q，Z-90 △X=X+I：Y=Y+J：Pol（X-M，Y-N：J＜0→J=J+360 △“F=”：J→DMS ▲“L=”：I ▲ Goto 1注：用计算器计算方位角和距离，然后拔角测距放样。