fx计算器公路测量常用程序集

FX5800计算器公路测量常用程序集2.3版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm2:Do:＂(XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QINGAN1-9＂：Getkey→Z[3]:WhileZ[3]=35:Prog＂1XY":WhileEnd:WhileZ[3]=36:Prog＂2ZD＂：WhileEnd:WhileZ[3]=37:Prog＂3GC＂：WhileEnd:WhileZ[3]=21:Prog＂4GD＂：WhileEnd:WhileZ[3]=22:Prog＂5BP＂：WhileEnd:WhileZ[3]=23:Prog＂6FM＂：WhileEnd:WhileZ[3]=31:Prog＂7ZP＂：WhileEnd:WhileZ[3]=32:Prog＂8JS＂：WhileEnd:WhileZ[3]=33:Prog＂9SD＂：WhileEnd:LpWhileZ[3]≠25:"XIEXIESHIYONG":1.主程序：一般坐标计算及放样程序程序名:1XY（ZBFY）Prog＂DX＂:Prog＂QX＂:90→A:＂PJ1＂?A:A→B:＂PJ2＂?B:A→Z[1]:B→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:?D:0→L:＂L0＂?L:L→Z[10]:Porg＂A＂:Z[2]+Z[1]→A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhileZ≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZD（BFYFS）Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:＂XO＂?X:＂Y0＂?Y:Porg＂B＂:Prog＂ZD＂:LpWhileZ≠-1(反算带显示设计高程和横坡.在2ZD程序中修改这:Prog＂QX＂:"KM"?Z:Do:Prog＂K＂:＂XO＂?X:X=-1=>Stop:X=-2=>Break:＂Y0＂?Y:Porg＂B＂:Prog＂H＂:Prog＂ZD＂:＂H=＂:Locate6,4,H：＂I=＂:Locate6,4,I◢LpWhileX≠-1)3.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B:＂H-B＂?B:B→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix3:＂H=＂:Locate6,4,H-Z[9]：＂I=＂:Locate6,4,I：LpWhileZ≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GD（LGKD）Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D:Prog＂C＂:Fix3:＂LGD=＂:Locate6,4,P：＂RGD=＂:Locate6,4,L：LpWhileZ≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BP（LGTFBXFY）叼Prog判顶＂店D侦X密＂盛:Pro个g岁＂姨Q椒X浓＂嗽:0.轧5能→裕B:致怠＂哄TH-G刻D鼓＂津?B:罚B风→垃Z[7]:匆Do绑:许＂朝K泰M丝＂析?Z:Z=-询1=>Sto跑p:Z=-2畜=>Brea墨k:Pro设g蛙＂雕K柳＂扯:"X衫0槐＂笋?X奥:院＂礼Y枯0呀＂问?Y:Z[8拴]晒→圆M筑：妄＂猜M呈0弯＂寻?M:些M技→蔽Z[8]:姐Por么g企＂蚊B仗＂区:洒D颗→专P:Pro气g乔＂业C技＂中:IfD<彻0:Then脸0.75-珠L庭→挪D:Else喜L-0.7汉5弄→恐D:IfE沟nd:Pr漂og"H":脉H-0.03就-Z[8]名罪→折G:Pro愉g"W1"有:IfG>济0:Then孤Goto荡T:IfE芝nd:娃-矮G遣→栽H:IfH闲>E+F:T虎henL+红M+N+U+详C(H-E-瞧F)+BF+筝A珠E拉→再S:Goto堤0:IfE芳nd:If久H>E:Th满enL+M为+N+B(炕H-E)+A罩E咽→邻S:Goto饲0:IfE贪nd:猪IfH<E疑:Then斜L+M+H销A适→插S:Goto学0:IfE珠nd:销LbIT:别IfG>W价：钥ThenL便+Z[7]+僻V+J(G-歉W)+I好W颈→率S:Else插L+Z[7牛]+G钳I拉→唇S:IfEn贞d:LbI恰0:Fix哲2:毅P鱼→容D慕钢：厕Ab森s毯（甩D暖）鲜-长S灵→沟T:他统＂恋LX耐=榴＂第:Locat独e6,4,盆T亮：干Pro燕g许＂瞒Z提D简＂垫:然＂屈TW尸=纱＂摧:亦Locate倦封6,4,第G占◢红LpWhil上e览Z茫≠妈-1勺6徒、主程序：定另值放样路基桩丑计算填挖值眼程序名：牺6F瞧M北（非T震Y重）镜晶Prog霜谎＂唯D机X零＂耻:Pro迷g易＂才Q陕X茅＂医:Do亚:笔＂例K阳M脾＂章?Z:Z=-增1=>Sto临p:Z=-2姐=>Brea萄k:Pro琴g扮＂尸K搭＂梅:?D:荐Por它g巨＂兰A俩＂质:Z[2]+朋9驳0结→届A:I+D智cos(禁A匙→少X:J+Ds件in(凤A洁→镜Y:Pro疾g烤＂耕X艳Y码＂阻:Pro唉g议＂束J闭S评＂奉:Z[8厌]漫→猎M:"M0"序?M:绘M迹→忆Z[8]:P踩rog"H纱":"TW跨=":Loc斯ate6,庆4,H-Z[漆8]:Lp宣While亚Z丧≠户-1条7泉、主程序：桥积梁锥坡计算放墓样雹程序名：边7ZP辰眠Pro郊g矛＂但D烦X谜＂踩:Pro想g喷＂压Q骂X济＂劝:才＂辰Z现0把＂蹲?Z曾:柏＂严LD:Z-,钓Y蒸+锈＂概?D:Ab农s(D)姿画→疲R:孝蛇＂填L单R口＂姜?R:糟D滨→披Z[7]:蜂R伯→攀Z[10]:扑Z尝→阻Z[9]:P泥rog"C"毁:痰L册→诚Z[10]:挡Prog"K云":Do:Z淋[舌10评]僵→圾Y肺:飞＂根L0:SZ+类,DZ尸-横＂膀?Y:Y=役-1=>St帮op:Y=-腾2=>Bre详ak:瞎包√浮(隆Z[7]员2商（霜1-Y寄2军/Z[10]拜2呀）猴)巷→悠X济：忧Z[9]+匪Y炭→光Z:Pro淹g"C":腊IfD>0箭:Then般L+旁X害→恐D:Else透旷–淡L-估X稿→昼D:IfEn求d:Prog杯"A":Z乘[2]+9皱0啄→亿A:I+D胖cos(鼠A煌→矛X:J+Ds锹in(惜A犬→绢Y:Pro仰g毕＂作X梳Y池＂却:Pro霞g扬＂敢J班S痒＂咏:LpWh趋ile蛋Y息≠锯-1中8忌、主程序：由酱坐标计算方位踏角及距离拾程序名：啊8J夫S辆（挨ZBZ业S铸）锄语Prog塔念＂葬D屈X恐＂供:Do:?X碌:X=-1趣=>Stop施:X=-2=惯>Break核:?Y:Pr兰og"JS"愁:LpWh艰ile浑X愉≠穴-1趋9砌、主程序：隧萌道超欠挖放样罢计算降程序名：件9S贸D诞（稻SDT炸Y班）条数Pro侮g夺＂堵D疼X拍＂存:0.6姨5歼→肺A:"CQH爬D"?A:但A香→贞Z[7]:D耕o耍:寨＂券K火M爆＂型?Z:Z=-味1=>Sto找p:Z=-2激=>Brea役k:Pro肥g嫁＂怖K从＂俭:"X豪0雾＂装?X宜:扣＂也Y休0晨＂冠?Y:Z[8违]扬→就M助：着＂扶M服0豪＂份?M:雾M慌→唱Z[8]:绸Por虚g默＂赛B已＂奖:证D采→妄Z[9]:洁0何→舍D:Prog响"H":Pr扩og"SD1翅":Z[9]烤屈→陆D:Z[8细]张→烧M:Z[7伙]谜→薯X:Rcos质(侍P猪→迎C:H+烧A赶→玻A:H+屑B限→激B:C+忆A柏→显E:IfM窜<E:The承nR-甚V栏→些S:S=0=距>Goto膝1:甩纤√透(鸦S罚2水-(B-A)泉2党)S÷Abs举(位S萌→焦T:Abs(伏D-Q)-挥T朝→挠T:膛√窑(康T愈2重+(M-B)具2桃)-V-乐X破→布L:Goto授0:IfE稳nd:LbI滨1:薄√珠(述(澡D-Q)蔽2衫+(M-A)乒2筐)-R-营X不→采L:LbI柱0:Fix裹2:"L木X=":L久ocate占6,4,L:料Prog"Z浇D":"H传0=":L款ocate拦6,4,M-询H专◢萌LpWhil职e蛾Z急≠呢-1利10.枯紫交点法正算子运程焰序湿(屿Ａ养)程序名：A疗P÷Abs(秒P作→神W:看O盏-T+锹Π糕R×Abs(南P)÷180菠+H÷2-N斑÷尖2乔→过Q:周H躲→类C:芦0老→冠M:蔬If鼠Z礼≤娱O猛-T:The起nZ-坑O隙→慕S:要G笨→粥Z[2]:G根oto1:惕IfEnd核:姐If筐Z念≤浑O最-T+H:T剥henZ-冰O即+横T弟→码S:Prog桂"HX":晃G+W模K爪→括Z[2]:A榜-便T似→大A:血G些→蒙E:Goto帆2:IfE达nd:番If救Z承≤锯Q:The锹n180(杆Z-假O黄+T-0.5锻H)÷R÷仓Π塔→晌S:Pr迁og"AB"攻:A+R(1敲-Cos(侨S葵→灿E嗓：佛B+Rsin玩(袄S展→单A:恳E钉→详B:迎R披→璃M:G+W控S画→练Z[2]:A默-丛T顷→习A:少G捆→旗E:Goto间2:If畏End:姨If疼Z霞≤疾Q+N:Th哲enQ+N-道Z御→蜂S:宜N阅→钉H:Prog沟"HX":户G+习P华→矮E:E-W此K避→碎Z[2]:F觉-听A滩→颠A:片C晓→才H:Goto肉2:IfE途nd:参Z-Q-N+拆F锄→慧S:G+这P葵→脆Z[2]:准LbI1:名U+Scos常(Z[2逆]仆→缝I:V+Ss棍in(Z[2庸]笑→遵J:Retu历rn:LbI炕2:U+A粗cos(E)接-WBsin跨(奴E基→鸽I:V+As器in(E)+磨WBcos(殖E茂→宅J大11.旧违交点法反算子以程轮序茎(订Ｂ箭)护程序名：出B杆0疼→芽D:Do:Z蚊+瓦D痰→恨Z皮:Prog"止A":Pol鹰(X-I,Y遇-J+×10方-9锯:J-Z[2粒]落→涌J:Isin泄(嫁J域→节S:Icos教(欲J挤→辈D:If锯M辜≠械0:Then收件Pol(M-检WS,D:J尸M摄Π民÷18慧0馆→悲D:IfEn印d:LpW约hileA截bs(D肥)旱>.001:饼Z+哭D妄→嫁Z:冒S优→会D对12原.彼缓和曲线段直冒角坐标计算子锈程酷序饼(父Ａ顺B)尖程序名：美AB拘H体2乳÷R÷24-膜H除∧纷(皱4)÷268陪8÷R吗∧睡(鼓3)+H元∧赵(血6)÷506欠880÷R步∧爹(确5)-H帽∧尤(州8)÷154刮828800闷÷R伟∧每(7描)研→盾A:H÷2-返H醒∧粘(腿3)÷240楚÷R羊2登+H捆∧重(短5)÷345泰60÷R辛∧婆(喂4)-H悔∧今(窄7)÷838夫6560÷R订∧引(双6)+H骤∧丸(项9)÷315蛙850752大0÷R跃∧创(8曾)蜂→章B桌13.绒计算缓和曲线悉段坐标增量及长偏角子程序盛(缠HX)叙程序名：堪HX佩共S-S减∧紧(吧5)÷40÷可R衣2彩÷H议2叛+S眼∧狗(网9)÷345叹6÷R男∧史(宁4)÷H笔∧侍(债4)-S脾∧艇(执13)÷59黑9040÷R贪∧佳(每6)÷H扎∧框(置6)+S泄∧忧(旅17)÷17桂547264旺0÷R押∧踩(洽8)÷H熟∧绩(8萌)莫→娘A:S孕∧牙(着3)÷6÷R较÷H-S著∧桃(港7)÷336题÷R呆∧旋(麻3)÷H帮∧足(挣3)+S职∧压(攻11)÷42焰240÷R龄∧附(椒5)÷H唐∧章(过5)-S梁∧欺(湖15)÷96蔑76800÷巴R蓬∧议(斩7)÷H何∧扑(捕7)+S选∧奖(索19)÷35禾300970粮00÷R鼠∧窄(父9)÷H木∧搂(9其)朴→岂B:90S睛2烈÷鲁Π雾÷R÷手H慨→兽K:IfS掀=0:The阀n钉0充→葬M:Else思RH÷悠S笑→忧M:IfEn绿d吩1轧4割．高程计算子挥程序付（鼓H廉）程序名：H呀Prog"笼S1":N-饲I妖→镇A:A÷Ab槐s(愧A刷→拿W:R×Ab忆s(A÷蓬2合→滚T:IfZ推<C-T:T它henG+额I(Z-告C洗→贵H:Goto见0:IfE膀nd:If润Z<C+T:基Then滑G-TI+(友I+(Z-C散+T)W÷2锻÷R)×(Z前-C+燕T魄→躁H:Goto丙0:If厨End:动N汗→强I:G+I蒜(Z-揪C锣→核H:别LbI线坐0:IfD丙=0:The暖n参H肯→胁H:Retu龙rn:Els随eProg携"I":H镰+I(Abs苍(D)-果K块→驶H:IfEn绕d说15厦.鼻高程超高计算壤横坡子程序伟（捕I头）程序名：I拨Prog"津I1拖"点：猴IfS=0泻:Then嘴M挠→悉I:Ret焦urn:El劝seIf黄W=1:Th误en((N改-M)×(Z嫩-C)÷S+找M倒→均I:Retu俊rn:Els盖e(((3躲((Z-C)奖÷S)转2议-2((Z-抄C)÷S)鬼∧积(3))×(乳N-M))+升M闸→捡I:IfEn耐d:幸1孝6绑．路基宽度子妄程序蜡程序名义：屑御C博航1为→缩S:Pro樱g"G1"简:Z-渠C篮→叙E:(B-A暂)E÷S+敌A谎→躬L雁1深7绢：极坐放样计欢算程沸序晒(难计算放样点至隆置仪点方位角炕及距墓离坚)肚程序名：饲JS骗（显示方位角廉和距离）灶（产ZBF啄S兴）程披Z[5波]芳→旋K津：性Z[6请]剪→孩L:Pol(甩X-K,Y辉-L:IF债J<0:Th杰en棚J+36陡0主→镰J:Els柿e:晶J蛙→哨J:IF喂End颜:Fix路4:"FW旷J=税":佣坊（瓜J?DM振S傅◢雪显示度数）或谱（常Locate咳6,4,质J庭：赛显示袍小数嚷）歉Fix3:精"S=":寿Locate驱6,4,扑I舱◢沟亿1杂8弹．导线点子程垃序临（咽D搭X贴）讲程序名：彼DX贵也Z[5停]碧→拉K:Z[6败]袭→痛L:"XZ"诚?K:"YZ增"?L:弄K观→达Z[5]:茄L泄→卖Z[6]往1奋9调．线路选择子翼程青序止(对线路选择哑输怒0烦时。则输曲线胞参数岛（缎Q绑X虏）医程序名：楚QX欺折1遮→硬A:"QX:穿X1=1,X睬2=2"?A观:伤A称→炉Z[4]:I劲fA=0:惭Then"捉JDKM"?城O考:"JDX"脂?U:"JD桥Y"?V:"税FWJ"?G雅:"ZJ"?若P:"LS1坛"?H:"L前S2"?N:泊"T1"?T虫:"T2"?密F:?R:I蚊FEnd锻2某0厉．线路中线元应段判别子程序折（像K汁）程序名：K购IfZ[害4透]=0:Th搭enRet蜜urn:I呢fEnd:I呈fZ[淹4顾]=1:Th颤enPro粥g"X1"薄:Retur惰n:IfEn偿d慧：病IfZ[比4撒]=2:Th鄙enPro潜g"X2"劲:Retur禾n:IfEn盾d召2势1刷．坐标参数矩讲阵调用程序批（颜F孔）程序名：F骂MatF[管1,1要]虾→呈O:依至MatF[滋1,2冬]进→曾U:Mat环F[1,3缺]谎→悦V:Mat亏F[1,4吵]盒→属G:Mat纲F[1,5掀]厌→磁P:Mat赞F[1,6吐]狮→壳H:Mat四F[1,7堡]野→先N:Mat体F[1,8差]框→树T:Mat春F[1,9植]近→虎F:Mat倘F[1,1眼0夺]着→独R闹2们2羊．显示子程序帆程序名：旺XY坏隙Ｆ播ix3激:钳＂撑姐Ｘ运=蹄＂晚：葬Locate葵6,4卫,脂Ｘ：期＂夜茫Ｙ＝＂钳：原Locate成6,4齐,蔽Ｙ懂：共将程序名：课ZD妥香Fix3借:营＂ＫＭ＝＂匠：检Locate惑6,4浊,填Ｚ：＂Ｄ＝意＂贸：拴Locate孝6,4信,涉Ｄ鹰期2屿3描．数据子程威序秩(哨附后示淡例受)渗匝道线元转交役点数据程序餐（锦T扶）眠程序名：息T贸（粉QXJ托D衣）兆岛Norm2额:"QKM污"幼？寨Z从：肯"XQ责"之？长U酸：袋"YQ罚"维？促V各：送"LS1茂"荒？舞M枝：渴"LS2娇"劈？古O报：薯"A1股"僵？破A室：耀"A2醉"滤？农B筋：牢"FWJ堡"斯？绑G茫：熊"ZJ貌"诱？挨P野：疯？奴R览：蝴P÷Abs(老P即→珍Q:A观2晕÷殃R棵→虾H:H<M=旗>犁M唉→赔H:H-兵M熊→根S:B段2届÷寸R暗→潮N:N-西O烦→脏C:微O共>N=>熄O尿→构N:H=0=按>×10大-9慢→都H:讲H抛→洗X:90S芒2适÷(RH凭Π慎→巧K:G-Q森K届→耐G:N=0=炉>×10拼-9莲→蜂N:90C芬2筹÷(RN扎Π唯→柏D:P+QK控+Q宵D冰→浸P:Prog降"AB":貌(H壶2待-洞N珠2滚)÷24÷R刻÷sin(A母bs(P))风-(H爸∧匠(众4)-N省∧姿(厌4))÷26歪88÷R绘∧翁(驱3)÷sin陈(Abs(P订))+(H牌∧睁(项6)-N湖∧慎(斩6))÷50炕6880÷R户∧舰(捐5)÷sin果(Abs(P匙))-(H监∧夕(盆8)-N凯∧爹(泳8))÷15馆482880博0÷R栏∧你(7)÷si闲n(Abs(抹P孔→厦E:(R+A版)tan(A奴bs(P)÷饺2)+B-纵E杏→洒T:固N无→寨H:Prog只"AB":碌(R+A)t伏an(Abs默(P)÷2)狼+B+会E壶→驴F:袜X荒→严H:Z-S每+痰T旷→镜O鉴:Prog"献HX":U-割(A-T)c宰os(G)+帅QBsin(逮G确→努U:V-(A骤-T)sin遣(G)-QB糖cos(盐G恋→熔V:Fix励3:"JDK锅M=":Lo膏cate6携,4,群O寄:"JDX=枕":Loca贷te6,4肚,U:"J载DY=":L组ocate津6,4,V也◢节"FWJ="息:G欠?诸DM虏S掀◢吊"ZJ="吨：削P构?快DM遣S谦◢滋"LS1="巡:Loca浪te6,4旷,H:"L她S2=":党Locate边6,4,N苦:"T1=鹿":Loc灭ate6,床4,T:"颗T2=":旷Locate膊6,4,老F矛◢苗"R=":冲R震◢踢踢说明：运行每后岩"QKM已"没？输入起点桩谦号浩；去"XQ痛"便？寨"YQ禽"略？输入起颗点乏X驳、电Y军坐标倡；房"LS1齐"蹲？捉"LS2丸"陪？输入前段缓皱和曲线长度，绕后段缓和曲线样长度棵；醉"A1汪"舞？午"A2兼"恐？输入前段缓鬼和曲线参数，帅后段缓和曲线更参数怪；练"FWJ表"幼？输入起点切宋线方位角拾；讨"ZJ炼"铁？输入转角（丛终点方位角减镰起点方位角之铅差，左转为负席，右转为正）启；计算结果要尘素电同爆Q浇X婚子程序中要素城字母呜。堂鄙①丛-搬1镜程序名：染X1河（线馋路授1乞坐标计算要素抢程序介）轮街If显Z尼≤结241.08均6:Then极[[-33道6.47泻8层，黑260044顾1.63楼9未，互514392密.51过9洁，舰280粥。潜20'28.痒78肢"站，罚203净。问08'28.券32供"曾，气106.66青7涛，悄81.66奋7符，辣-270.6笨6地8暂，霞-283.0抄5慢6涨，胡60]堤]年→扭MatF:税Prog"F滔":Ret慢urn:I诊fEnd策①闷-谜2片程序名：泥X2炼（线议路估2怠坐标计算要素挑程序阳）胶掘If庭Z父≤股273.00单6:Then叔[[171夸.67穷4送，膛260078六4.54瓜7桐，欢514635尤.86骤3纵，必58专。躬49'17.报2王"犹，扑68券。搜09'26.兰91匪"合，凭93.88寒9艘，合12宪5肃，粗171.67狠4认，喷184.77这1掀，产180]校]顿→后MatF:迈Prog"F男":Ret寿urn:I肚fEnd竞If暴Z果≤讨466.22鸟7:Then幸[[341欧.9券6讽，撞260066舍4.7还6茅，谎514799开.86门5刮，窑123驶。跪43'25.编9跨"摧，灭15靠。孝58'49.崇5",帝0深，探138.21秀1予，踏68.95艳4拥，冬125.27着3贵，汇445]晨]瓶→墙MatF:榜Prog"F业":Ret时urn:I螺fEnd害说明明：恼1像、交点法极：蝶If偏Z搏≤刑计算交点段终贫点桩号色：态Then[重[驳交点桩号，交掩点做X苏坐标，交振点业Y欲坐标，起点至必交点方位角，些交点转角，交免点前段缓和曲揭线长度，交点允后段缓和曲线片长度，交点前舟段切线长度，全交点后段切线犬长度，圆半临径锐]]美站→符MatF:乎Prog"平F":Re枪turn:箭IfEnd轮（转角则为交识点段终点方位坊角减起点方位棉角，分正负，京左偏为负，右俯偏为正）如整凑条线无曲线，右全为直线段，跟则交点为终点脏桩号魔，情X斗Y恐为终点坐标，卧方位角为起点则方位角，转角辜和圆半径批为坛1感，其它全播为修0例。涂获②肾-药1菠程序名：蔑S1苏(旨线短路扶1挖高程竖曲线要争素子程非序刷)侍IfZ[苦4眠]=1:Th丈enGot卖o1:E洁lsePr皆og"S2食":Ret图urn:I躬fEnd:皮LbI1:图If草Z诉≤亩241.09客:Then订95.35毕6妻→会C:40.7奔4赶2趋→贝G:200将0差→吗R:-.03北15驶5跳→德I:.008磁1伟2件→叶N:Ret们urn:If搬End:纺②也-烘2臣程序名：昌S2拍(凝线乎路惕2宏高程竖曲线要罩素子程针序鼻)险If臭Z水≤链133.60悲1:Then唯10棍6筛→纸C:45.1表2宅→帐G:152愧5魔→稼R:-.00辅6尝4魂→鸟I:.029细8系→元N:Retu焦rn:IfE醋nd:案If福Z顺≤故466.23锤:Then良29花8旅→弯C:50.8些4碍1士→疤G:194还5守→日R:.029岁8桶→挎I:-.01波96笨8浓→艰N:Ret刻urn:If惑End:固程序字母说明酸：筐C紫-旧竖曲线交点桩三号孝；掘G忌-音交点桩号高程怀（未竖曲线调弹整的）环；谊R互-怎竖曲线半径是；异I模－竖曲线前纵胆坡芽;演N轰－竖曲线后纵窃坡勺瓜③零-悬1暗程序名：送I1慎（线范路剧1择高程超高参数稍子程序份）系荷0始→减K:孝1校→福W:If库Z[4]=1越:Then莲Goto1搁:Else漫Prog"催I2":Re妈turn:排IfEnd:温LbI1:狠IfD<0月:Then币GotoL岛:Else逆GotoR锻:IfEnd婚:萄LbIL:斑If冠Z姓≤肃740:Th乌en挎0当→臣S:-0.0伏1喝5雷→穴M:Ret欧urn:If橡End:工If贝Z奇≤哀820:Th游en8绳0恒→晨S:74贤0串→多C:-0.0企1妄5嘴→齐M:0.01扇5达→钞N:Ret沉urn:If臭End:If徐蚕Z仔≤贺944.83暖:Then饭0平→绢S:0.01叼5尾→淋M:Ret冈urn:If脖End:食LbIR:逐If蛇Z纹≤杏740:Th本en路0誉→码S:0.01驶5趴→费M:Ret亦urn:If速End:阳If骑Z室≤概820:Th漆en8出0册→系S:74者0野→久C:0.01盖5拾→水M:-0.0耗1认5坏→畅N:Ret挎urn:If奉End:If邪爸Z撤≤重944.83蒸:Then怠0狭→辈S:.-0.购01斑5灿→班M:Ret岂urn:If阀End峡③懒-萌2倦程序名：帅I2坏（线恳路恶2杜高程超高参数肚子程序乘）弓酒IfD<0包:Then路GotoL狸:Else统GotoR斑:IfEnd箭:污LbIL:题If嚼Z倦≤盲77.872械:Then仗0挡→莫S:.0怒2泽→归M:Retu竖rn:IfE历nd:垮If绵Z咐≤寸93.889认:Then良16.01守7愤→捷S:77.8贡7忆2般→启C:.0驳2叉→娱M:.0愚5桥→蝇N:Retu于rn:IfE畅nd:If腔Z库≤渴198.56锁7:Then适显0药→律S:.0汤5柳→南M:Retu示rn:IfE李nd:If绘酿Z伐≤挨273.00号6:Then固74.43迷9罗→利S:198.狠56绣7近→览C:.0惨5威→蒸M:.0唐2惹→君N:Retu区rn:IfE营nd:If露Z堵≤疮335:Th恶en邪0消→笛S:.0防2漆→脱M:Retu毫rn:IfE腰nd:If斑Z以≤咽346.23洽5:Then贸11.23鸣5抗→历S:33勿5腔→镇C:.0虎2胀→脑M:.01扬5爷→匙N:Retu扩rn:IfE灯nd:小LbIR:织If杏Z谦≤栏77.872雕:Then亩0小→昌S:-.0茫2担→属M:Retu膝rn:IfE树nd:偏If妈Z余≤裤93.889胖:Then斯16.01旗7犹→脏S:77.8冒7字2恋→狠C:-.0的2导→涂M:-.0晃5很→跟N:Ret拥urn:If哭End:If慨每Z伸≤忙198.56卵7:Then躬孝0毁→会S:-.0汪5村→昂M:Ret拜urn:If记End:I公f第Z和≤涌273.00穿6:Then犯74.43剪9基→撑S:198.东56垫7叛→亲-.0宇5概→暗M:-.0君2绒→鹊N:Ret诸urn:If尊End:If员缴Z坏≤似335:Th抹en互0亡→拣S:-.0该2役→帅M:Ret水urn:If煤End:I念f亮Z映≤帽346.23奏5:Then次11.23役5调→食S:33吴5刻→垮C:-.0寨2呜→源M:-.01贱5野→促N:Ret珍urn:If送End:么子程序中字母幸表示说明俗：名阵K繁－中央分隔带软半幅宽（中桩红标高至中桩中右线距离，无分国隔带则必为伐0百）朝；惠W侧－超高方式参依数伯（蚁W=报1通为一般直线方韵式超高适，费W=腔2姐为三次抛物线幼方式超高计）警;欧S搭－超高渐变段缎距离（不是渐判变段则输秩入恢0筐）仍；欲C磨-痕超高渐变段起搏点桩号（不是玉渐变段，无需喜输入）年；被M联－超高段起点邪横坡瑞，勒N牌-每超高渐变段终吧点横坡（不是漠渐变段，无需薯输入）凝。啄铜④麻-饿1脾程序名：境G1贴(欠线探路购1兆路基标准半幅妈宽度参数子程闷序欺)轮IfZ[4悠]=1:Th我enGot颂o1:El服sePro跪g"G2"窄:Retur对n:IfE醉nd删LbI1:泳IfD<0粒:Then地GotoL品:Else婶GotoR厅:IfEnd谅:网LbIL:眉If耐Z期≤驾241.08恼6:Then驳彩Z宋→希C:3.月5杠→再A:Retu跃rn:IfE暂nd:绝LbIR:瓶痛If爽迟Z贷≤穿40.857洲:Then缝0饿→族C:分5抱→劣A:5.2阻5嫩→指B:40.8花5庭7装→聋S:Retu式rn:IfE膨nd:If孟Z责≤对159.41浩9:Then射寄Z废→瞧C:5.2默5东→笼A:Retu情rn:IfE遭nd:丑If铜暗Z幼≤愁187.98骡7:Then装159.4丘1归9回→委C:5.2编5塞→咽A:5.哭5箩→瓦B:28.5疲6卡8驳→绝S:Retu简rn:IfE泥nd:If多Z笔≤限241.08蚂6:Then痒得Z傲→收C:5.梅5镰→形A:Retu隶rn:IfE分nd园④距-辽2浮程序名滋：告G2阵(弃线猪路约2赛路基标准半幅巴宽度参数子程耕序呢)峰IfD<0秩:Then纠GotoL希:Else烤GotoR晃:IfEnd丑:位LbIL:构If怠Z范≤紧466.22值7:Then傅乔Z目→贡C:3.怎5贤→否A:Retu尤rn:IfE忽nd:躲LbIR:州华If何毙Z舞≤快321.61渣1:Then迁傍Z者→悔C:夏5群→不A:Retu鸣rn:IfE至nd:If晶Z叠≤岁346.23朝5:Then户321.6均1项1仆→戏C:急5笨→索A:5.7艇5洽→薯B:24.6嘱2屯4崖→驶S:Retu浴rn:IfE煤nd:If峡Z牢≤好466.22音7:Then田技Z古→撞C:5.7无5找→步A:Retu泛rn:IfE栏nd猜子程序中字母垂表示说明晓：局状C椒－宽度渐变段钳起点桩号（不栗是渐变承段谜C=袜Z敏）烟；层A政－宽度渐变段锄起点宽沫度良;弹B黄－宽度渐变段贫终点宽度（不风是渐变段，无清需输入）支；翻S脑-辟宽度渐变段距番离（不是渐变辅段，无需输入送）辅。效鬼⑤宵-侵1扑程序名：觉SD1陡(思隧道参数子程兆序少)旺IfZ[4执]=1:Th走en5.辽1市→趟R:1.器8丸→偿A:1.尾4蒙→电V:棒0.59雹→俊B:嫌0举→步Q:109们。机01'30馋"菌→密P:Ret喜urn:If纤End:释IfZ[4呜]=2:Th俱en8.7叹5财→沿R:-1.冷1辆→氏A:4.7关7读→洲V:1.4触7镇→误B:-.2屑5哨→誉Q:51恋。我28'57.躬1强"俗→位P:Ret蓝urn:If镇End:闹子程序中字母笨表示说明总：忆串R羞－隧道上拱半煮径啦；趟A谢－隧道上拱圆饺心至设计面高幻度遭；辛V挂－隧道中腰部寺半径绩；谋B兴－中腰圆心至咽设计面高度嗓；豆Q吵－设计隧道中闷线与设计路基梅中线偏移值，剪左为负数，右阔为正数免；碗P枪－上部拱跨隧胶道半幅角度娇；他拴⑥慌-近1扎程序名：臭W1榨(纠线勉路追1磁路基填挖边坡脸参数子程匪序元)双IfZ[4修]=1:Th练enGot钱o1:E佩lsePr旬og"W2比":Ret诚urn:If果End:皱LbI1:箭1寇0址→向E:1若0搅→稀F:2.册6累→哑M:指2旨→印N:夹2惰→可U:1.颠5货→抹I:1.7帝5敏→剧J:秒8羊→信W:价2狗→确V:IfD片<0:The匹nGoto哪L:Els驼eGoto仙R:IfE旗nd:飘LbIL:浴1款→概A:1.2克5机→北B:1.2虽5刃→贴C:Retu脊rn:柜LbIR:焰If俱Z衡≤缩110:Th顶en1.2久5糠→酷A:1.2寒5锹→宵B:1.忠5高→霸C:Ret摊urn:El狡seGot辆oL:I掀fEnd泡⑥村-静2累程序名：瓣W2秒(明线港路简2只路基填挖边坡崖参数子程剪序劈)勉1钳0己→醉E:1败0劣→旁F:2.扎6途→值M:蹄2抚→教N:参2互→秤U:1.肉5有→休I:1.7乞5顺→您J:暑8牛→仪W:摇2剃→茂V:IfD遭<0:The尾nGoto剂L:Els艺eGoto闻R:IfE紫nd:快LbIL:陵0.7递5边→锁A:0.7信5堂→绢B:0.7误5诉→钩C:Retu收rn:浊LbIR:撇If昨Z根≤楚445:Th亲enGot层oL:El抚seIf汤Z夫≤划506.9:牲Then0朋.25×(Z基-445)÷酱21.娘2辜→凤Q:.75+纹Q让→辩A:妇A诉→盈B:想A林→轮C:Retu林rn:IfE后nd改子程序中字母络表示说明赶：舰附A灿－挖方第一阶纸边坡边率贩；张B香－挖方第二阶培边坡边率逃；巩C酸－挖方第三阶浸边坡边率剑；币E颠－挖方第一阶艰高度绵；呈F膊－挖方第二阶祝高度崖；芦M鸟－挖方路基碎盛落台及水沟宽破度岁；鞋N沃－挖方第二台铅阶平台宽度柄；塘S峡－挖方第三台蛮阶平台宽度饭；拆I轰－填方第一阶越边坡边率高；窗J视－填方第二阶铃边坡边雁率玩;科W降－填方第一阶姥高度多；着V范-武填方第二台阶花平台宽度。（板注：本程序只残做出挖方三个浸台阶，填方二须个台阶，如需声增加，先需在酒程匀序播5B纪P售程序相应增加包。再如一标段显有坡率及坡高御不一样时，可倚以照其它参数奔程序一样，用远判别语句。）域三、使用说明棒1阿、规定渐(1)糟耽坐标计算以交享点方式计算，戏一般情况下一走个交点计算一荣段线是：直惨线惨+津缓和曲昆线冤+朋圆曲申线系+哄缓和曲善线中+踏直线。在匝道半中先根据实际涛线来调整，可狮以单独计算一徐段不完整的缓话和曲筑线剩+工圆曲线。也可趋以单独计算一园段缓和曲线或冲一段圆曲线，仙需先运剃行沾T偷程序整理成交庙点数据。无缓追和曲线时，缓鹅和长度启输菌0要。坡持(2)越等程序中：组×10铁-9录为猪1论0械的骂负岗9管次方斜即覆0.0000绳00001;撞敏Π骂为圆周率坡即喷3.1415宝926;冷惠√兼为根号；量＂赚槽Ｘ痒=蚕＂伞：插X冷前有空格二个货，为了显示效松果暖(眠3)矩双为了区别字母旧O兄及数店子脖0僵，特把字母艺0雅加粗。父2啄、输入与显示搜说明咽懒尊输入提示部分劳：滩广＂沈A:XY=热1六，康ZD=2强遍，抗GC=纱3像，背GD=穷4渠，仆BP=闯5创，较FM=虽6枝，怠ZP=膊7妥，叫JS=久8诸，机锡SD=及9旱＂议?通赛按对应数子键创约半门秒洒:心1王、坐标计算放悬样程碎序鸦2裕、坐标反算程叉序游；岭3现、高程计算查炸阅程序大；凭4贵、路基半幅标怀准宽度查阅程犬序荐；称5锦、路基边坡及愧开挖口放样程冠序态；监6隆、路基标准距鸭离放样纹；堆7连、桥梁锥坡计光算放样程序吧；棵8舒、极坐标计算情程序定；宽9树、隧道超欠挖躬计算程鲜序聪喝X硬Z眨？置Y肚Z看？照瑞为置仪点坐标司，第一次运行肿输一次，以下厌运行不需再输灿入，下次再运仪行此程序调上盏次输值，如需床改，则输入，妖不需改，则按感确认键跳。重(残后附有导线点仓坐标存储子程愿序欺,陪有兴趣的可加崇上猾)转"QX:X1银=1,X2=勇2"权?清选择经路，坐特标计算中输仰入姐0雾值，变为输入诱线元段曲线要做素。执输难1眼为第一条线路宾。隔输头2利为第二条线路践，本程序暂设经计实例敌为夜2贝条线路爷。丰巴ＫＭ？正算时庆所求点的里程驳（反算输入大草概桩号）输单入凳-休1象，返回输入选贯择计算类型，排输是入持-2繁,纸返回选择线路哗。睡针咽Ｄ柿社？正算时所求犬点距中线的边式距赢(戏左侧取负湿值姻,阁右侧取正值，怜在中线上取脚零凳)灌X胞0袍旱？反算时所求幼点尘的练X朴坐标（放样程牢序中实名测肥X禾坐标）肃Y用0怠敏？反算时所求树点门的昼Y痒坐标（放样程贪序中实蛇测冤Y乏坐标）抵显示部分称：腿孟L0?型恭涵洞放样程序犯中涵距中心桩仿号前后距核离驼,灰前为掉正列,以后为程负触.斧(网即涵洞半幅宽晋度秀)搬M0?商饿放样程序中原蜂地面标高输摩入丸命H-电B段？计算面至路惭面高差（默认脆路面勿为刃0冻）之牙PJ1?P朴J2?PJ翅1瞎为路线中线与震边线的右夹角粘。第二夹角为墨边线至路前进贷方向夹嫁角栽,逢默认值均废为网9亚0唯度件.钓TH-G胶H辆？边坡放样中芦填方超放宽值械，默认值野为填0.5m.挑＂掌LD:Z-,长Y限+薯＂荣?孤凤桥梁锥坡向左为右方向边长，江左为负数，右服为正数织。绳(盟即为锥坡高程穴减地面高程后夹乘以填方坡脚比姿)限＂铁L奔R洁＂域?塌帽锥坡向路线前仅进或向后退方惹向边长。飞＂腥Z职0办＂滩?嚼通锥坡顶边桩命号孔袍＂陕L0:SZ+予,DZ难-伪＂誉?漠锥坡放样中，院椭圆上分段放赶样距离，小桩末号锥坡输正数虫，大桩号锥坡梅输负数迷。伸淹"CQHD"戴?衫帅隧道超欠挖程鲁序中衬砌厚阁度菜,员竞默认值为棕0.65m溜.伍Q晒X净子程序中床和柄T秘程序结果中直：百""JDKM咬"潜？输入交点桩妨号惑；揭"JDX意"嗽？御"JDY帅"核？输入交腐点猜X贝、桨Y舅坐标陕；爽"FWJ顽"邻？输入起点至浇交点方位救角杀"ZJ把"沿？输入转角（炒终点方位圈角议-妄起点方位角之恩差，左转为负兄，右转为正涂）辛;"LS1气"扔？粱"LS2欣"肯？输入交点前蝴段缓和曲线长走度，交点后段养缓和曲线长度乓；大"T1指"穴？抹"T2蔽"惧？余辜输入交点前段三切线长度，交罗点后段切线长记度数；侍"R"妈?贫圆半态径涨椒输出部分口X=功***软纵正算时，计算切得出的所求点妥的适X算坐标但Y=烦***我途正算时，计算鸡得出的所求点冻的锤Y碧坐狱标手防FWJ=**耗*培每正算时，计算兰得出的所求点倚的至置仪点方熊位走角伯嚷S=***趴沟正算时，计算犬得出的所求点详的至置仪点距司离浪述Ｋ笑Ｍ狂=***胁彻天反算时，计算主得出的所求点抄的里程趴金前Ｄ吉=***离社怨反算时，计算喉得出的所求点悬的边专距抓原H=***舰锅所求点位置设韵计计算面顶标印高慧罗I=***拉斥所求点位置设冈计路面横坡赏（纤D煌输割0恢时为，本段路鸭基纵坡姑）渐植LGD=*