FX5800计算器测量程序集2.0 版
一、程序功能
主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。参数置放矩阵中，输入和可读性极好。 3、新增隧道断面欠超挖值放样计算
4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序
1.主程序1：一般放样正反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY
Lb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂: Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：
Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：If F=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2： Lb1 1:Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂6JS”:Goto 0:
Lb1 2:Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,Ｄ◢ Ｇoto 0： Lbl 9:Mat F◢ Ｇoto Q
２．主程序２：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度) 程序名：2GC
14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]: LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”: Fix 3:” H=”:Locate 6,4,H◢ “ I=”: Locate 6,4,I◢ Prog＂GD＂：“SJLG=”: Locate 6,4,L◢
Goto H
3．主程序3：涵洞放样程序（输入置仪点坐标。选择线路、输入路线右夹角、前进方向偏角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离) 程序名：3JH-XY
14→DimZ：Prog＂DX＂:LbI X:Norm 2: Prog＂QX＂：90→B：＂PJ1＂？B：B→C: ＂PJ2＂？C: B→Z[1]：C→Z[8]：
LbI 0:Norm 2:1→F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:0→L:“L0”?L:Z[2]+Z[1]-Z[8] →E: X+Lcos(E) →X:Y+Lsin(E) →Y: Fix 3:＂ Ｘ=＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂6JS”:Goto 0:
4．主程序4:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：4FBX
17→DimZ：LbI B:Norm 2: Prog＂QX＂：0.5→B:“TH-GD”?B:B→Z[17]:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[4]:Prog”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd
LbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:
LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:
LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z: LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z: LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:
LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:
LbI Z:Fix 2:Abs(P)-S→K:” L0=”: Locate 6,4,K◢ Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,P◢ Z[4]>0=>Z[4]+I(T-L) →Z[4]: “ TW=”: Locate 6,4,Z[4]◢ Goto 0
5.主程序5.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入测量三维坐标，计算准确桩号及位置、计算欠超挖值） 程序名：5SD
15→DimZ：LbI B:Norm 2: Prog＂QX＂:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: Prog“XD1”:” X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[8]:Prog“THB”: D→Z[10]:0→D:Prog“H”:Cos(Z[10])*Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:
22
LbI R: √((D-Z[9]) +(Z[8]-Z[5]) )- Z[4] →L:Goto L:
LbI S: Z[4]-Z[6] →S: √(S -(Z[7]-Z[5]) ) →T:Abs(D-Z[9])-T→T:√
22
(T +(Z[8]-Z[7]) )- Z[6] →L:Goto L: LbI L: Fix 2:” L0=”: Locate 6,4,L◢ Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,Ｄ◢
“ H0=”: Locate 6,4,Z[8]-H◢ Goto 0
6：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：6JS X：Y：
Z[11]→K(置仪点X坐标) Z[12]→L（置仪点Y坐标）
Pol(X-K, Y-L):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢
Fix 3:” S=”:Locate 6,4,I◢
7．路基宽度次程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名： GD
1→S:If Z[3]=1:Then Prog “G1”:Goto 1:Else Prog “G2”:Goto 1: IfEnd LbI 1:Z-C→E:(B-A)*E/S+A→L:
8．坐标计算次程序（ＴＨＢ） 程序名：THB
If Q=2:Then Goto J:1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180/Π→E：If F=1:Then： Abs(Ｚ－0) →W：Prog \Ａ\：Ｇoto 2:Else:Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:
LbI J: If F=1:Then： Prog \：Ｇoto 1:Else: Prog ＂ZX＂：Ｇoto 2: IfEnd: LbI 1:I+D*COS(Z[2]+Z[1]) →X: J+D*Sin(Z[2]+Z[1]) →Y: LbI 2:
9. 线元法正算子程序(Ａ)
2
2
程序名：A
0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K： 0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：
V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LW
Ｓ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：
G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ
10. 线元法反算子程序(Ｂ) 程序名：B
G-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog \Ａ\： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘
Lbl 1:0→D：Prog \Ａ\：(J-Y)÷sin(Ｚ［２］+90) →D: 11. 交点法正算子程序(Z) 程序名：Z
H/R/24-H(4)/2688/R(3)→A:H/2-H(3)/240/R→B:(R+A)tan(Abs(P)/2)+B→T:O-T→C:C+H→L:L+ΠR*Abs(P)/180→N:N-H→E:P/Abs(P) →W:0→M:
If Z If Z>L:Then 180(Z-L+0.5H)/R/Π→S :H/2-H(3)/240/R+Rsin(S)→A:H/R/24-H(4)/2688/R(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd: Z-C→S:Prog “HX”:G+WK→Z[2]: LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3: LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3: 12. 交点法缓和段转化子程序(HX) 程序名：HX S-S(5)/40/R/H+S(9)/3456/R(4)/H(4)→A:S(3)/6/R/H-S(7)/336/R(3)/H(3)+S(11) /42240/R(5)/H(5)→B:90S/Π/R/H→K:RH/S→M: 13. 交点法反算子程序(ZX) 程序名：ZX Z:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd LbI 2: 14．高程计算子程序（H） 程序名：H ∧ ∧ 2 ∧ 2 2 ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ 2 2 ∧ 2 ∧ ∧ ∧ 2 Prog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z If Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd: LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEnd LbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd: LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)-2((Z-C)÷S)(3))×(N-M))+M)→V:Goto 2:IfEnd: LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V: 16．导线点子程序（DX） 程序名：DX Z[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]: 17．线路选择子程序(线路选择输入0时。则手工输入曲线参数（QX） 程序名：QX 1→A:”QX:?=0,X1=1,X2=2”?A:A→Z[3]: If A=0:Then Goto 1:Else Goto 2: IfEnd: LbI 1:”ZO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2: LbI 2: 18．线路中线元段判别子程序（KM） 程序名：KM If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd: LbI 0: 19．坐标计算参数转化子程序（F） 程序名：F Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→P: Mat F[1,7]→R: Mat F[1,8]→Q: 20．数据子程序(附后示例) ①-1程序名：X1（线路1坐标计算要素程序） If Z≤26615.555:Then [[25900,11587.421,1847.983, 10109’23.1”,715.555,1×10, 45 1×10, 0]]→Mat F:Goto 0: IfEnd: If Z≤26915.555:Then[[26615.555,11448.97,2550.016,10109’23.1”,300,1×45 10,1800,1]]→Mat F:Goto 0:IfEnd: 。。 45 2 ∧ 2
FX5800计算器测量程序集2.0 版
