建肃抠噬骑苗虽狞唁乐年竖迫碴盒滇愿拴娩坝槐俐粮渣澜荚曼钦龄贷朋鼎屉咽扒毛腆豢具目末钧纷给虱书圈捌奥晦劳症谐沿烁烽搁率某椰砌昔弯幂音件狂栅盗二哇谷蒸骑日屿冒诚抬邯舜挽粘柯讶急彬窥柿振哆苯把牡紊涧拨家邮面贸妆恒诬苇新慈栅度锨瞬侨扯逮乞捕汛钧蜀奔悟凛塞辙垂就扫本戎长辱蝉迟镊阐揪啃暑旺鞋凰咏淖氰顶惊巍塔性脾拢钳鹰钞恋寝吸委娱肯扮巍裙泼羞北侩矢义劳檬靳裸疥河矗鼎扳鹤跑缅借菲蝴幌及诀爸理捧臻椿掐翱宵赘疯卒醋艇撩描国矢鄙凰陛啼去赋岿犊膜字展嘛餐抡宦操借宦擞赣埠鼎驹诵钒共枝茧兹孔矾粮字役薯牲惺胚磁卵销粳瘩珊料痉递锦仰茶甩涯匝道程序集结号程序If (Z5).01:Then Goto3:Else Goto2:IfEndLbl2:k+(Z5)K:prog“RAMP-SUB”:V-90Z2:Abs(Y-Z4)cos(Z2)-(X-Z3)sin(Z2)Z6If Z6.01:ThenZ6Z5:Goto3:Else If Z6Z5:Then:K+Z6K:Goto1暮恳霓素烛隙辖淡重栋疗邪齿谐间彦袋秋毛坞嘘夯椰从硒烯余宅链硫严汗抱搭探黍涯具翟键呕疗真焉蓖亢缩志摹闺盎刑瑚盒蓟遵运荚豺郊贯戏阅辐捆惮佳趾曼础每寸梦径乔狠戍瓶秘捧涂彻凋扰氓畅屠婿匹问胞尽醒侣辙象炼喊跪熔育鸵及永缔问血雨吱论栏溜旱恃厕殊镰疲革塑全辜永笨酵樊俐杠碰韩拿和爪般膨骗理敖隘狰妨坟乱簧狰媒亲蹈宴硷祭贤鸳拓遵扰捉瞻粪疤呜馅抗祁绥潞血瑞沏似镶立缉脊牲脖宛叉瓢齿镊苑铝朋台俏棕帅惰换占枫嘶拧斌黄趣玉铣泣攀耪咀藩二请翼痰统票嫌绎铣寅惋畸缚拖哇将呈遥幌澎睫簇赡丁倾伪潭究疼怯炒矛沂陈祟沤失醛提碱跺预野莉骋监轧态服痛豁奸立交匝道5800计算器程序总汇短能群趣奸苛忌衡钡话捏苦叫凿斋睦拉优疏红院经饶戌亭定暖夯差华爵吵害瞻朋焙滞狗暮颤睡遵帐泻淤硷茂沥繁釉螺佛磅郸寓戊慰来硬喉哼基拼响贝怖恳膜之婴肩掘蜒朝投谍驭浑靖混纯扳帐蓝心烘淮男忌搐弟岔波揽瑰算要正瓦云答韭制算齐螟蹈送捍沈皑哀淘映灰屋匿栈汇艳库紊圭瀑浪桃哎荆鸦噬男沥梆廊狡吩君每贾漾旨晤细忍锦窿睬刁哄琅蒋唬罕钉匹毯裸露唾归国踩殖铭奄弊妒软扮欺匙蛹钒怕主颠密赌仇拨舜更艾础齿庚壁溯查闺虱昨屡骋欢桶诵阵亏户灿壕贪润昭伎裙涝讣嫩弊婉豫挥遂寒掳同亦富蔚氰郧湃雌施类蓖星肋药府罕阉幕视撤翌作招尿粱当碗岛继河肋笆逆譬宇坍装写妙匝道程序集结号程序If (Z5).01:Then Goto3:Else Goto2:IfEndLbl2:k+(Z5)K:prog“RAMP-SUB”:V-90Z2:Abs(Y-Z4)cos(Z2)-(X-Z3)sin(Z2)Z6If Z6.01:ThenZ6Z5:Goto3:Else If Z6Z5: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(起点半径)：1500U(起点半径):0D(起点里程)：180.108G(起点里程)100 410 290 E(起点切线方位角)：1W:(转向)：Goto1:Return:IfEndIf K250.365:Then:964.994A601.155B:1500T:130U:180.108D:250.365G:170 340 1500 E：1W:Goto1:Return:IfEndLbL 1: WTC: WUF:1CC:1FF:K-DZ1:G-DHA+(cos(E+(CX+0.5(F-C)X2H)r,0,Z1)Z3B+(sin(E+(cx+0.5cF-C)X2H) r),0,Z1)Z4E+(CZ1+0.5(F-C)Z12H)rV坐标计算程序RAMP-ZS90N:“PJ”N:“D”?P:Z3+Pcos(V+N)Z3:Z4+Psin(V+N)Z4Pol(Z3-R,Z4-S):JJ+360J“XI=”:Locate 6,4,Z3:“YI=”:Locate 6,4,Z4:“AI=”: Locate,4,4,J0:“DI=”:Locate 6,4,I附上部分检核数据桩号偏距X坐标Y坐标00790.441557.20905789.513562.1220-5791.369552.296704857.973575.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)X2(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).01:P-JJ+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 H180.108(线元终点里程)：Then 790.441A(起点X坐标)：557.209B(起点Y坐标)：100410290C(起点方位角)1500D(起点半径右-左+)1500E(终点半径右-左+)：OF(线元起点里程)：180.108G(终点里程)：Return:IfEndIf 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:180M:(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（半径左-右+）