工程测量用计算器编写程序详解

4800，4850编写程序详解编写人：xx2023/7/61计算器编写程序我们前面所学直线，曲线，缓和曲线内容做了充分的了解和掌握，现在把关于直线，曲线，缓和曲线计算坐标的计算器编程给大家介绍下，如下

2023/7/62第一节、直线程序第1步：M“X0=”:N”Y0=”:F”F=”:0”0=”代表的意思是X0=赋于计算器里面的M的存储器内，“=”这样编辑，M所赋于就为常量，就为M为起点的坐标，相对应，N就为Y坐标，F为起点位置的方位角，O为起点的桩号。2023/7/63第2步

LBI0:{K,J}:D=K-OLBI在4800，4850计算器中是一个标识符命令。K,J这样编辑是变量赋予，K是直线范围内的任意点桩号，J为距左右边桩的距离，左-，右+，D=K-O，是指直线范围内的任意点桩号-直线起点桩号，D就是两桩号之差，就是距离

2023/7/64

第3步X=M+D*COSF▲Y=N+D*SINF▲X-K点桩号的X坐标；Y-K点桩号的X坐标，即所求点的XY坐标，D同第2步一样，2023/7/65第4步X=X+J*cos(F+90)▲Y=Y+J*sin(F+90)▲所求的XY坐标就是左右边桩的坐标，90度为正交。第5步Goto0Goto为无条件转移命令，Goto0即为无条件转移到标识符为0的程序运行段落中来2023/7/66第二节圆曲线程序圆曲线程序：

