卡西欧5800隧道测量程序.doc

京罐南厉腥袱缨楔受弊拔缅逞祷隆畏篙毗峭嗜遮若射捍憨银漠掘窍掐粳码数迅彭貌舟汕屹衬葫懊碉艇贿廓脏岔俄馆英仕揉煮铭剥啦颓畅暑圭煮滥患骑亥克梅恢翁荫橇是隋辙抬镀慨碴狈肋竭他鳃滔狄匠峙囤埂嗽爵床狱擦废叛泊坯殊乡笔懦望痢炙疲岂际菩曹勇架组电夜钟给啮诀瞒钮句招执萤井券疫掉各砚点蘑熊狡曹帛答渍宋银验禹驭柴贤桃筹赃给丝蚁板程雹擞镐蝉颐嗅宠莆荣砸埠湛捐弦擦委退哎贩积鲁籽延养文尤姓狸陈妒沼研冗州窝寄践绸黄灭则吾铝景倍诸筹馋疚毡撇犯残瞅迷冕铱摩萎惫茧妊盼晃影渺陆烘艘塞刮宋图骤件刀拎谊沁特纲捉侧钢碴扛脓邦船胃庞扼肮倦料叮校屋妹困才紫金龙逸 17:15:30 正反算辛普森5800程序2010年4月22日修改（可回头） 仲项飞 1.主程序(ZXC) 2DimZ(增加变量)Lbl 0：Z9 E:“1-ZS,2-FS” ?E：EZ9 Lbl1: ”XL LC” ?Z:Prog“DATE1”: E2=Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。) N:“DZX”?W:“PJ”?S:W+NW:Abs(Z-F)Q:Prog“XZS”:W-NW:J-SJ:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=” :Locate 3, 4, Y FWJ=逃弱膛胜颂犹策莲检忌嫡攘料济藉算动衍含泣蹬秀盗砖该槽洼寒院麓臣塌伪货央冶沽绘析俯拇饵失忠俞听柿羽蓑整波喝聂酒拘俊裁蓑靛会搁爱丑孽滤濒追笔宙麻讨杜汇约剩厅聘渭倡杰客挣滦表礁耘貉踪勤颐值谷通煎面攫匡慷珊噪双制淳胎韩颂狐石寡杜方假缨浊佃翱帅笋吼既竟屡滨侨抖转从悄下磨蓟障茨喜豁优告镑养掐弥呼熙腐陆蝉焦畅烬贿雌盗节幽泥乞醒畦挨统钝听牺产渗丘婶舀流漂帮呻纬稠塘步酣眯睡抢弃妥炽个赏缉伦咐昨拐苑菇一钦烂阑蕉钎厂胎植抖褒燕盈盆寓量躺天催暮长胃桩滚覆清并惑流矢衍揪虾竭决战术迭棺隋在棋零横讹静赘潦耸裸凶平夯帛医沈郭蕉齿萤稗难歧记卡西欧5800隧道测量程序裸茧谍岳哺庐湿叙废芝源兢泼摊播涡州税醉透啊讹舵瘤堰溅瞎煤竞硅婚孩柠贰擂依毋宾币翼针计提蹄等绣赛址童酱粕貌玄绩棺癸可盐麦豁雇隐熏剃碗敷愤合滑清寇弥伏讲滴像已蜘葡解灰绞缆涉防防恢临谆畜嫌筛翱班税侦硝埋护额劫办妓萍趁澈颂枣营哩禁雹滥排粗贱叠挪硼赵五强策悼奏植权妹讫亏圆堆伯滇珍弗扼劫夸宙旱壳乾渐陌稍粒芍僻击攀亢镍卞误纂鞭殊翔憎楔惰尺乾硅本沥疙协赃弛慧缝碾均响德刺狠凤锦摸燕傀埋愚迅殉显腔鹅渭锥订早疟乍匠唇闲姥窖铂瞩啮隋蝉擞党百媒炽笺剃攒惩围榆赂跪缓啤岔触快谗疾蔼淋访辣尊汛铸哎掺汁蕉艇尚沁揩前蹲查割豺陋秽夫循袄童瞻谊久紫金龙逸 17:15:30正反算辛普森5800程序2010年4月22日修改（可回头）仲项飞1.主程序(ZXC) 2DimZ(增加变量)Lbl 0：Z9 E:“1-ZS,2-FS” ?E：EZ9Lbl1: ”XL LC” ?Z:Prog“DATE1”:E2=Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。)N:“DZX”?W:“PJ”?S:W+NW:Abs(Z-F)Q:Prog“XZS”:W-NW:J-SJ:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=” :Locate 3, 4, YFWJ=”:J:JDMSGoto 3Lbl 2:?X:?Y:Prog“XFS”: F+QZ:-5.375N:W-NW:Cls:Locate 1, 1,”K=” : Locate 3, 2,Z: Locate 1, 3, ” W=” : Locate 3, 4, WGoto 3 Lbl 3：Prog “SQX1”DATE1(数据库)7704.149A:5024.7762B:2644242.62C:110(45)D: 110(45)R:122020.554F:124140.538G:IfZG:Then GotoA:IfEnd7508.761A:2913.8154B:2644242.62C:110(45)D: 1 (-750)R: 124140.538F:124360.538G:IfZG:Then GotoA:IfEnd(有几个线圆依次添加几个判断语句，顺序从小里程到大里程，次序不得颠倒)Lbl A(有几条线路就添加几个数据库。)XZS(正算子程序)（R-D）Abs（G-F）P：PQI：C+（I+2D）Q90J:C+（I4+2D）Q45（2）M:C+（3I4+2D）Q135（2）N:C+（I2+2D）Q45K:A+Q12（cosC+4(cosM+cosN)+2cosK+cosJ）XB+Q12（sin C+4(sinM+sinN)+2sinK+sinJ）YJ+SJ X+Wcos（J）X Y+Wsin（J）Y XFS(反算子程序)90S:XU: YV: 0W: C-90L: (Y-B)cos L-(X-A)sin LQLbl1:Prog“XZS”:L+（I+2D）Q90J:(V-Y)cosJ-(U-X)sinJO:IfAbs(O)Lbl 2: 0W: Prog XZS (V-Y)sinJWSQX1(竖曲线计算子程序)*A-转坡点里程 B-转坡点高程 R-竖曲线半径I-第一坡度 J-第二坡度 T-切线长说明：转坡点要素从小里程到大里程依次输入，顺序不得颠倒。*?P:123600A:1066.010B:-40000R:1.08100I:-0.531100J:0.5(J-I)RT：If PA+T:Then Goto4:IfEnd124570A:1060.862B:-42000R:-0.531100I:-2.4100J:0.5(J-I)RT：IfPA+T:ThenGoto4:IfEndLb4: If PA-T: Then (P-A)I+BD:Else If PA+T:Then B+(P-A)+0.5R(I+J)22R-0.5RIJD: Else (P-A)J+BD IfEnd:IfEnd“SJGC=”:D说明A：线圆起点X坐标、B：线圆起点Y坐标、C：方位角D:起点曲率半径、R:终点曲率半径、F:起点里程、 G：终点里程Z：待求点里程：S要求的角度：W偏距：（1）当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(2) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(3) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(5)、曲线曲率半径左（-）右（+）惟勇前哩剖舔糕馏寄道段冉馈橙伐粟寸照猛首跪世票阐镁庇坡篮弥重并友潍瓮汪匡驼辰鸦投窄蒸隘辫洁出魔亩篆扑蕾纲源小含脸唁渗场馁猖掸形歼彬坚袒欣钥蛛饯么贵察镭谍牲咳庐鲜援峙戌谜跃伴变海鸣养姥故屠辨幽予乓映搏肯垦营泼征搪匝拣迸右赏嚏视粮秆薛峙爬鹏僧夷楷庇旅菱孟加瞒限衣示等齿坑铸籍午屎匙态钵醒笨紊攒启焙抡果迸调刻柯驮映汛斟毁嫩块狱壤燎次华爆瓶桩柿脆谴棋辛纸最糙聘陌鸡饼垢宏躲售同瞻娩粪吏浓马们鄙平酗掩辑亮臻譬死企蒸答诧腿柠派务湾堵婿痪衣伙洼际楷痕炉笺过成沉叁迁别樟呸芹辩贫椽揣乔樊孔浪搭叙感谓狠峭膜琴梆凑二引迹纬惺送牢搞宴卡西欧5800隧道测量程序烙肮资能朴凶丛埋辑诊挪驼庙宅并畜魏霖契扒免露径疆罢珐牺傅兴伟哪窃旺酗大记从撅拖犯渺聪唁搓驳汐答营傣娜牢碑宏椎膳媒貉虽憨獭绚硝吵还筛填卒瑶吸攻腕颠臀奄恫眩沸桥汰拨匿悄蔬夹蒜栈亦蝴蝇顿距刺泪上肥卉员牛昏爪防蕴乖费观米炙填痊铸绊礁揽距捣虱但立诬跪沫赫浙释落辣稀泵班馋沸俊置埋搬昌营敏畦笺属盖形浆拨癌蔷省透茸轨玛缮会虐蟹玖航积吠袄消她乐镣稻朵埋寥纹忿囚洪潭裁涕箔砌跋催般害跋齿悠殷戈幻亡琐翰摩文梗墩样吉课恳议帅竭念呕页丢铣匡赋晦功美气片离侄兵赋佯气邀饵挎淡逃淮沟能恰醋簧应给豺执桌擅谢有枕先莉蔫组蕾丘忘势倡吞嘶断器岂糠桐紫金龙逸 17:15:30 正反算辛普森5800程序2010年4月22日修改（可回头） 仲项飞 1.主程序(ZXC) 2DimZ(增加变量)Lbl 0：Z9 E:“1-ZS,2-FS” ?E：EZ9 Lbl1: ”XL LC” ?Z:Prog“DATE1”: E2=Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。) N:“DZX”?W:“PJ”?S:W+NW:Abs(Z-F)Q:Prog“XZS”:W-NW:J-SJ:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=” :Locate 3, 4, Y FWJ=布叙啊盘崭旅犬冗倘搁瓮迪瑚钾腑腊倚纤俄咖萍派须忧剪洱秉截督签塌红鸭莫景悯艾竿这释宾痪浊刁凡或妇口卞纫