工程測量用計算器編寫程序詳解二

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

2023/5/252第一節(jié)、直線程序第1步：M“X0=”:N”Y0=”:F”F=”:0”0=”代表的意思是X0=賦于計算器里面的M的存儲器內(nèi)，“=”這樣編輯，M所賦于就為常量，就為M為起點的坐標，相對應，N就為Y坐標，F(xiàn)為起點位置的方位角，O為起點的樁號。2023/5/253第2步

LBI0:{K,J}:D=K-OLBI在4800，4850計算器中是一個標識符命令。K,J這樣編輯是變量賦予，K是直線范圍內(nèi)的任意點樁號，J為距左右邊樁的距離，左-，右+，D=K-O，是指直線范圍內(nèi)的任意點樁號-直線起點樁號，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為無條件轉(zhuǎn)移命令，Goto0即為無條件轉(zhuǎn)移到標識符為0的程序運行段落中來2023/5/256第二節(jié)圓曲線程序圓曲線程序：

由于圓曲線用的在道路測量里面用的很多，經(jīng)多年的實踐經(jīng)驗，自己的總結(jié)，編程出了一個通過偏角法進行計算坐標的程序，適用于各種圓曲線，包括匝道的卵形曲線中的圓曲線，希望大家在以后的工作中能夠用上。2023/5/257第1步：M“X0=”:N”Y0=”:R”R=“:F”F=”:0”0=”:Z”Z=”同直線賦予值一樣，只介紹R—半徑，Z—轉(zhuǎn)角，左-右+第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坐標結(jié)果。Goto0同上圖12-6某水利工程高程施工控制網(wǎng)2023/5/2510第三節(jié)緩和曲線程序★緩和曲線測量多用于在道路測量里面，經(jīng)多年的實踐經(jīng)驗，自己的總結(jié)，編出適應于完整緩和曲線和不完整緩和曲線上，并用于道路的實際放線工作中，現(xiàn)在將緩和曲線中緩和段的計算程序給大家做講解，希望大家在以后的工作中能夠用上。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坐標結(jié)果。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發(fā)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+經(jīng)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質(zhì)”=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“要求輸承入路線椅轉(zhuǎn)角；步（左-右+）（已使知）LS?籠C捏60要求螞輸入包緩和幸曲線隔長度運；（已蟻知）R？R工50拔0要求吐輸入韻緩和皆曲線虧半徑崖；（已知嘩）T=T飾80掏.92葡235敞358顯示竿計算雨結(jié)果---切線恰長；E=欣2.望88份51盟79熔85寫7顯示計意算結(jié)果--鎮(zhèn)-外距L=L紙161封.44怎144狠5顯示腹計算研結(jié)果--倘-曲線總敏長；ZH岸=紀77漫.1眨07且64濕64蔬2顯示計飽算結(jié)果--爪-Z懸H點樁號錘；HY酬=踩13夕71槍07鋼64鼻64顯示雖計算伶結(jié)果---雕HY點樁陷號；QZ錘=臭15鞭7.升82業(yè)83鵝68脂9顯示計我算結(jié)果--陡-Q鉆Z點樁茅號；YH=菜17返8.5爭490攝914顯示計佳算結(jié)果--愁-Y隊H點樁號逆；HZ=醋23獵8.5謹490者914顯示猾計算凳結(jié)果---訴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.執(zhí)8要求葬輸入飯先前省一交頌點至個本交繡點方（即小性里程方鋼向交點鬼至本交保點）W？W輸入1或0逃1可算害中樁室邊樁嚴，0只可算本中樁；K輸入房誠樁號53叉0.沫77要求隱輸入物待求筑點樁村號（0-7裹00之間）X=顯示違計算孫結(jié)果—中樁X坐標42火03艦47氧.0抗59拒4Y=顯示計辛算結(jié)果—中樁Y坐標53訂12外06承.9且49