立交匝道5800計算器程序總匯

1、匝道程序集結(jié)號程序If (Z5)<.01:Then Goto3:Else Goto2:IfEnd1 / 14Lbl2:k+(Z5)àK:prog“RAMP-SUB”:V-90àZ2:Abs(Y-Z4)cos(Z2)-(X-Z3)sin(Z2)àZ6If Z6<.01:ThenZ6àZ5:Goto3:Else If Z6<Z5:Then:K+Z6àK:Goto1Else If Z6>Z5:Then K-Z6àK:Goto1IfEnd: IfEnd: IfEnd:LbL3 (Z4-Y)÷sin(Z2)&#

2、224;I“KP=”:Locate 6,4,(K+Z5):“D=”:Locate 6,4,I Goto 0數(shù)據(jù)庫子程序：RAMP-SUBIf K<180.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:(轉(zhuǎn)向)：Goto1:Return:IfEndIf K<250.365:Then:964.994&

3、#224;A601.155àB:1500àT:130àU:180.108àD:250.365àG:170 340 1500 àE：1àW:Goto1:Return:IfEndLbL 1: WTàC: WUàF:1÷CàC:1÷FàF:K-DZ1:G-DàHA+(cos(E+(CX+0.5(F-C)X2÷H)r,0,Z1)àZ3B+(sin(E+(cx+0.5cF-C)X2÷H) r),0,Z1)àZ4E+(CZ1+0

4、.5(F-C)Z12÷H)ràV坐標計算程序RAMP-ZS90àN:“PJ”N:“D”?P:Z3+Pcos(V+N)àZ3:Z4+Psin(V+N)àZ4Pol(Z3-R,Z4-S):J<O=>J+360àJ“XI=”:Locate 6,4,Z3:“YI=”:Locate 6,4,Z4:“AI=”: Locate,4,4,J0:“DI=”:Locate 6,4,I附上部分檢核數(shù)據(jù)樁號偏距X坐標Y坐標00790.441557.20905789.513562.1220-5791.369552.296704857.973575.

5、689第二篇標題：RAMP“1.ZS, 2.FS”?Q:“NEW（0），OLD（1,2）”？ZIf Z=0:Then“XA”?A:“YA”?B“FWJ”?E:“RS”?D:“RE”?E“KS”?F:“KE”?G:IfEndQ=2=> Goto2“CZX”?T:“CZY”?MLbl 1:“KP”?H: H = -1=>stop:“ANGLE”?0“D”?LLbL 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

6、÷(N)àP：A+(cos(C+180x÷D÷+90(1÷E-1÷D)X2÷N÷),0.X)+Lcos(P+0)àUB+(sin(C+180X÷D÷+90(1÷E -1÷D)X2÷N÷),0,X)+Lsin(P+0)àVQ=2 =>Goto 4Pol(U-T,V-M):I:J<0=> J+360àJ“X=”:Locate 4,4,U:“Y=”:Locate 4,4,V:“AI=”:Locate 6,4,J0:

