5800程序汇总.doc

1. 主程序(ZBJS) Lbl 4：1.SZ = XY：2.XY = SZ：？N：？S：Prog“SUB0”↙ 1÷P→C： (P-R)÷(2HPR) →D:180÷∏→E:N=1 = Goto1： Goto2：↙ Lbl 1：? Z： Abs(S-O) →W：Prog SUB1： XS=：X◢ YS=：Y◢ F-90→F： “FS=”：F▲DMS◢ Goto4↙ Lbl 2：？X： ？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢ “Z=”：Z◢ Goto4↙ 2. 正算子程序(SUB1) 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD))) →X： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y： G+QEW(C+WD)+90→F： X+Zcos（F）→X： Y+Zsin（F）→Y 2. 反算子程序(SUB2) G-90→T： Abs(Y-V)cosT-(X-U)sinT) →W 0→Z：Lbl 0：Prog SUB1 T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）1E-6：Then0→Z:Prog SUB1： (J-Y)÷sin（F）→Z：Else W+Z→W:Goto0：IfEnd SUB0 数据库子程序 Goto1↙ 同时保存多个曲线时的指针 Lbl 1：IF S***（线元终点里程）：Then***→G（线元起点方位角）：***→O（线元起点里程）：***→U（线元起点X）：***→V（线元起点Y）：***→P（线元起点曲率半径）：***→R（线元终点曲率半径）： ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙ IF S***（线元终点里程）：Then***→G（线元起点方位角）：***→O（线元起点里程）：***→U（线元起点X）：***→V（线元起点Y）：***→P（线元起点曲率半径）：***→R（线元终点曲率半径）：***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd …………….. 说明正算： 1：运行主程序ZBJS,选择1.SZ=XY（正算坐标）2.XY=反算坐标。 2：S？ 输入里程 Z?输入偏距（0为中桩，-1为左，1为右） 3：XS 计算出所在里程的X坐标 YS 计算出所在里程的Y坐标 FS 线路方位角 4：按EXE返回程序。 坐标反算： 1：运行主程序ZBJS,选择1.SZ=XY（正算坐标）2.XY=反算坐标。 2：S?输入所求大约里程 3：X?输入已知X坐标，Y?输入已知Y坐标 4：S=计算出所求里程。Z=偏离中线距离，一般很少，可以省略。 5：按EXE返回程序。 以下是广三高速8标的线元要素： IF S26873.225（线元终点里程）：Then293度03分43.1秒→G（线元起点方位角）：25305.836→O（线元起点里程）：2561273.902→U（线元起点X）：493212.208→V（线元起点Y）：*10的45次方→P（线元起点曲率半径）：10的45次方→R（线元终点曲率半径）：1567.389→H（线元起点至终点长度）：0→Q：Return:IfEnd IF S27173.225（线元终点里程）：Then293度33分43.1秒→G（线元起点方位角）：26873.225→O（线元起点里程）：2561900.451→U（线元起点X）：491775.495→V（线元起点Y）：*10的45次方→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：300→H（线元起点至终点长度）：1→Q：Return:IfEnd IF S27719.625（线元终点里程）：Then297度51分33秒→G（线元起点方位角）：27173.225→O（线元起点里程）：2562027.179→U（线元起点X）：491503.658→V（线元起点Y）：*2000→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：546.40→H（线元起点至终点长度）：1→Q：Return:IfEnd