坐标、高程计算5800

《坐标、高程计算5800》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、坐标正反算、标高计算程序特点：全线贯通坐标正反计算！辛普森公式任意等分，满足所有精度要求；全线曲线元数据一次性程序化输入，参数存储采用扩充变量数据库，无需修改程序内容；多功能采用单程序编程，避免频繁调用子程序，提高运算输度。一、程序：MC“1.ZS2.FS3.BG4.SZ”:?→W:IFW=1:Then0→V:GOTO1:ifEND:IfW=2:ThenGOTO4:ifEND:IfW=3:ThenGOTOD:ifENDIfW=4:Then“KOULING”?→0:if0≠123456:Then0→o:“OUT”◢GotoA:Else“SZ1.ZB2.BG？→W:IfEnd:IfW=1:Then

2、0→o:0→V:0-Z[1]：Goto0：Else0→o：0→Z[2]:GotoA:ifEND:Lbi0←┘FOR1→WTO50:“ZBNO.”:Z[1]+1◢“X0”?→Z[Z[1]×8+4]:“Y0”?→Z[Z[1]×8+5]:“F0”?→Z[Z[1]×8+6]:“F0”?→Z[Z[1]×8+6]:“R0”?→R:R^(-1)→Z[Z[1]×8+7]:“RN”?→E:E^(-1)→Z[Z[1]×8+8]:“D0”?→F:F→Z[Z[1]×8+9]:“LS”?→G:F+G→Z[Z[1]×8+10]:“Q”?→Z[Z[1]×8+11]:“NEXT”W→Z[1]:NEXTLbiA←┘For1→W

3、To100:“BGNO.”:Z[2]+1◢“D0”?→Z[Z[2]×4+201]：“BG”？→Z[Z[2]×4+202]：“PD”?→Z[Z[2]×4+203]:“R0”?→Z[Z[2]×4+204]：“NEXT”◢W→Z[2]：NEXTLbi1←┘“D”?D：“Z”?Z：90→O“RJ”?o:0→Z[3]:Goto2←┘Lbi2←┘If（V≠1AndZ[3]>Z[1]）:ThenGotoH:IfEnd:IfD≤Z[Z[3]×8+10]：ThenZ[Z[3]×8+4]→A:Z[Z[3]×8+5]→B:Z[Z[3]×8+6]→C:Z[Z[3]×8+7]→R:Z[Z[3]×8+8]→E:Z[Z[3

4、]×8+9]→F:Z[Z[3]×8+10]→G:Z[Z[3]×8+11]→U:Goto3:ElseZ[3]+1→Z[3]:Goto2:IfEndLbi3←┘4→N:U（E-R）÷Abs（G-F）→P：Abs（D-F）÷N→Q：90Q÷π→S:C+(NPQ+2UR)NS→J：L=1A+Q÷6×(CosC+CosJ+4∑（Cos(C+((L+0.5)PQ+2UR)×(L+.5)S),L,0,(N-1)）+2∑（Cos(C+(LPQ+2UR)LS),L,1,(N-1)))+ZCos（J+o）→X:B+Q÷6×(SinC+SinJ+4∑（Sin(C+((L+0.5)PQ+2UR)×(L+.5)S),L

5、,0,(N-1）+2∑（Sin(C+(LPQ+2UR)LS),L,1,(N-1)))+ZSin（J+o）→Y:IfV=1ThenGoto6:IfEnd:V=2:ThenGoto9IfEnd:IfV=3:ThenGotoC:else“X”:X◢“Y”:Y◢Goto1IfEnd←┘Lbi4←┘“X”?M:“Y”?H:0→Z[3]Goto5←┘Lbi5←┘1→V：Z[Z[3]×8+10]→D:0→Z：90→o：Goto2←┘Lbi6←┘（（H-B）Cos（C-90）-（M-A）Sin（C-90））×（（H-Y）Cos（J-90）-（M-X）Sin（J-90））→K：IFK≤0:ThenGoto7:E

6、lseZ[3]+1→Z[3]:Goto5:IfEndLbi7←┘F+Abs((H-B)Cos(C-90)-(M-A)Sin（C-90）)→D：IFD>G:ThenZ[3]+1→Z[3]:Goto5:ELSEGoto8:IfEnd←┘Lbi8←┘2→V：Goto3←┘Lbi9←┘(H-Y)Cos(J-90)-(M-X)Sin(J-90)→K：IFAbsK<0.001:ThenGotoB:ElseD+K→D：Goto8:IfEndLbiB←┘3→V:0→Z：Goto3LbiC←┘(H-Y)÷Sin(J+90)→Z:CLS:“D”:D◢“Z”:Z◢Goto4LbiD←┘Z[2]→Z[3]:“D”?D

7、:IfD≤Z[Int(Z[3]÷4+1)×4+3+201]:ThenInt(Z[3]÷4→Z[3]:GotoE:IfEnd:IFD≤Z[Int(Z[3]÷2+1)×4+3+201]:ThenInt(Z[3]÷2→Z[2]:GotoE:IfEnd:IFD≤Z[Int(Z[3]÷0.75+1)×4+3+201]:GotoE:ElseZ[3]→Z[2]:GotoE:IfEndLbiE←┘IFD