4800，4850編寫程序詳解編寫人：xx2022/11/271計(jì)算器編寫程序我們前面所學(xué)直線，曲線，緩和曲線內(nèi)容做了充分的了解和掌握，現(xiàn)在把關(guān)于直線，曲線，緩和曲線計(jì)算坐標(biāo)的計(jì)算器編程給大家介紹下，如下

2022/11/272第一節(jié)、直線程序第1步：M“X0=”:N”Y0=”:F”F=”:0”0=”代表的意思是X0=賦于計(jì)算器里面的M的存儲(chǔ)器內(nèi)，“=”這樣編輯，M所賦于就為常量，就為M為起點(diǎn)的坐標(biāo)，相對(duì)應(yīng)，N就為Y坐標(biāo)，F(xiàn)為起點(diǎn)位置的方位角，O為起點(diǎn)的樁號(hào)。2022/11/273第2步

LBI0:{K,J}:D=K-OLBI在4800，4850計(jì)算器中是一個(gè)標(biāo)識(shí)符命令。K,J這樣編輯是變量賦予，K是直線范圍內(nèi)的任意點(diǎn)樁號(hào)，J為距左右邊樁的距離，左-，右+，D=K-O，是指直線范圍內(nèi)的任意點(diǎn)樁號(hào)-直線起點(diǎn)樁號(hào)，D就是兩樁號(hào)之差，就是距離

2022/11/274

第3步X=M+D*COSF▲Y=N+D*SINF▲X-K點(diǎn)樁號(hào)的X坐標(biāo)；Y-K點(diǎn)樁號(hào)的X坐標(biāo)，即所求點(diǎn)的XY坐標(biāo)，D同第2步一樣，2022/11/275第4步X=X+J*cos(F+90)▲Y=Y+J*sin(F+90)▲所求的XY坐標(biāo)就是左右邊樁的坐標(biāo)，90度為正交。第5步Goto0Goto為無條件轉(zhuǎn)移命令，Goto0即為無條件轉(zhuǎn)移到標(biāo)識(shí)符為0的程序運(yùn)行段落中來2022/11/276第二節(jié)圓曲線程序圓曲線程序：

