5800P公路路线坐标正反算及高程计算程序

《5800P公路路线坐标正反算及高程计算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、公路路线座标正反算及高程计算程序Fx-5800计算机程序1.FYJS            主程序Fix3:“1.SZ=>NE:2.NE=>SZ:3.S=>H”:?Q:Q=1=>Goto1:Q=2=>Goto2:Q=3=>Goto3←┘Lbl1:＂K＂?S:＂-B,0,+B＂?Z:“PJ”?M:Prog“5.DAT-SJK”:Prog“2.SUB1”:N+Zcos(F+M)→N:E+Zsin(F+M)→E←┘Prog“4.FY”：Prog“5.1GCJSCX”：--如无需算中桩高程则删除此步骤Goto1←┘Lbl2:“X”?B:“Y”?C:＂K＂?S:Prog“3.SUB2”:“

2、K=”:S◢“-B,0,+B=”:Z◢Goto2←┘Lbl3:＂K＂?S：Prog“5.1GCJSCX”:Goto3＂K＂?S:所计算点桩号＂-B,0,+B＂?Z:计算点左右边距左-右+中0“PJ”?M所计算点斜距的右夹角“X”?B:反算实测X坐标“Y”?C:反算实测Y坐标＂K＂?S:反算点附近大概桩号2.SUB1            正算子程序0.5（1÷R-1÷P）÷L→D:S-O(字母)→X←┘U+∫(cos(A+(X÷P+DX^(2))×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+DX^(2))×180÷π,0,X)→E←┘A+(X÷P+DX^(2))×1

3、80÷π→F←┘3.SUB2            反算子程序Lbl1:0→Z：1→Q：Prog“5.DAT-SJK”:Prog“2.SUB1”:Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S:Abs(W)>0.0001=>Goto1←┘Lbl2:0→Z：Prog“2.SUB1”:(C-E)÷sin(F+90)→Z4.FY放样子程序"HS:X"?N:"HS:Y"?E:"CE:X"?G:"CE:Y"?H:Pol(N-G,E-H):J<0=>J+360→J:"FWJ=":J►DMS◢"JL=":I◢"HS:X"?N:后视点（计算

4、点）X坐标"HS:Y"?E:后视点（计算点）Y坐标"CE:X"?G:测站点X坐标"CE:Y"?H:测站点Y坐标5.1高程计算子程序（5.1GCJSCX）Prog“6.SQX-DAT”:Z[6]Abs(Z[2]-Z[1])÷2→Z[3]:ifZ[2]-Z[1]>θ:Then1→Z[4]:Else-1→Z[4]:ifendifSθ:ThenZ[7]+TZ[5]→Z[8]:“HS=”：Z[8]◢ElseZ[7]+TZ[5]+Z[4](Z[3]-Z[5])2÷2÷Z[6]→Z[

5、8]:“HS=”：Z[8]◢ifend5.DAT-SJK     数据库子程序Goto1←┘              同时保存多个曲线时的指针Lbl1←┘IFS<476533.296（线元终点里程）:Then31°24'29.07″→A（线元起点方位角）:476088→O（线元起点里程）:4689534.997→U（线元起点X）:479874.003→V（线元起点Y）:1045→P（线元起点曲率半径）:1045→R（线元终点曲率半径）:445.296→L（线元起点至终点长度）:Return:IfEnd←┘IFS<476803.296:Then31°45'48.37″→A:476

6、533.296→O:4689913.601→U:480108.413→V:1045→P:12000→R:270→L:Return:IfEnd←┘IFS<477106.771:Then32°24'28.85→A:476803.296→O:4690142.627→U:480251.404→V:12000→P:12000→R:303.475→L:Return:IfEnd←┘IFS<477376.771:Then33°51'25.2″→A:477106.771→O:4690396.754→U:480417.272→V:12000→P:1045→R:270→L:Return:IfEnd←┘

7、IFS<488923.776:Then34°30'05.68→A:477376.771→O:4690619.834→U:480569.372→V:1045→P:1045→R:11547.005→L:Return:IfEnd←┘IFS<489353.776:Then34°30'05.68″→A:488923.776→O:4700135.844→U:487109.930→V:1045→P:-10000→R:430→L:Return:IfEnd←┘IFS<490817.499:Then