《5800最新版本线元法.doc》由会员分享，可在线阅读，更多相关《5800最新版本线元法.doc（4页珍藏版）》请在金锄头文库上搜索。
1、最新版本线元法主程序ZBJSLbl 6：1.SZ XY：2.XY SZ：？S：？N：Prog“SUB0”1PC：(P-R)(2HPR) D：180E:N=1 =Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：IIfJ0: Then “J=”: J+360DMSIfEndIfJ 0：Then “J=” ：JDMSIfEnd：ProgGC:Goto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=
2、:ZProgGC:Goto 6正算子程序 SUB10.1739274226A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KM：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)+90F： X+Zcos（F）X： Y+Zsin（F）Y反
3、算子程序SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6：Prog SUB1T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）ZIF Abs（Z）1E-6：Then0Z:Prog SUB1:(J-Y)sin（F）Z:Else W+ZW：ProgGC:Goto6:IfEnd数据库子程序 SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分)Lbl1：IFS线元终点里程：ThenO(线元起点里程) ：
4、U(线元起点X坐标)：V(线元起点Y坐标)：G(线元起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIFS线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G线元(起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd。如不想用偏角法放样可直接删除“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：I直接里程推坐标。 GC(竖曲
5、线)Lb1 7CLs:?k: (计算点里程输入)IfkXXXANDKXXX :Then XXXA : 0B :XXXS : XXXG :XXXR : Goto2 : IfEndIfkXXXANDKXXX:ThenXXXA : XXXB : XXXS :XXXG : XXXR : Goto2 : IfEndIfk0 : ThenG+(C-K) 2/2/R-L*BH: Goto 5 : Else If W0 : ThenG+(K-D) 2/2/R-L*AH: Goto 5 : Else If W XY 2. XY = SZ S ?选择里程 ,N?，Z?左或右偏距。选择计算方式，1.表示进行由里程、
6、边距计算坐标 ；输入2表示由坐标反算里程和边距。 显示部分： XS= 正算时，计算得出的所求点的X坐标 YS= 正算时，计算得出的所求点的Y坐标 FS= 正算时，所求点对应的中线点的切线方位角XC=测站点X值YC= 测站点Y值 I=XXX 测站到放样点距离J=XXX测站到放样点方位角 S= 反算时，计算得出的所求点的里程 Z= 反算时，计算得出的所求点的边距 K=XXXX 反算得出的里程 H=XXXX 得出设计高程 J=? 拱部测得高程 M=? 测设线到隧道中线距离 N=? 反算时得出的偏距 V= 计算得出的半径，即直角3角形斜边 H+XXXO 其中XXX为（路面高程测设线到隧道中线之高差，隧道中线到起拱线圆心的距离，XXX为上述之和，上述H+XXXO为起拱线圆心设计标高，起拱线处于水平面，故高程与圆心标高相等 J-OP 为拱部到起拱线高差 M-NQ 为圆心和偏距之间的距离，由上述俩点求出斜边即半径、