由于圆曲线用的在道路测量里面用的很多，经多年的实践经验，自己的总结，编程出了一个通过偏角法进行计算坐标的程序，适用于各种圆曲线，包括匝道的卵形曲线中的圆曲线，希望大家在以后的工作中能够用上。2023/7/67第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:0”0=”:Z”Z=”同直线赋予值一样，只介绍R—半径，Z—转角，左-右+第2步：LBI0:{K}同上直线2023/7/68第3步：D=ABS(K-O):任意点至起点的弧长。A=180D/R∏:这段弧长的角度。H=√（（RsinA)2(R(1-cosA))2）：任意点至起点的直线长度。I=tg-1((R(1-cosA))/(RsinA)):任意点至起点直线的偏角。V=F+ZA：圆曲线上任意点切线方位角2023/7/69第4步：X=M+Hcos(F+ZI)▲所求任意点X坐标Y=N+Hsin(F+ZI)▲所求任意点Y坐标第5步：J”J=”距中桩距离。左-，右+。X=X+Jcos(V+90)▲Y=Y+Jsin(V+90)▲边桩X,Y坐标结果。Goto0同上图12-6某水利工程高程施工控制网2023/7/610第三节缓和曲线程序★缓和曲线测量多用于在道路测量里面，经多年的实践经验，自己的总结，编出适应于完整缓和曲线和不完整缓和曲线上，并用于道路的实际放线工作中，现在将缓和曲线中缓和段的计算程序给大家做讲解，希望大家在以后的工作中能够用上。2023/7/611第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:S”LS=”：0”0=”:Z”Z=”同圆曲线赋予值一样，只介绍S-缓和曲线长第2步：LBI0:{K}:D=ABS(K-O):同上圆曲线2023/7/612第3迎步：H=淋√（零（D紧-D5/4锤0R2S2)2+(外D3/6吐RS骗)2):任意堵点至伴起点壳的直鞋线长拾度。I=临tg-1（（D3/6大RS名）/寨（D数-D5/4丝式0R2S2））任意陪点至树起点攀直线梦的偏焦角。U=叙18握0D2/2回∏R眉S:歪测量饭点位嫩置的牲切线V=苹F+幅ZU▲缸切线萍方位狠角20昂23傻/6吓/3捷013第4联步：X=你M+久Hc森os减(F陵+Z倘I)王▲撑所只求任梦意点嗓X坐氏标。Y=紧N+线Hs庸in淹(F纸+Z附I)释▲比所谱求任肌意点琴Y坐数标。第5竟步：J”派J=靠”详距中黑桩距答离。雾左-考，右边+。X=要X+衫Jc唐os州(V脑+9拖0)芬▲Y=着Y+厕Js大in午(V嚷+9壤0)傻▲边桩此X,宁Y坐栏标结铺果。Go授to泡1没同上20毁23鞋/6想/3裹014综合联上述舞关于咐直线评，圆水曲线霉，缓迷和曲完线缓之和段腰程序绿的介虎绍，勒道路耳测量品就是同这三协种线谅型的跌组合您，计的算方草法就谅是这扇些。镜希望辱做的摆同事笔在回戏去工拘作中启多看存关于孤这方磨面的怜书籍疗，了粱解其榆原理互，能浮够自叔己写杨出更珠多更收好实做用性漠更强在的程苍序。20肌23叔/6逼/3衬015道路么测量暖直线蓄，缓汉和曲气线。边圆曲册线综摆合程笛序路线虽程序王（L荒X）D“付JD松”：习A：丙﹛R仿﹜：凝C“察LS捞”P=崇C2÷2秤4÷奔R-撇C4÷2括68选8÷番R3+C6÷5煌06晚88够0÷瞧R5-C8÷1脾54罗82议88毙00蓬÷R7Q=毒C÷揉2-眠C3÷2愉40则÷R2+C5÷3贫45尿60我÷R4-C7÷8抓38缎65炉60到÷R6B=唐90第C÷葵R÷番∏T=蜓（R浆+P款）t醉an眨（A袭bs享A÷恼2）问+Q胳◢G“测E”弹=（剖R+氏P）摊÷c罪os回（A疏÷2肿）-爷R◢L=射（A疗bs凶A-糊2B差）R烦∏÷鉴18岩0+兴2C质◢Z[令1]捏=D液-T早◢Z[爷2]资=Z吉[1哈]+期C◢Z[蒜3]土=Z脆[1脱]+刚L÷救2◢Z[医4]饶=Z惹[1朴]+伐L-糖C◢Z[闷5]饿=Z逢[1黑]+查L◢20嗓23同/6拘/3辆016N：夜E：喊F：资WA<居0=晋>S里=－哈1:记≠>浅S=破1△U=秘F+锐A÷拴2+屡90撒SH=写G+谜RB=炎N+绒Hc翁os陵UO=亮E+陕Hs增in国UJ=欣10啊00妥00Lb校l近1﹛K浇﹜K≦佩Z[暂1]齐=>驳L=昆T+治Z[遥1]辣-KH=姿F+盒18拣0U=外F20以23布/6醋/3彩017Go悲to筒2栋△K≦之Z[汉2]底=>养L=房诚K-习Z[妻1]X=注L-穴L5÷4岛0(哈RC密)2+L9÷3练45探6(源RC甲)4-L13÷5劲99塌04额0(假RC锦)6Y=基L3÷6依RC眯-L7÷3搬36溪(R独C)3+L11÷4碧22唇40辆(R验C)5-L15÷9牌67泛68浇00沿(R曾C)7H=促√(答X2+Y2)Q=扫St静an也-1较(Y副÷X览)P=型F+豪18燃0Q=卷F+洋QU=黄F+番18它0S葛L2÷(处2∏西RC兔)Go液to瞒4熄△K≦银Z[燃4]昨=>润L=慢F+蛇A÷汽2+顷18稿0+体90真S+可(K岔-Z批[3鼻])晃×1屿80雨S÷示R÷括∏U=替L+损90辈S20客23惜/6饰/3当018Go押to托5盖△K≦毒Z[冤5]筐=>曾L=陶Z去[5箩]-以KX=猾L-充L5÷4究0(狗RC双)2+L9÷3炼45辞6(本RC共)4-L13÷5酬99沫04怪0(能RC象)6Y=紧L3÷6率RC棒-L7÷3林36晒(R弟C)3+L11÷4往22务40南(R奸C)5-L15÷9渔67糊68蜘00辣(R曲C)7H=五√(景X2+Y2)Q=葱St碧an顷-1第(Y劲÷X秆)P=贺F+限AQ=猎F+星A+粒18贱0-脸QU=粥F+竖A-却18罚0S档L2÷(煎2∏具RC僚)Go狡to逃4糟△K>酷Z[软5]泛=>摆L=势K-重Z[室5]迹+TU=碍F+恳AH=志UGo半to济2垃△20扁23只/6即/3跃019Lb厘l市2X=挑N+般Lc叮os伶H◢Y=恨E+键Ls仿in防H◢U◢Go康to拣6Lb吩l剑3｛G览，V脏｝X“波X0这”=种X+采Gc摇os但（U舒+V界）◢Y“浑Y0堪”=努Y+芒Gs铁in串（U辽+V匪）◢Go嚷to托1Lb依l猴4X=搂N+家Tc拌os僵P+旅Hc法os拜Q◢Y=暑E+针Ts翠in勇P+晌Hs暖in打Q◢U◢Go宰to膊620闸23弹/6槐/3围020Lb连l此5X=钢Ｂ+分Rc端os坦L◢Y=汽Ｏ+炉Rs晨in虏L◢U◢Go遇to高6Lb估l卫6W=办1=倘>G宋ot银o苏3△Go催to蚊120但23喘/6刮/3枯021程序腰说明挣:就洪漂溪大厨桥的棒曲线剧要素挖来计缎算，组如下游：（已茶知）雕JD现？D旺1童58哥.0柜3岔要传求输榴入交低点桩琴号；（已亦知）瓣A?龄A台-炭11037撞’2腐7.惠6“恨要笼求输罢入路矿线转辅角；雾（左叙-右衬+）（已届知）昆LS骆?发C县60运要求茄输入育缓和蜂曲线选长度泡；（已掠知）商R？圈R蹲5比00盲要求翅输入势缓和恨曲线躲半径怨；（已船知）差T=活T得80鸽.9通22星35饼35妈8违显贡示计桐算结抖果-诵--诸切线暗长；E=带2.助88园51逢79纵85蜓7显污示计进算结副果-唇--厉外距L=忘L1受61蓝.4债41鞭44宴5蚁显哪示计摘算结掌果-蔑--隆曲线顷总长境；ZH俱=侮77踩.1缩慧07按64匆64溪2奏显即示计模算结纲果-独--性ZH忘点桩威号；HY吊=巾13文71甩07书64崇64利显示涝计算简结果膛--到-H效Y点挑桩号惜；QZ协=樱15僚7.栏82塔83鹊68炊9容显蜘示计娘算结佩果-俱--境QZ杰点桩现号；YH牲=厌17颈8.锐54扫90智91此4玩显示找计算妻结果忌--葱-Y垦H点冬桩号瓣；HZ第=畅23皮8.亚54墨90状91纳4呆显示弹计算调结果何--贷-H谢Z点螺桩号鹅；20锋23总/6资/3续022（已终知）疗N？词N阻4级19黄98逝2.韵94碑8挤要求党输入炸交点煎坐标羞X；（已雁知）避E？更E绪53怜12拌88而.5阿50慈9饭要动求输录入交越点坐算标Y膊；（已驳知）盆F？奋F咐35华8-斩59繁-3赠2.猴8右要求欧输入没