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

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

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

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

2023/5/254

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

由于圆曲线用的在道路测量里面用的很多，经多年的实践经验，自己的总结，编程出了一个通过偏角法进行计算坐标的程序，适用于各种圆曲线，包括匝道的卵形曲线中的圆曲线，希望大家在以后的工作中能够用上。2023/5/257第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:0”0=”:Z”Z=”同直线赋予值一样，只介绍R—半径，Z—转角，左-右+第2步：LBI0:{K}同上直线2023/5/258第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/5/259第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/5/2510第三节缓和曲线程序★缓和曲线测量多用于在道路测量里面，经多年的实践经验，自己的总结，编出适应于完整缓和曲线和不完整缓和曲线上，并用于道路的实际放线工作中，现在将缓和曲线中缓和段的计算程序给大家做讲解，希望大家在以后的工作中能够用上。2023/5/2511第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:S”LS=”：0”0=”:Z”Z=”同圆曲线赋予值一样，只介绍S-缓和曲线长第2步：LBI0:{K}:D=ABS(K-O):同上圆曲线2023/5/2512第3步：H=√（（D-D5/40R2S2)2+(D3/6RS)2):任意点至起点的直线长度。I=tg-1（（D3/6RS）/（D-D5/40R2S2））任意点至起点直线的偏角。U=180D2/2∏RS:测量点位置的切线V=F+ZU▲切线方位角2023/5/2513第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坐标结果。Goto1同上2023/5/2514综合上述关于直线，圆曲线，缓和曲线缓和段程序的介绍，道路测量就是这三种线型的组合，计算方法就是这些。希望做的同事在回去工作中多看关于这方面的书籍，了解其原理，能够自己写出更多更好实用性更强的程序。2023/5/2515道路测量直线，缓和曲线。圆曲线综合程序路线程序（LX）D“JD”：A：﹛R﹜：C“LS”P=C2÷24÷R-C4÷2688÷R3+C6÷506880÷R5-C8÷154828800÷R7Q=C÷2-C3÷240÷R2+C5÷34560÷R4-C7÷8386560÷R6B=90C÷R÷∏T=（R+P）tan（AbsA÷2）+Q◢G“E”=（R+P）÷cos（A÷2）-R◢L=（AbsA-2B）R∏÷180+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◢

2023/5/2516N：E：F：WA<0=>S=－1:≠>S=1△U=F+A÷2+90SH=G+RB=N+HcosUO=E+HsinUJ=100000Lbl1﹛K﹜K≦Z[1]=>L=T+Z[1]-KH=F+180U=F2023/5/2517Got合o2△K≦Z求[2]逢=>L纪=K-我Z[1切]X=显L-乐L5÷40彻(RC溉)2+L9÷34概56(气RC)4-L13÷59四904吊0(R隐C)6Y=队L3÷6R头C-L7÷33晓6(R肺C)3+L11÷4玩22锡40活(R穷C)5-L15÷96拌768原00(州RC)7H=√半(X2+Y2)Q=S正tan布-1(反Y÷X章)P=F糕+18抚0Q=F献+QU=F慨+18龙0SL2÷(2忘∏RC蔬)Got哲o4△K≦Z怨[4]习=>L说=F+爪A÷2疾+18姿0+9激0S+似(K-共Z[3菊])×合180嫌S÷R的÷∏U=稳L+阀90排S202唇3/5分/518Got霸o5△K≦Z呜[5]半=>L赵=Z视[5]雨-KX=挽L-短L5÷4漠0(装RC镇)2+L9÷34落56(灭RC)4-L13÷59限904爸0(R挪C)6Y=咸L3÷6设RC饰-L7÷3秀36缓(R图C)3+L11÷4吩22末40胡(R栏C)5-L15÷96侍768丢00(灾RC)7H=√却(X2+Y2)Q=给St辟an返-1单(Y沟÷X躺)P=轮F+区AQ=但F+封A+女18灵0-声QU=F示+A-耳180扯SL2÷(史2∏弄RC药)Got访o4△K>赴Z[仆5]惊=>舰L=斑K-壳Z[耍5]偷+TU=F扛+AH=UGot必o2△202猪3/5仗/519Lb迷l2X=N+傻Lc值os艇H◢Y=E+津Ls优in谷H◢U◢Got锦o6Lbl3｛G，V｝X“词X0狭”=X+锡Gc暴os（U+貌V）◢Y“盖Y0穷”=Y+交Gs奏in（U+蠢V）◢Go李to1Lb怕l4X=N+T边cos检P+H糠cos好Q◢Y=E+T惊sin廊P+H踢sin枕Q◢U◢Go特to6202巾3/5出/520Lbl5X=Ｂ+Rco贞sL◢Y=Ｏ+Rs陵in昼L◢U◢Got胶o6Lb谈l6W=助1=叨>Go辩to3△Got降o1202晨3/5昨/521程序母说明:就洪批溪大贴桥的任曲线字要素判来计引算，咏如下辩：（已发知）JD？D1郑58.括03要求篮输入吃交点蓄桩号泊；（已知鹅）A?桨A傅-挨11037’饲27.份6“要求输倒入路线殿转角；辞（左-右+）（已知知）LS?刘C壁60要求输艺入缓和旨曲线长观度；（已知愤）R？R档50累0要求输历入缓和所曲线半屑径；（已知消）T=T融80彼.92箱235叼358显示享计算粥结果---切线长吵；E=2搁.88扁517止985英7显示计太算结果--发-外距L=L桑161研.44集144踪蝶5显示呼计算浓结果---曲线姿总长碌；ZH圾=厅77弯.1营07躲64踩64辛2显示割计算耽结果---市ZH点桩莲号；HY=掉13绣710河764烫64显示歇计算抹结果--懂-H找Y点桩收号；QZ=勿15愁7.8紧283医689显示洽计算略结果---子QZ点桩谢号；YH=沟17挥8.5露490箭914显示计味算结果---贴YH点桩亩号；HZ=屠23吨8.5辛490液914显示跑计算吹结果--袭-H笨Z点桩号备；20捆23倘/5篇/522（已知薪）N？N奇41匆99谣82浊.9葬48要求输胸入交点化坐标X；（已那知）E？E湿53衣12皂88杂.5粱50抓9要求芦输入砖交点乳坐标Y；（已运知）F？F3行58-裹59-义32.泛8要求输熔入先前协一交点正至本交振点方（即小丧里程方章向交点亩至本交看点）W？W输入1或0缺1可算中首桩边桩毒，0只可算返中桩；K输入桩闭号53采0.鞋77要求浴输入旨待求奇点桩味号（0-陷70知0之间租）X=显示计煌算结果—中桩X坐标42蹲03播47提.0凡59俱4Y=显示计替算结果—中桩Y坐标531掠206皂.94肢96U=显示孙计