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

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÷4控0(铃RC敞)2+L9÷3比45猫6(梳RC商)4-L13÷5帮99凯04辉0(投RC野)6Y=L3÷6R跌C-L7÷33刺6(R随C)3+L11÷42逮240朗(RC稼)5-L15÷9渗67显68献00给(R膛C)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+遍90总S+狗(K谈-Z欠[3荐])率×1敬80碎S÷陷R÷缝∏U=岛L+倡90杀S20佳23会/5撤/518Got发o5△K≦Z棚[5]布=>L算=Z月[5]挖-KX=L旷-L5÷40盛(RC味)2+L9÷34蜘56(赚RC)4-L13÷59作904溜0(R阅C)6Y=L3÷6皂RC扑-L7÷33怕6(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+L姜sin碗H◢U◢Got祸o6Lbl3｛G，V｝X“概X0玻”=X+孟Gc齿os（U+V）◢Y“简Y0质”=Y+G打sin（U+烟V）◢Go著to1Lbl4X=N+父Tc馆os驰P+娱Hc堤os倦Q◢Y=E+T言sin罩P+H锤sin豪Q◢U◢Go树to620蛋23晃/5科/520Lb锣l5X=Ｂ+Rc绞os旷L◢Y=Ｏ+Rs座in请L◢U◢Go缸to6Lb粱l6W=允1=捧>Got栗o3△Go客to120叫23轿/5湖/521程序恰说明:就洪溪浮大桥的钓曲线要厨素来计逐算，如纵下：（已枝知）JD？D府15皇8.米03要求输粘入交点倚桩号；（已舍知）A?溉A俘-朵11037’告27.热6“要求输承入路线椅转角；步（左-右+）（已使知）LS?笼C捏60要求蚂输入包缓和幸曲线隔长度运；（已蚁知）R？R工50拔0要求吐输入韵缓和皆曲线亏半径崖；（已知哗）T=T饰80掏.92葡235敞358显示竿计算雨结果---切线恰长；E=欣2.望88份51盟79熔85写7显示计意算结果--镇-外距L=L纸161封.44怎144狠5显示腹计算研结果--倘-曲线总敏长；ZH岸=纪77漫.1眨07且64湿64蔬2显示计饱算结果--爪-Z悬H点桩号锤；HY酬=踩13夕71枪07钢64鼻64显示虽计算伶结果---雕HY点桩陷号；QZ锤=臭15鞭7.升82业83鹅68脂9显示计我算结果--陡-Q钻Z点桩茅号；YH=菜17返8.5争490摄914显示计佳算结果--愁-Y队H点桩号逆；HZ=醋23猎8.5谨490者914显示猾计算凳结果---诉HZ点桩号蹄；202僻3/5庙/522（已邪知）N？N4租199洞82.扣948要求输售入交点回坐标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-7裹00之间）X=显示违计算孙结果—中桩X坐标42火03舰47氧.0抗59拒4Y=显示计辛算结果—中桩Y坐标53订12外06承.9且49