由于圓曲線用的在道路測(cè)量里面用的很多，經(jīng)多年的實(shí)踐經(jīng)驗(yàn)，自己的總結(jié)，編程出了一個(gè)通過偏角法進(jìn)行計(jì)算坐標(biāo)的程序，適用于各種圓曲線，包括匝道的卵形曲線中的圓曲線，希望大家在以后的工作中能夠用上。2022/11/277第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:0”0=”:Z”Z=”同直線賦予值一樣，只介紹R—半徑，Z—轉(zhuǎn)角，左-右+第2步：LBI0:{K}同上直線2022/11/278第3步：D=ABS(K-O):任意點(diǎn)至起點(diǎn)的弧長。A=180D/R∏:這段弧長的角度。H=√（（RsinA)2(R(1-cosA))2）：任意點(diǎn)至起點(diǎn)的直線長度。I=tg-1((R(1-cosA))/(RsinA)):任意點(diǎn)至起點(diǎn)直線的偏角。V=F+ZA：圓曲線上任意點(diǎn)切線方位角2022/11/279第4步：X=M+Hcos(F+ZI)▲所求任意點(diǎn)X坐標(biāo)Y=N+Hsin(F+ZI)▲所求任意點(diǎn)Y坐標(biāo)第5步：J”J=”距中樁距離。左-，右+。X=X+Jcos(V+90)▲Y=Y+Jsin(V+90)▲邊樁X,Y坐標(biāo)結(jié)果。Goto0同上圖12-6某水利工程高程施工控制網(wǎng)2022/11/2710第三三節(jié)節(jié)緩緩和和曲曲線線程程序序★緩和和曲曲線線測(cè)測(cè)量量多多用用于于在在道道路路測(cè)測(cè)量量里里面面，，經(jīng)經(jīng)多多年年的的實(shí)實(shí)踐踐經(jīng)經(jīng)驗(yàn)驗(yàn)，，自自己己的的總總結(jié)結(jié)，，編編出出適適應(yīng)應(yīng)于于完完整整緩緩和和曲曲線線和和不不完完整整緩緩和和曲曲線線上上，，并并用用于于道道路路的的實(shí)實(shí)際際放放線線工工作作中中，，現(xiàn)現(xiàn)在在將將緩緩和和曲曲線線中中緩緩和和段段的的計(jì)計(jì)算算程程序序給給大大家家做做講講解解，，希希望望大大家家在在以以后后的的工工作作中中能能夠夠用用上上。。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):任意意點(diǎn)點(diǎn)至至起起點(diǎn)點(diǎn)的的直直線線長長度度。。I=tg-1（（（D3/6RS）/（D-D5/40R2S2）））任意意點(diǎn)點(diǎn)至至起起點(diǎn)點(diǎn)直直線線的的偏偏角角。。U=180D2/2∏∏RS:測(cè)量量點(diǎn)點(diǎn)位位置置的的切切線線V=F+ZU▲切線線方方位位角角2022/11/2413第4步：X=M+Hcos(F+ZI)▲▲所求任任意點(diǎn)點(diǎn)X坐標(biāo)。。Y=N+Hsin(F+ZI)▲▲所求任任意點(diǎn)點(diǎn)Y坐標(biāo)。。第5步：J”J=””距中樁樁距離離。左左-，右+。X=X+Jcos(V+90)▲▲Y=Y+Jsin(V+90)▲▲邊樁X,Y坐標(biāo)結(jié)結(jié)果。。Goto1同上2022/11/2414綜合上述述關(guān)于直直線，圓圓曲線，，緩和曲曲線緩和和段程序序的介紹紹，道路路測(cè)量就就是這三三種線型型的組合合，計(jì)算算方法就就是這些些。希望望做的同同事在回回去工作作中多看看關(guān)于這這方面的的書籍，，了解其其原理，，能夠自自己寫出出更多更更好實(shí)用用性更強(qiáng)強(qiáng)的程序序。2022/11/2415道路測(cè)量量直線，，緩和曲曲線。圓圓曲線綜綜合程序序路線程序序（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程序說明:就洪溪大橋橋的曲線要要素來計(jì)算算，如下：：（已知）JD？D158.03要求輸入交交點(diǎn)樁號(hào)；；（已知）A?A-11037’27.6“要求輸入路路線轉(zhuǎn)角；；（左-右+）（已知）LS?C60要求輸入緩緩和曲線長長度；（已知）R？R500要求輸入緩緩和曲線半半徑；（已知）T=T80.92235358顯示計(jì)算結(jié)結(jié)果---切線長；E=2.885179857顯示計(jì)算結(jié)結(jié)果---外距L=L161.441445顯示計(jì)算結(jié)結(jié)果---曲線總長；；ZH=77.10764642顯示計(jì)算結(jié)結(jié)果---ZH點(diǎn)樁號(hào)；HY=1371076464顯示計(jì)算結(jié)結(jié)果---HY點(diǎn)樁號(hào)；QZ=157.8283689顯示計(jì)算結(jié)結(jié)果---QZ點(diǎn)樁號(hào)；YH=178.5490914顯示計(jì)算結(jié)結(jié)果---YH點(diǎn)樁號(hào)；HZ=238.5490914顯示計(jì)算結(jié)結(jié)果---HZ點(diǎn)樁號(hào)；2022/11/2422（已知）N？N419982.948要求輸入交交點(diǎn)坐標(biāo)X；（已知）E？E531288.5509要求輸入交交點(diǎn)坐標(biāo)Y；（已知）F？F358-59-32.8要求輸入先先前一交點(diǎn)點(diǎn)至本交點(diǎn)點(diǎn)方（即小里程程方向交點(diǎn)點(diǎn)至本交點(diǎn)點(diǎn)）W？W輸入1或01可算中樁邊邊樁，0只可算中樁樁；K輸入樁號(hào)530.77要求輸入待待求點(diǎn)樁號(hào)號(hào)（0-700之間）