T工程测量用4800、4850计算器编写程序详解

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

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

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

2022/11/274

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

由于圆曲线用的在道路测量里面用的很多，经多年的实践经验，自己的总结，编程出了一个通过偏角法进行计算坐标的程序，适用于各种圆曲线，包括匝道的卵形曲线中的圆曲线，希望大家在以后的工作中能够用上。2022/11/277第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:0”0=”:Z”Z=”同直线赋予值一样，只介绍R—半径，Z—转角，左-右+第2步：LBI0:{K}同上直线2022/11/278第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：圆曲线上任意点切线方位角2022/11/279第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某水利工程高程施工控制网2022/11/2710第三三节节缓缓和和曲曲线线程程序序★缓和和曲曲线线测测量量多多用用于于在在道道路路测测量量里里面面，，经经多多年年的的实实践践经经验验，，自自己己的的总总结结，，编编出出适适应应于于完完整整缓缓和和曲曲线线和和不不完完整整缓缓和和曲曲线线上上，，并并用用于于道道路路的的实实际际放放线线工工作作中中，，现现在在将将缓缓和和曲曲线线中中缓缓和和段段的的计计算算程程序序给给大大家家做做讲讲解解，，希希望望大大家家在在以以后后的的工工作作中中能能够够用用上上。。2022/11/2411第1步：：M““X0=””:N””Y0=””:R””R=““:F””F=””:S””LS=””：0””0=””:Z””Z=””同圆圆曲曲线线赋赋予予值值一一样样，，只只介介绍绍S-缓和和曲曲线线长长第2步：：LBI0:{K}:D=ABS(K-O):同上上圆圆曲曲线线2022/11/2412第3步：：H=√√（（（D-D5/40R2S2)2+(D3/6RS)2):任意意点点至至起起点点的的直直线线长长度度。。I=tg-1（（（D3/6RS）/（D-D5/40R2S2）））任意意点点至至起起点点直直线线的的偏偏角角。。U=180D2/2∏∏RS:测量量点点位位置置的的切切线线V=F+ZU▲切线线方方位位角角2022/11/2413第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同上2022/11/2414综合上述述关于直直线，圆圆曲线，，缓和曲曲线缓和和段程序序的介绍绍，道路路测量就就是这三三种线型型的组合合，计算算方法就就是这些些。希望望做的同同事在回回去工作作中多看看关于这这方面的的书籍，，了解其其原理，，能够自自己写出出更多更更好实用用性更强强的程序序。2022/11/2415道路测量量直线，，缓和曲曲线。圆圆曲线综综合程序序路线程序序（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◢2022/11/2416N：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=F2022/11/2417Goto2△K≦Z[2]=>L=K-Z[1]X=L-L5÷40(RC)2+L9÷3456(RC)4-L13÷599040(RC)6Y=L3÷6RC-L7÷336(RC)3+L11÷42240(RC)5-L15÷9676800(RC)7H=√(X2+Y2)Q=Stan-1(Y÷X)P=F+180Q=F+QU=F+180SL2÷(2∏∏RC)Goto4△K≦Z[4]=>L=F+A÷2+180+90S+(K-Z[3])×180S÷R÷÷∏U=L+90S2022/11/2418Goto5△K≦Z[5]=>L=Z[5]-KX=L-L5÷40(RC)2+L9÷3456(RC)4-L13÷599040(RC)6Y=L3÷6RC-L7÷336(RC)3+L11÷42240(RC)5-L15÷9676800(RC)7H=√(X2+Y2)Q=Stan-1(Y÷X)P=F+AQ=F+A+180-QU=F+A-180SL2÷(2∏RC)Goto4△K>Z[5]=>L=K-Z[5]+TU=F+AH=UGoto2△2022/11/2419Lbl2X=N+LcosH◢Y=E+LsinH◢U◢Goto6Lbl3｛G，V｝X“X0””=X+Gcos（U+V）◢Y“Y0””=Y+Gsin（U+V）◢Goto1Lbl4X=N+TcosP+HcosQ◢Y=E+TsinP+HsinQ◢U◢Goto62022/11/2420Lbl5X=Ｂ+RcosL◢Y=Ｏ+RsinL◢U◢Goto6Lbl6W=1=>Goto3△Goto12022/11/2421程序说明:就洪溪大桥桥的曲线要要素来计算算，如下：：（已知）JD？D158.03要求输入交交点桩号；；（已知）A?A-11037’27.6“要求输入路路线转角；；（左-右+）（已知）LS?C60要求输入缓缓和曲线长长度；（已知）R？R500要求输入缓缓和曲线半半径；（已知）T=T80.92235358显示计算结结果---切线长；E=2.885179857显示计算结结果---外距L=L161.441445显示计算结结果---曲线总长；；ZH=77.10764642显示计算结结果---ZH点桩号；HY=1371076464显示计算结结果---HY点桩号；QZ=157.8283689显示计算结结果---QZ点桩号；YH=178.5490914显示计算结结果---YH点桩号；HZ=238.5490914显示计算结结果---HZ点桩号；2022/11/2422（已知）N？N419982.948要求输入交交点坐标X；（已知）E？E531288.5509要求输入交交点坐标Y；（已知）F？F358-59-32.8要求输入先先前一交点点至本交点点方（即小里程程方向交点点至本交点点）W？W输入1或01可算中桩边边桩，0只可算中桩桩；K输入桩号530.77要求输入待待求点桩号号（0-700之间）