资源描述：
《立交匝道5800计算器程序总汇》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、匝道程序集结号程序If(Z[5])<.01:ThenGoto3:ElseGoto2:IfEndLbl2: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]IfZ[6]<.01:ThenZ[6]àZ[5]:Goto3:ElseIfZ[6]Z[5]:ThenK-Z[6]àK:Goto1IfEnd:IfEnd:IfEnd:LbL3(Z[4]-
2、Y)÷sin(Z[2])àI“KP=”:Locate6,4,(K+Z[5]):“D=”:Locate6,4,I◢Goto0数据库子程序：RAMP-SUBIfK<180.108(线元终点里程)：Then790.441àA(起点X坐标)：557.209—>B（起点Y坐标）：1500àT(起点半径)：1500àU(起点半径):0àD(起点里程)：180.108àG(起点里程)100410290àE(起点切线方位角)：1àW:(转向)：Goto1:Return:IfEndIfK<250.365:Then:964.994àA6
3、01.155àB:1500àT:130àU:180.108àD:250.365àG:1703401500àE：1àW:Goto1:Return:IfEndLbL1:WTàC:WUàF:1÷CàC:1÷FàF:K-DZ[1]:G-DàHA+∫(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-ZS90àN:“PJ”N:“D”?P:Z[
4、3]+Pcos(V+N)àZ[3]:Z[4]+Psin(V+N)àZ[4]Pol(Z[3]-R,Z[4]-S):JJ+360àJ“XI=”:Locate6,4,Z[3]:“YI=”:Locate6,4,Z[4]:“AI=”:Locate,4,4,J0:“DI=”:Locate6,4,I◢附上部分检核数据桩号偏距X坐标Y坐标00790.441557.20905789.513562.1220-5791.369552.296704857.973575.689第二篇标题：RAMP“1.ZS,2.FS”?Q:“NEW（
5、0），OLD（1,2）”？ZIfZ=0:Then“XA”?A:“YA”?B“FWJ”?E:“RS”?D:“RE”?E“KS”?F:“KE”?G:IfEndQ=2=>Goto2“CZX”?T:“CZY”?MLbl1:“KP”?H:H=-1=>stop:“ANGLE”?0“D”?LLbLZ: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÷
6、∏),0.X)+Lcos(P+0)àUB+∫(sin(C+180X÷D÷∏+90(1÷E-1÷D)X2÷N÷∏),0,X)+Lsin(P+0)àVQ=2=>Goto4Pol(U-T,V-M):I:J<0=>J+360àJ“X=”:Locate4,4,U:“Y=”:Locate4,4,V:“AI=”:Locate6,4,J0:“DI=”:Locate6,4,I◢Goto1LbL2:“KP”?H:H=-1=>stop:“XC”?R:“YC”?S:90àO:0àL:GotoZLbL4:pol(R-U,S-V):WhileA
7、bs(Icps(J-P))<.01:P-J<180=>J+360àJ:P-J<-180=>P+360àPIfP>J:Then-IàL:ElseIàl:IfEnd:Goto3WhileEnd:H+Icos(J-P)àH:GotoZLpl3:“KP=”:Locate4,4,H:“D=”:Locate4,4,L◢Goto2数据库RAMP-01IfH<180.108(线元终点里程)：Then790.441àA(起点X坐标)：557.209àB(起点Y坐标)：100410290àC(起点方位角)1500àD(起点半径右-左+)
8、1500àE(终点半径右-左+)：OàF(线元起点里程)：180.108àG(终点里程)：Return:IfEndIfH<250.365:Then964.994àA:601.155àB:170340150àC:1500àD:130àE:180.108àF:250.365àG:Return:IfEnd附录坐标计值，测站坐标（1000，600.）K
