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

匝道程序集结号程序If (Z5)Z5:Then K-Z6K:Goto1IfEnd: IfEnd: IfEnd:LbL3 (Z4-Y)sin(Z2)I“KP=”:Locate 6,4,(K+Z5):“D=”:Locate 6,4,I Goto 0数据库子程序：RAMP-SUBIf KB（起点 Y坐标）：1500T(起点半径)：1500 U(起点半径):0D(起点里程)：180.108G(起点里程)100 410 290 E(起点切线方位角)：1W:(转向)：Goto1:Return:IfEndIf KJ+360J“XI=”:Locate 6,4,Z3:“YI=”:Locate 6,4,Z4:“AI=”: Locate,4,4,J0:“DI=”:Locate 6,4,I附上部分检核数据桩号 偏距 X坐标 Y坐标0 0 790.441 557.2090 5 789.513 562.1220 -5 791.369 552.29670 4 857.973 575.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-FX:G-FN: C+180XD+90(1E-1D)X 2(N)P：A+(cos(C+180xD+90(1E-1D)X2N),0.X)+Lcos(P+0)UB+(sin(C+180XD+90(1E -1D)X2N),0,X)+Lsin(P+0)VQ=2 =Goto 4Pol(U-T,V-M):I:J J+360J“X=”:Locate 4,4,U:“Y=”:Locate 4,4,V:“AI=”:Locate 6,4,J0:“DI=”:Locate 6,4,IGoto 1LbL2:“KP”?H:H =-1=stop:“XC”?R:“YC”?S:90O:0L:GotoZLbL 4 :pol(R-U,S-V):While Abs(Icps(J-P)J+360J:P-J P+360PIf PJ:Then -IL:Else Il:IfEnd: Goto3WhileEnd:H+Icos(J-P)H:Goto ZLpl3: “KP=”:Locate 4,4,H:“D=”:Locate 4,4,LGoto 2数据库 RAMP-01If H ZS,2=FS”?X: X=2=Goto 2“CZX”?U:“CZHY”?VDO:“KP”?P:P=-1=stop OO=prog:“RAMP- DATA”:Prog“RAMP-ZBJS”90H:“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):JJ+360J:“Z=”:Z0 “X=”:Locate 6,4,F:“Y=”:Locte,6,4,G:“AI=”:Locate 4,4,J0:“DI=”:Locate 6,4, ILPWhie P-1LbL2:“KP”?P“XC”?U:“YC”?V:LbL3:Z90=prog“RAMP-DATA”:ProgRAMP-ZBJS”(V-G)cos(Z-90)-(U-F)sin(Z-90)HIf Abs(H).001:Then：P+HP:Goto3:IfEnd(F-U)cos(Z-90)D“KP=”:P: locate ,6,4,P:“D=”:Locate 6,4, D Goto 2子程序 RAMP-ZBJSE-SC:P-SL:180 M:(B-A)2CNOF:OG:OZFor 0K To 3F+LZ2K+1cos(Q+MALZ2K+2+MN(LZ2K+22)FG+LZZK+1sin(Q+MALZ2K+2+MN(LZ2K+2)2)G nextW+FF:Y+GGQ+MAL+MNL2ZZZ+360Z:Z360=Z-360Z 子程序 RAMP-DATAIf o=1:Then prog“RAMP-DATA-1”:Goto1: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,1W:MatB1,2Y:MatB1,3Q:Mat1,4A:MatB1,7B:MatB1,6S:MatB1,7E子程序 RAMP-DATA-1IfP98375.05:Then2993.628.2909.616.3150 360 12, 250-110(45),-167,98325.05, 98375.05MatB:Rturn:IfEnd参考案例测站：U=7864.99，V=2533.68起点坐标：X=22993.628Y=2909.616起点桩号：98325.05曲线长 50起点半径为直线，取-10（45）终点半径-67（半径左-右+）终点桩号 98375.05起点方位角：315 0 120 25098+300中桩 98360,PJ,=90,D=10,PJz=80,Lo=10,X=2975.729 X=3030.174Y=2927.136 Y=2884.549AI=1750230570 AI=1750500570DI=4905.066 DI=4847.53本程序参考借鉴王中伟老四的作品， D 为边距，左-右+，Lo 为涵洞半幅宽。前