casio-fx4800p型計算器連續(xù)計算線路高程、坐標

《casio-fx4800p型計算器連續(xù)計算線路高程、坐標》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應用文檔-天天文庫。

1、CASIO-fx4800P型計算器連續(xù)計算線路高程、坐標及放樣程序【簡述】為了適應現(xiàn)場快速、準確、靈活的放樣要求，作者根據(jù)線路施工測量特點，運用計算器的編程功能，使整條線路的施工測量計算數(shù)據(jù)能連續(xù)快速的計算，只要把整條線路各個交點處的計算要素輸入子程序中，你便擁有整條線路的“數(shù)據(jù)庫”。在忙碌的施工現(xiàn)場，你不必攜帶大量的施工圖和資料來查找平面、縱斷面的設(shè)計要素，更不必擔心設(shè)計要素的輸入錯誤，從而使得計算和放樣輕松、方便、快捷?！居嬎惴秶孔鴺瞬糠职ǎ焊鞯燃壒泛透咚俾返闹本€段、圓曲線段、加對稱緩和曲線的圓曲線段中、邊樁坐標及放樣計算。高程部分包

2、括：各等級公路和高速路的直線段、豎曲線段、緩和超高段中、邊樁高程及放樣計算。?一、坐標及放樣程序【起算數(shù)據(jù)】：交點里程樁號、交點坐標、前直線方位角、交點轉(zhuǎn)角、圓曲線半徑、緩和曲線長（一）主程序：XYFY2Fix4M"Xc=":P"Yc="8＇如須放樣輸入測站坐標值,否則輸入0Lbl08{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A"8＇變量輸入和聲明S=0=>E=0:≠>E=908＇求邊樁坐標時的偏角值判定L=πRN÷180+V8＇含有緩曲線的曲線總長T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^

3、4÷(2688R^3)))tan(N÷2)8＇切線長A=Q-T:B=A+V:D=A+L:C=D-V8＇A-ZH(ZY)點樁號,B-HY點樁號,C-YH點樁號,D-HZ(YZ)點樁號Rec(T,F+180)8＇求ZH(ZY)點的坐標增量Z[1]=W+I:Z[2]=K+J8＇ZH(ZY)點坐標值Rec(T,F+GN)8＇求HZ(YZ)點的坐標增量Z[3]=W+I:Z[4]=K+J8＇HZ(YZ)點的坐標值Lbl18U=S÷(Abs(S+10E-19)):S=AbsS8＇左右偏角每件判定HGoto2:≠>8＇第一直線上坐標計算判定HG

4、oto3:≠>8＇第一緩和曲線上坐標計算判定HGoto4:≠>8＇凈圓曲線上坐標計算判定HGoto5:≠>Goto6⊿⊿⊿⊿8＇第二緩和曲線和第二直線上坐標計算判定Lbl28Rec(Q-H,F+180)8＇第一直線上中樁坐標增量計算X=W+I:Y=K+J8＇中樁坐標值計算Rec(S,F+180-(180-E)U)8＇第一直線上與中樁同一斷面的邊樁增量計算X=X+I:Y=Y+J8＇邊樁坐標值計算S=SU8＇邊長條件判定Goto88Lbl38＇進入第一緩曲線段計算Z=H-A8＇待求點至ZH點的距離O=90Z^2÷(πRV)8＇所求點

5、緩曲線對應的圓心角X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4)8＇緩曲線上ZH點至待求的支距X坐標Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5)8＇緩曲線上ZH點至待求點的支距Y坐標Lbl78Rec(X,F)8X=Z[1]+I:Y=Z[2]+J8Rec(Z,F+90G)8＇把中樁支距坐標轉(zhuǎn)換成測量統(tǒng)一坐標X=X+I:Y=Y+J8Rec(S,F+OG+EU)8＇曲線邊樁坐標增量計算X=X+I:Y=Y+J8＇坐標計算結(jié)果S=SU8＇邊長條件Goto88Lbl48＇進入主圓計算部

6、分Z=H-A-V÷28＇曲線上待求點到HY點的里程O=180Z÷(Rπ)8＇待求點方位角所對應的圓心角X=RsinO+(V÷2-V^3÷(240R^2))8Z=R(1-cosO)+(V^2÷(24R)-V^4÷(2688R^3))8＇主圓部分待求點支距坐標XYGoto78Lbl58＇進入第二緩和曲線計算Z=D-H8＇曲線上待求點到HZ點的里程O=90Z^2÷(πRV)8＇待求點方位角所對應的圓心角X=Z-Z^5÷(40ZR^2V^2)+^9÷(3456R^4V^4)8Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240

7、R^5V^5)8＇待求點支距坐標XYRec(X,F+GN+180)8X=Z[3]+I:Y=Z[4]+J8＇把中樁支距坐標轉(zhuǎn)換成測量統(tǒng)一坐標Rec(Z,F+GN+180-90G)8X=X+I:Y=Y+J8Rec(S,F+GN+180-OG-(180-E)U)8＇曲線邊樁坐標增量計算X=X+I:Y=Y+J8＇坐標計算結(jié)果S=SU8Goto88Lbl68＇進入第二直線段計算部分Rec(H-D+T,F+GN)8＇中樁坐標增量計算X=W+I:Y=K+J8＇中樁坐標計算結(jié)果Rec(S,F+GN+EU)8＇邊樁坐標增量計算X=X+I:Y=Y+J8＇邊樁坐標計

8、算結(jié)果S=SU8Goto88?Lbl88X=X◢8＇顯示坐標計算結(jié)果Y=Y◢8M≠0=>Goto9:≠>Goto0⊿8?Lbl98＇進入放樣部分計算P