坐标计算程序+方位角计算方法.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=”：Y◢J360=J=J-360:△J0=J=J+360:△FWJ=：J→DMS◢{HU}：H“XC”：U“YC”：I=0：J=0：Pol（X-H，Y-U）：J0＝＞J=J+360：△“FW=”：J→DMS◢“S=”：I◢Prog “SQX”←┘ GOTO 0←┘Lbl 2: D=***:Z=0:G=0:{MI}:M”XO”:I”YO”: Prog “FSZB”:”D=”：D ◢”JL=”：Z◢Prog “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]＝1△Z[3]：T“T”＝Abs(Z[3]W/2) ：E“E”=T＾2÷2Z[3]：C=D-Z[4]：D≦Z[4]=Z[7]=Z[1]：≠Z[7]=Z[2]△Z[5]：AbsC≦T= “H0”: Z[8]=Z[5]+CZ[7]+Z[6](T- Abs C)＾2÷2Z[3] ◢≠ “H0”: Z[8]=Z[5]+CZ[7] 5、曲线元要素数据库：QXYS◢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=**△△┘……………………………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=:X◢YS=: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=:S◢Z=:Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-