线元法计算器兼匝道程序精编版.doc

1、5800 计算程序主程序 QXJSLbI 0: “1.SZ=XY”: “2.XY=SZ” “3.GC=SQX”:? Q : Q=1= Goto1:Q=2=Goto2：Q=3 = Goto3LbI 1:“CE:X” ?G:“CEY:”?H:Prog “XLXY”: LbI A:“K = ” ? S:Prog“ KM”：“ -B,0,B =”? Z:“ 右交角 =”?M:Prog “SUB1” : Fix 4:Cls“X=”:Locate3,1,N“Y=”:Locate3,1,EProg“JI ”:Goto ALbI2: “ X=”? B:“ Y=”? C:B N: C E:Prog “SUB2”

2、:“ K=”:S “-B，0，B=”:Z Goto 0LbI 3: 0B: “H-B”?B:BZ9: LbI D: Prog“XLXY” :“KM”?Z:Prog“ KM”：“ -B,0,B ” ?D:Prog“ H”Fix 5 ：“ H=”:H-Z9H“I=”: I Goto D说明： Q:代表正反算及竖曲线，其中1为正算， 2为反算； 3 代表竖曲线；S: 代表里程； Z ：代表偏移距离； M ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角；SUB1 正算子程序0.5（ 1R- 1P） LD:S- OX2U+(cos(A

3、+(X P+DX) 180 ,0,X) N2V+( sin(A+(XP+DX) 180 ,0,X) E12A+(XP+DX) 180 FN+Zcos(F+M) N:E+Zsin(F+ M) EReturnSUB2 反算子程序Lbl 1:0 Z ： 1Q ： Prog“ KM”: Prog “SUB1”Pol(N-B+10(-46), E-C+10(-46):Isin(F-90-J) W:S+WSIf Abs(W)0.0001 :Then Goto1Lbl 2: 0Z ： Prog“SUB1”:(C - E) sin(F+90)Z次程序 JIClstatPol(N-G,-E-H):ClsIf J

4、0:Then J+360Y:Ease J Y:Ifend“FJL= ”:I “F W J=”:Y DMSXLXZ(线路选择 )1I ：“ XLXZ:Z=1:A=2， B=3，C=4，D=5， E=6，F=7，L=8”?I: I Z1: IF I =0:Then Goto 0:Else Goto 1:IfEndLbI 0 :“F”?A: “ QDZH” ?O:“ X”?U: “Y”?V: “R1”?P: “R2”?R:“ L” ?L: Goto 1 LbI 12SUB0 ( 数据库 )Goto1 Lbl 1IF S157687.528:Then157547.528 o : 2884169.251

5、7U:471475.6573 V:98 32 43.08 A:1045P:10000； R:140L: Return:IfEnd说明： S ：里程； O 为线元起点里程； U 为线元起点 X 坐标； V 为线元起点 Y 坐标； A 线元起点切线方位角； P 线元起点半径（左转为负右转为正）； R 线元终点半径（左转为负右转为正）高程计算子程 序（ H）程序名： HProg “S1”:C -T F:Z-F S:C+TE:G-TI Q:If T=O:Then Q+SI H:Goto 0:Else If ZF:Then Q+SI H:Goto 0:Else If Z E:Then Q+SI+S22R

6、H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog“I ”:H+V H:Goto ILbI I高程超高计算程序（I ）程序名： IIf Z3=1:Then Prog“I1 ”:Goto 1: IfEndLbI 1: If W=1:Then Goto Z: ElseGoto X: IfEndLbI Z:If S=0:Then Abs(D)MV:Goto 2:Else Abs(D)(N-M)(Z- C) S+M)V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z- C) S)2-2

7、(Z-C) S) (3) (N-M)+M) V:Goto 2:IfEnd3LbI 2:Abs(D)E:VE I:I(E-K) V-1 程序名： S1(线路 1 高程竖曲线要素子程序)IfZ1=1:ThenGoto 1:ElseIf Z1=2:ThenProg“SA ”: Else If Z1=3:ThenProg “SB”: Else If Z1=4:Then Prog“SC”: Else If Z1=5:ThenProg“SD”: Else If Z1=6:ThenProg“SE”: Else If Z1=7:ThenProg“SF”: Else If Z1=8:ThenProg“SL”:I

8、fEndGoto 1LbI 1If Z26157.8:Then -200000R:157.8 T:26000 C:37.1 G:0.01222 I:Return:IfEnd程序字母说明： R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）； T- 竖曲线切线长 ( 标段结尾或开头没有竖曲线的输0) ；C-竖曲线交点桩号； G-交点桩号高程（未竖曲线调整的）；I 竖曲线前纵坡-1 程序名： I1 （线路 1 高程超高参数子程序）If Z1=1:ThenGoto L:Else If Z1=2:Then Prog“IA ”: Else If Z1=3:Then Prog “IB ”: Else If

9、Z1=4:Then Prog“IC ”: Else If Z1=5:Then Prog“ID ”: Else If Z1=6:Then Prog“IE”: Else IfZ1=7:Then Prog“IF ”: Else If Z1=8:Then Prog“IL ”:IfEnd1.5 K:If D0:Then Goto L:Else Goto R:IfEnd:LbI LIf Z26735.555:Then 1 W: 120 S:26615.555 C:-0.02 M:0.02 N:Goto 0:IfEndLbI RIf Z26735.555:Then 1 W:0S:-0.02 M: Goto

10、0:IfEndLbI 04字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为 0）本线路中为 0；W超高方式参数（ W=1为一般直线方式超高， W=2为三次抛物线方式超高） ;S 超高渐变段距离（不是渐变段则输入 0）； C-超高渐变段起点桩号（不是渐变段，无需输入）； M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）H （高程主程序）5Fix 3： Lb1 3:“ K=” ?Z: Prog “SQX”:(P - Q) Abs(P - Q) WIf Z(H-T):Then(H-Z) P X:Goto 2:IfEndIf Z (H-T) And ZH:Then (H- Z) P+(Z-H+T) 2 (2WR) X:Else (H+T-Z) 2 (2WR) -(Z- H) QX: Goto 2:IfEnd Lb1 2: ” GAO CHENG=” D - X X Goto 3SQX （竖曲线数据库）Goto 1Lb1 1IfZ 157893.75:Th