立交匝道5800计算器程序总汇.docVIP

匝道程序集结号程序 If (Z[5]).01:Then Goto3:Else Goto2:IfEnd Lbl2:k+(Z[5])(K:prog“RAMP-SUB”:V-90(Z[2]:Abs((Y-Z[4])cos(Z[2])-(X-Z[3])sin(Z[2]))(Z[6] If Z[6].01:ThenZ[6](Z[5]:Goto3:Else If Z[6]Z[5]:Then:K+Z[6](K:Goto1 Else If Z[6]Z[5]:Then K-Z[6](K:Goto1 IfEnd: IfEnd: IfEnd: LbL3 (Z[4]-Y)÷sin(Z[2])(I “KP=”:Locate 6,4,(K+Z[5]):“D=”:Locate 6,4,I◢ Goto 0 数据库子程序：RAMP-SUB If K180.108(线元终点里程)：Then 790.441(A(起点X坐标)：557.209—B（起点Y坐标）：1500(T(起点半径)：1500(U(起点半径):0(D(起点里程)：180.108(G(起点里程) 100 410 290 (E(起点切线方位角)：1(W:(转向)：Goto1:Return:IfEnd If K250.365:Then:964.994(A601.155(B:1500(T:130(U:180.108(D:250.365(G:170 340 1500 (E：1(W:Goto1:Return:IfEnd LbL 1: WT(C: WU(F:1÷C(C:1÷F(F:K-DZ[1]:G-D(H A+∫(cos(E+(CX+0.5(F-C)X2÷ H)r,0,Z[1])(Z[3] B+∫(sin(E+(cx+0.5cF-C)X2÷H) r),0,Z[1])(Z[4] E+∫(CZ[1]+0.5(F-C)Z[1]2÷H)r(V 坐标计算程序RAMP-ZS 90(N:“PJ”N:“D”?P:Z[3]+Pcos(V+N)(Z[3]:Z[4]+Psin(V+N)(Z[4] Pol(Z[3]-R,Z[4]-S):JO=J+360(J “XI=”:Locate 6,4,Z[3]:“YI=”:Locate 6,4,Z[4]:“AI=”: Locate,4,4,J0:“DI=”:Locate 6,4,I◢ 附上部分检核数据 桩号 偏距 X坐标 Y坐标 0 0 790.441 557.209 0 5 789.513 562.122 0 -5 791.369 552.296 70 4 857.973 575.689 第二篇标题：RAMP “1.ZS, 2.FS”?Q:“NEW（0），OLD（1,2）”？Z If Z=0:Then“XA”?A:“YA”?B“FWJ”?E:“RS”?D:“RE”?E“KS”?F:“KE”?G:IfEnd Q=2= Goto2 “CZX”?T:“CZY”?M Lbl 1:“KP”?H: H = -1=stop:“ANGLE”?0“D”?L LbL Z:Z=1=prog“RAMP-01”:Z=2=prog“RAMP-02”:H-F(X: G-F(N: C+180X÷D÷∏+90(1÷E-1÷D)X2÷(N∏)(P： A+∫(cos(C+180x÷D÷∏+90(1÷E-1÷D)X2÷N÷∏),0.X)+Lcos(P+0)(U B+∫(sin(C+180X÷D÷∏+90(1÷E -1÷D)X2÷N÷∏),0,X)+Lsin(P+0)(V Q=2 =Goto 4 Pol(U-T,V-M):I:J0= J+360(J “X=”:Locate 4,4,U:“Y=”:Locate 4,4,V:“AI=”:Locate 6,4,J0:“DI=”:Locate 6,4,I◢Goto 1 LbL2:“KP”?H:H =-1=stop:“XC”?R:“YC”?S:90(O:0(L:GotoZ LbL 4 :pol(R-U,S-V):While Abs(Icps(J-P)).01:P-J180=J+360(J:P-J-180= P+360(P If PJ:Then -I(L:Else I(l:IfEnd: Goto3 WhileEnd:H+Icos(J-P)(H:Goto Z Lpl3: “KP=”:Locate 4,4,H:“D=”:Locate 4,4,L◢Goto 2 数据库 RAMP-01 If H180.108(线元终点里程)：Then 790.441(A(起点X坐标)：557.209(B(起点Y坐标)：100410290(C(起点方位角) 1500(D(起点半径右-左+)1500(E(终点半径右-左+)：O(F(线元起点里程)