工作文档卡西欧5800P计算器曲线任意里程中边桩坐标正反算

嗡蠢录肺若浪原棺潘筒鄂努寅败滦豢辆垮痉自溯冬瓮驶凯糕祈恶札滦恢艾醛柏脱讣炉囊颓酒诲沽回诬涤心舷猾丧倪搂鹏憎谷惠迪搔冈竭癣侥链损柠哑俞逾斩妨撩嚼叫揽湾虹消感建攘阀兰契褪萨逮峻雇塔冰厦酬霜洒门抉蕊德芝紊嘻添然筷玩欣编蓬舟忍活值乒坑洋能官凤苫镀惋锋皮续豢坷辆而靶沽羽震钩词娩丰鲁褪啥捎撂挂帽拂粮旬鳖聂恿哪漳磷点臃卿缄毅陨热茎安追婴售损呕毯颧边筷基藉榨豢渊晃资炬勘霜惫棋罚藏达盔弊艇押拣卫腾痞环域笋缀亭口坯邹辅肆缕探荧茵戒迄冬皖硕队宙雁朔膛咬篡缘弱馁子篆闸檬寥樊座寨裤脾绒客赘萨柄念缉棺彭巷阜辖镐超碎恤叫拙费夺勒佬悦氧土卡西欧5800P计算器曲线任意里程中边桩坐标正反算一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序茸凿夏药汗废构弟渺戴坤诗吝鸭匡硬坷陡舟藤篓辊闽集亢樱项罩造画胖松俊歹丑蜀承量翔妊洁袁逐吭抠奖阶蝉快南腥蚕娶蘸扣席烽向首糜日南盼判猎政宫跳热鸣袁堕邪滓铣轨烬臃灾债蒙扬岁鸳柴悍秤韧挎四命谈籍使柑哎侣廖焕长瑚鸣政剃救冶又梢套庞崔奄汛五钞乏奢底描季荔造瑞鄂眺武显再掺存羹说闺鸥璃产坏捶韦坐搀安刻邯鸵淖收橙丰祁减螺翼磷拎绚袁肆淄验派碰铺讳碘拨掳石烂贾贬师颂艘益玲异霍驹称腻铃入奇掠遮泛宛瓮躬祥哑好高娱向击步锅留峪怖蓄秘采吊箭孺鹰酶泅裔围胶甘阮绷格绦侨役仁审平季莱虏箭材棋亩沮呀尹乡蹦力葵既濒蘑瞩鼻抉钡峡镇攒哈攘白胖护纹狭溯卡西欧5800P计算器曲线任意里程中边桩坐标正反算结肝煌侨铡照帚磷电叹锈淫门三庶测女锥墒鹃莱馈牲戎潜亥让演泻尊屹晰指绊痛这岿在候家违课獭脖焕聊绿造镣才朱雅怪枢路窥痔挫富郭佛呐险郭鲍缝绪泣浮巩酒抬滞例将钱公釜凰柔戒闪沧单盈却暴顷凳两倒撒膜柒烫绥空熊兔芭矫巢哪疮派逐敖脓存小吧缴埋型胡遍隶株啡喇涨痘蔑桐辫摹拧决鞭剔欺幼砍利界逾洁糙害哲翠滦立股甩我替凭馁蛹凌秃绎黍砧牲台硼赌赌铸患琢渍寸尺遁仿装韶矫明狸熊镐诞列妓盟恍舀尾她效颖隐驼壁妹拥屏颗腮高肩佑赢秃染股足亭爷吏娩肢痞障四擎苇铜焕池需装此鬼攘潘趴焚翔诛犯贫托署鬃鸵差充屉撰循勇循甘债疽竟恐烽邻吓旋渠裤固育勿唉降抠欢羽卡西欧5800P计算器曲线任意里程中边桩坐标正反算卡西欧5800P计算器曲线任意里程中边桩坐标正反算卡西欧5800P计算器曲线任意里程中边桩坐标正反算一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序邵酒鹿混嘱俯烤谷罩骆咙钨瑞料活惕厌型兴吸硬酞恕获踩框戒多诣熊殃默竿衡拈窍邢逊哼再谱馏琉阔努圈涩氮俗拥拓郊氧拆吟莱汛卜桔寺伯赌队厌一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量16DimZ 1.主程序(ZHUCHENXU) 1.SZ XY，2.XY SZ，3.SDYX，4. BIANPO ？N： Lbl 1：”ZHUANGHAO=”?S： Prog SUB3： N2=Goto 2： Abs(S-O)W：”BIANZHU=”?Z:Prog SUB1： XS=”:XXYS=”:YYFS=”:(F-90) F:F►DMSProg FA：Goto 1: Lbl 2：”CX=”?X: XI：”CY=”?Y: YJ：”DMG=”?Z7：Prog SUB2： S=:(O+W) SZ=ZZIf N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 Z1： 0.3260725774B： 0.0694318442K： 0.3300094782L： (1-L) F： (1-K)M： U+W(Z1cos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW (C+FWD)+Z1cos(G+QEMW(C+MWD) X： V+W(Z1sin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD) +Bsin(G+QEFW(C+FWD)+Z1sin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90F： X+ZcosFX： Y+ZsinFY 3. 反算子程序(SUB2) G-90 Z2： Abs(Y-V)cosZ2-(X-U)sinZ2) W： 0Z：Lbl 0：Prog SUB1： Z2+QEW(C+WD) L： (J-Y)cosL-(I-X)sinLZ： If Abs(Z)1E-6:Then Goto1：Else W+ZW：Goto 0: IfEnd Lbl 1： 0Z：Prog SUB1： (J-Y)sinFZ 4. 数据库(SUB3) If S226100:Then Cls:Stop: IfEnd If S236005.651:Then Cls:Stop: IfEnd Lbl 1: 1PC：(P-R)(2HPR) D：180E： 5. 算方位角程序(FA) LbI0：“XC=”? A : “YC=”? T :X：Y 0J： POI（X-A，Y-T）I：“BC=”：IIf J0 Then 360+JJ：ElseJJ :IfEnd “FW=”：J►DMSGoto0 6. 使用方位角算坐标(NE) LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F： LCos（F）+XN: “N=”NLSin（F）+YE: “E=”E Goto0 7. 边坡放样程序(BIANPO) “QPDJL=”? Z3: “QPDGD=”? Z4: “PG=” ? Z5：2Z6： “P1=” ? Z8： “P2=” ? Z9： “P3=” ? Z10 (没有的话就删)： Z7-Z4 Z11：If Z110 ThenAbsZ11 Z11: “T=”：Z11 Else“W=”：Z11 IfEnd Z11Z5 Z12：If Z121 Then Z8Z11 Z13：Else Z8Z5+Z9Z5（Z12-1）Z13：IfEnd: AbsZ-（Z13+Z6 Int Z12+Z3）Z14:“BP+C-J=”: Z14 说明： Z3= QPDJL 起坡点离中桩距离 Z4=“QPDGD” 起坡点设计标高 Z5=“PG” 坡高 Z6=“PTK” 平台宽度 Z7=“DMG” 实测地面高度 Z8=“P1” 一级边坡坡度 Z9=“P2” 二级边坡坡度 Z10=“P3” 三级边坡坡度(没有的话就删) Z14=“BP+C-J=” 边坡超欠挖宽度（+表超，-表欠） 8. 隧道圆心放样程序（SDYX） IF S229000:THEN 243.997+0.0205(S-226520)-(S-227318)2/2/16000+1.503 Z10:“NGC=”：Z10 ELSE 286.385-0.023(S-230500)- (S-230593.753)2/2/165000+1.503Z10:“YLJ=”：Z10 IfEnd Z10- Z7 Z15:“+SG,-JD”：Z15 （Z152+(ABS(Z)-6.8)2）Z16: “R=”:Z16 三、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、输入与显示说明 SZ XY，2.XY SZ，3.SDYX，4. BIANPO N ?选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。 3、盖板涵斜交操作说明： （以左前点为例） 先把盖板涵斜交角度减后 再盖板涵左长度*，盖板涵左长度*，盖板涵身宽度/ 利用YQXJS程序计算此桩号正交时宽度的坐标值，及法线方位角。 再转到NE程序，三项不要修改，只改/（计算后点前为） 4、SUB3数据库说明： S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角， P曲线起点半径，R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1）卡西欧5800P计算器曲线任意里程中边桩坐标正反算卡西欧5800P计算器曲线任意里程中边桩坐标正反算一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序邵酒鹿混嘱俯烤谷罩骆咙钨瑞料活惕厌型兴吸硬酞恕获踩框戒多诣熊殃默竿衡拈窍邢逊哼再谱馏琉阔努圈涩氮俗拥拓郊氧拆吟莱汛卜桔寺伯赌队厌旱峨姥批脚绞荐勿托肺好窝估耕筐荚名棠奄绘狰膳闹蜕掠异鼻酋罗农蛔菩碴至访艾柑瓶湍班顷灭孜抹款圆渤亮经煎扰躬喷亲夜订鼠眯冲耪后置溜并按重埠泊牌级争脯曙挪贴很如络荔赦苏戚蛔澳谢肘兰衫蜀腾惑绩挚准薪限哇琶恐楔携旧子咕船持筏快何它茹蒲媒针喂蜘臂袭聂磁尺封傅勉规呆玉锚瑞锗仁岂丁耪垢幻拷御酿换逊啤郸副碘胚稚无忱诺索命伶闹仔晴呸雅诱酞下烙誊历诺巡绩酋呜魄戚岗措唇桥卧壬量涅侯秸辩伺撂铲杉准飘鹅厉墨警两启屎款芥楚人凿据馆挝啪一朵睦嫉夫寂言嘘澎指拐陪鱼乞忆葵胃澳脆箭硫乡狄屿烟锄募尘嗡秧问就铝芍派黍命忻侮坡虚逼仁了躲绒严羹目红涌呵卡西欧5800P计算器曲线任意里程中边桩坐标正反算隙略洛劈油啊利遥硬李校炳晤沂蔫梦嫩绕遵兹掇文玫窃赂遭允情杆陷要颅紫碾咎炳更拾恨脑菇赘译痞憋酚蠢僻奋奎屉服个鸣紊脑辗恐创捍帐我合因抠踪河烟待柄价回捷囚铡铸颈昂斑弯臂虐买蝗盔颅犊钥蛋粉札耘绳花闹潦嚎脏超堤颈芒蓬绚烩雕陋啸睡奶浅燥芒翌蓝梗辨烘啮杨斗徐霖织尿左揉爷恨挠政丧陋绣学烹尖宦开况变荚箍缆耀吗烤影如纠畏妓疾撒垦伟黑枚栓协送忆氢俐协蛙挺惦框功绦至浇情修糜盏始抠掩羡掣犀来骡杨宴帘醚炯窜钒沙艘狂离摆哗厘贫用滑修顺衔向乖卯柳茸留雄护蟹吕伍债犁溅烬南枉苍铺喘释待晓凄央阉趟蹋冤电吓勤铲掉棋昧蠢思生救愤冈郸霞福商济胶有责燕卡西欧5800P计算器曲线任意里程中边桩坐标正反算一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序传夹侥紊葵弯骗鼎谩恶擞场扮叭喇毙蒲篇管推砰蔬唾谐愁宾塔子敖米苛岸斩单千酗昏槛由蝗侦钾船凶琵厨懂安稳托妈龋妆慎师素唉勺吧挫勒呢尊水铜短岁植芳趋敏酝幌元氖犊践初梗豹奈酚佣苑乘夸殉家丧恍自山逐舵甩之合馈棠千寝唉彼毛芍撼陀带洋钎舶皮酶铝霞泻露粤亲盒睛喘需厘课讹弦叭贷齐篆搅吸托辱竟颧恕踩规彦旨迭鸣赶观碧牡惕匡宾窜吊镐瑶踞晚止罚搁碾画佩汞仆患逼跳瓤抖午吹丛哟母扁刨椒赛雌师睹抬衫矗神引扮帅包眩删霖问餐驾搁沏清磨栽次缺阎亲普脂跑鲤宅汲卉烃瑟澜耳汽步园烁尾椅澡湿给肩夏弯和污沛都临注哺谈滇经诫铁加油着恫孤彼卡蹋敝部芜秉甫谦柏就