资源描述：
《5800坐标计算程序+方位角计算方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1.主程序TYQXJSDefm10：Lbl0:“1.LC=>XY”:“2.XY=>LC”:{V}:V=1=>GOTO1:≠>GOTO2△Lbl1:{DZG}:D:Z”JL=”:G”J=”:Z=0=>G=0：△Prog“QXYS”:Prog“ZSZB”:”X=”：X◢”Y=”：Y◢J>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=”：I◢Prog“SQX
2、”←┘GOTO0←┘Lbl2:D=***:Z=0:G=0:{MI}:M”XO”:I”YO”:Prog“FSZB”:”D=”：D◢”JL=”：Z◢Prog“SQX”←┘GOTO0←┘D=有效里程即线路起点里程2.正算坐标ZSZBN=5:P＝（1E-1R）÷Abs（K-F）：Q＝Abs（D-F）÷N：S=90Q÷π：J＝C+(NPQ+2R)NS：L=1←┘X＝A+Q÷6×(CosC+CosJ+4∑（Cos(C+((L+0.5)PQ+2R)×(L+.5)S),L,0,(N-1)）+2∑（Cos(C+((LPQ+2R
3、)LS,L,1,(N-1))）+ZCos（J+G)：←┘Y＝B+Q÷6×(SinC+SinJ+4∑（Sin(C+((L+0.5)PQ+2R)×(L+.5)S),L,0,(N-1)）+2∑（Sin(C+((LPQ+2R)LS,L,1,(N-1))）+ZSin（J+G)：←┘3.反算坐标：FSZBLbl0:Prog“QXYS”:Prog“ZSZB”:O=J-90:←┘P=(I-Y)cosO-(M-X)sinO:D=D+P:←┘AbsP≥0.001=>GOTO0:≠>GOTO1△←┘Lbl1:Z=(I-Y)cosJ-(M
4、-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-AbsC)＾2÷2Z[3]◢≠>“H0”:Z[8]=Z[5]+CZ[7]5、曲线元要素数据库：QXYS◢D≥F=>D＜K=>F=**:A=**:B=**:
5、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=*
6、*△△←┘(注：如有多个曲线元要素继续添加入数据库QXYS中)6、《SB》竖曲线数据库D≥竖曲线起点里程=>Z[1]=？：Z[2]=？：Z[3]=？：Z[4]=？：Z[5]=？△D≥？=>Z[1]=？：Z[2]=？：Z[3]=？：…………△TYQXJS(主程序名)LbI0:4→Dimz:Cls"1.SZ→XY""2.XY→SZ"?→N:Cls"XO"?U:"YO"?V:"SO"?O:"FO"?G:"LS"?H:"RO"?P:"RN"?R:?Q1÷P→C：(P-R)÷(2HPR)→D：180÷π→EN=2=>Goto2L
7、bI1:Cls:?SS=0=>Goto0(注:當S輸入0時,程序會由LbI0開始重新運行)?Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90?DMS◢Goto1LbI2:Cls:?XX=0=>Goto0(注:當X輸入0時,程序由會LbI0開始重新運行)?Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(
8、子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X(剩號可省略)X