7、“DI=”:Locate 6,4,IGoto 1LbL2:“KP”?H:H =-1=>stop:“XC”?R:“YC”?S:90àO:0àL:GotoZLbL 4 :pol(R-U,S-V):While Abs(Icps(J-P)<.01:P-J<180=>J+360àJ:P-J<-180=> P+360àPIf P>J:Then -IàL:Else Iàl:IfEnd: Goto3WhileEnd:H+Icos(J-P)àH:Goto ZLpl3: “KP=”:Locate 4,4

8、,H:“D=”:Locate 4,4,LGoto 2數(shù)據(jù)庫 RAMP-01If H<180.108(線元終點里程)：Then 790.441àA(起點X坐標)：557.209àB(起點Y坐標)：100410290àC(起點方位角)1500àD(起點半徑右-左+)1500àE(終點半徑右-左+)：OàF(線元起點里程)：180.108àG(終點里程)：Return:IfEndIf H<250.365:Then 964.994àA: 601.155àB: 170340150àC:1500

9、àD:130àE:180.108àF:250.365à G:Return:IfEnd附錄坐標計值，測站坐標（1000，600.）KP=240,中樁坐標X=1020.354.Y=623.679.AI=49018059.680,DI=31.224正交左10邊樁坐標 X=1025.375 Y=615.03斜交右10m邊樁，斜角800X=1016.912 Y=633.067“ANGLE”? O為與線路前邊方向右夾角，D為邊距，左-右+。第三遍標題：RAMPDeg:FiX3:11àDimZ0.1739274226àZ1:0.0694318442

10、àZ2:0.3260725774àZ3:0.3300094782àZ4Z3àZ5:1-Z4àZ6:1-Z2àZ8:Z1àZ7“RAMP0,1,2,3,4,”?OIfO=0:Then“XA”?W:“YA”?Y:“FWJ”?Q:1÷(A+×1045)àA:“RS”?A:1÷AàA: 1÷(B+×1045)àB:“RE”?B:1÷BàB ：KS“?S”:“KE”?EIfEnd:Cls:“1=> ZS,2=>FS”?X:

11、X=2=>Goto 2“CZX”?U:“CZHY”?VDO:“KP”?P:P=-1=>stop O>O=>prog:“RAMP- DATA”:Prog“RAMP-ZBJS”90àH:“PJ1”?H:“D”?D:“PJ2”?R:“LO”?T:F+Dcosc(Z+H)+Tcos(Z+H-R)àF G+Dsin(Z+H)+T sin(Z+H-R)àGPol(F-U,G-V):J<0=>J+360àJ:“Z=”:Z0 “X=”:Locate 6,4,F:“Y=”:Locte,6,4,G:“AI=”:Locate 4,4,J0:

12、“DI=”:Locate 6,4, ILPWhie P-1LbL2:“KP”?P“XC”?U:“YC”?V:LbL3:Z9>0=>prog“RAMP-DATA”:ProgRAMP-ZBJS”(V-G)cos(Z-90)-(U-F)sin(Z-90)àHIf Abs(H)>.001:Then：P+HàP:Goto3:IfEnd(F-U)÷cos(Z-90)àD“KP=”:P: locate ,6,4,P:“D=”:Locate 6,4,D Goto 2子程序RAMP-ZBJSE-SàC:P-SàL:180÷&

13、#224;M:(B-A)÷2÷CàNOàF:OàG:OàZFor 0àK To 3F+LZ2K+1cos(Q+MALZ2K+2+MN(LZ2K+22)àFG+LZZK+1sin(Q+MALZ2K+2+MN(LZ2K+2)2)àG nextW+FàF:Y+GàGQ+MAL+MNL2àZZ<0=>Z+360àZ:Z>360=>Z-360àZ 子程序RAMP-DATAIf o=1:Then prog“RAMP-DATA-1”:Goto1:

14、IfEndIf o =2:Then prog “RAMP-DATA-2”Goto1:IfEnd If o =3:Then prog“RAMP-DATA-3”:Goto1: IfEndIf o =4:Then prog“RAMP-DATA-4”: Goto1: IfEndLbL1:MatB1,1àW:MatB1,2àY:MatB1,3àQ:Mat1,4àA:MatB1,7àB:MatB1,6àS:MatB1,7àE子程序RAMP-DATA-1IfP98375.05:Then2993.628.2909.616.3150 360 12, 250-1÷10(45),-1÷67,98325.05, 98375.05àMatB:Rturn:IfEnd參考案例測站：U=7864.99，V=2533.68起點坐標：X=22993.628Y=2909.616起點樁號：98325.05曲線長50起點半徑為直線，取-10（45）終點半徑-67（半徑左-右+）終點樁號98375.05起點方位角：3150 120 25098+300中樁98360,PJ,=90,D=10,PJ