5800坐标计算程序+方位角计算方法.docVIP

主程序 TYQXJSDefm10：Lbl 0: “1.LC XY”: “2.XY LC”: V :V 1 GOTO 1: ≠ GOTO 2 Lbl 1: DZG :D:Z”JL ”:G”J ”:Z 0 G 0：Prog “QXYS”: Prog “ZSZB” : ”X ”：X ”Y ”：YJ 360 J J-360:△J 0 J J+360:△FWJ ：J→DMS HU ：H“XC”：U“YC”：I 0：J 0：Pol（X-H，Y-U）：J 0＝＞J J+360：“FW ”：J→DMS“S ”：IProg “SQX”←┘ GOTO 0←┘Lbl 2: D ***:Z 0:G 0: MI :M”XO”:I”YO”: Prog “FSZB”:”D ”：D ”JL ”：ZProg “SQX”←┘ GOTO 0←┘D 有效里程 即线路起点里程2. 正算坐标ZSZB N 5:P＝（1\E-1\R）÷Abs（K-F）：Q＝Abs（D-F）÷N：S 90Q÷π： J＝C+ NPQ+2\R NS：L 1←┘X＝A+Q÷6× Cos C+Cos J +4∑（Cos C+ L+0.5 PQ+2\R × L+.5 S ,L,0, N-1 ）+2∑（Cos C+ LPQ+2\R LS,L,1, N-1 ）+ZCos（J+G ：←┘ Y＝B+Q÷6× Sin C+Sin J +4∑（Sin C+ L+0.5 PQ+2\R × L+.5 S ,L,0, N-1 ）+2∑（Sin C+ LPQ+2\R LS,L,1, N-1 ）+Z Sin（J+G ： ←┘3. 反算坐标：FSZBLbl 0:Prog “QXYS” :Prog “ZSZB”:O J-90:←┘P I-Y cosO- M-X sinO :D D+P:←┘AbsP≥0.001 GOTO 0 :≠ GOTO 1 ←┘Lbl 1: Z I-Y cosJ- M-X sinJ: ←┘4. 《SQX》高程计算子程序Prog“SB”：W Z[1]－Z[2]:W＞0 Z[6]＝－1：≠ Z[6]＝1Z[3]：T“T”＝Abs Z[3]W/2 ：E“E” T＾2÷2Z[3]：C D-Z[4]：DZ[4] Z[7] Z[1]：≠ Z[7] Z[2]Z[5]：AbsCT “H0”: Z[8] Z[5]+CZ[7]+Z[6] T- Abs C ＾2÷2Z[3] ≠ “H0”: Z[8] Z[5]+CZ[7] 5、曲线元要素数据库：QXYSD≥F D＜K F **:A **:B **:C **:R **:K **E **←┘D≥F D＜K F **:A **:B **:C **:R **:K **E **←┘D≥F D＜K F **:A **:B **:C **:R **:K **E **←┘D≥F D＜K F **:A **:B **:C **:R **:K **E **←┘D≥F D＜K F **:A **:B **:C **:R **:K **E **┘……………………………D≥F D＜K F **:A **:B **:C **:R **:K **E **←┘  注：如有多个曲线元要素继续添加入数据库QXYS中 6、《SB》竖曲线数据库D≥竖曲线起点里程 Z[1] ？：Z[2] ？：Z[3] ？：Z[4] ？：Z[5] ？D≥？ Z[1] ？：Z[2] ？：Z[3] ？ ：…………TYQXJS 主程序名 LbI 0:4→Dimz:Cls1.SZ→XY2.XY→SZ?→N:ClsXO?U: YO?V: SO?O:FO?G: LS?H: RO?P:RN?R:?Q1÷P→C： P-R ÷ 2HPR →D：180÷π→EN 2 Goto 2LbI 1:Cls:?SS 0 Goto 0 注:當S輸入0時,程序會由LbI 0開始重新運行 ?Z:Abs S-O →WProgSUB1:ClsXS :XYS :Y◢FS :F-90 ?DMS◢Goto 1LbI 2:Cls:?XX 0 Goto 0 注:當X輸入0時,程序由會LbI 0開始重新運行 ?Y:X→I:Y→JProgSUB2:O+W→S:ClsS :SZ :Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行, 即是可以計算下段線元 SUB1 子程序名 0.1座机电话号码6→A:0.座机电话号码74→B0.0座机电话号码2→K:0.座机电话号码2→L1-L→F:1-K→MG+QEKW