5800計(jì)算器普通線路全線坐標(biāo)中邊樁計(jì)算程序2

1、5800計(jì)算器全線坐標(biāo)計(jì)算放樣程序（修改版）(2009-09-18 14:54:42)標(biāo)簽：5800邊樁 方位角 21g（克）愛(ài)情 醉寒 qq520095450- 測(cè)量經(jīng)驗(yàn)總結(jié) 雜談  分類：測(cè)量放樣5800計(jì)算器全線坐標(biāo)計(jì)算放樣程序（修改版）                        

2、;                  “XLZBJSCX”LB1  0 CLS : FIX 4 : 30DIM Z “XHS="?G(后視點(diǎn)X):"YHS="?L(后視點(diǎn)Y):"XZJ="?M(置鏡點(diǎn)X):"YZJ="?N(置鏡點(diǎn)Y):Pol(G-M,L-N):"DH=":I(后視距)J<0=>J

3、+360J:"FH=":JDMS(后視方位角)LB1  1 “K=”?K :（計(jì)算里程）IF  K<本段曲線終點(diǎn)里程  AND  K上段曲線終點(diǎn)里程：THEN  本段終點(diǎn)里程Z1 : 上段曲線終點(diǎn)里程Z2 ：1O （注：左偏曲線輸入-1O,右偏曲線輸入1O）: 偏角A：半徑R : 第一緩和曲線Z6 : 第二緩和曲線Z7 : 交點(diǎn) XB :交點(diǎn) YC : 小里程向交點(diǎn)方位角E : 交點(diǎn)向大里程方位角F : GOTO  2 : IFEND（曲線段分段輸入

4、）補(bǔ)充直線段輸入如下IF K<本段直線終點(diǎn)里程 AND  K本段直線起點(diǎn)里程:THEN 1O:本段直線終點(diǎn)里程Z3:終點(diǎn)XZ16:終點(diǎn)YZ17:方位角E:GOTO 4:IFENDLB1  2 （曲線要素計(jì)算）Z6/2- Z63/(240*R2)+ Z65/(34560*R4) Z8   （M1）Z7/2- Z73/(240*R2)+ Z75/(34560*R4) Z9   （M2）Z62/(24*R)- Z64/(2688*R3) Z10   （P1）Z72/(24*R)- Z74/(26

5、88*R3) Z11   （P2）*A*R/180+0.5*( Z6+ Z7)S    （曲線總長(zhǎng)）90* Z6/(R*) Z14     （第一緩和曲線總偏角）90* Z7/(R*) Z15 （第二緩和曲線總偏角,可以省略）Z8（R+Z10)TAN(A/2)-(Z10-Z11 )/SIN AZ12   (切線T1)Z9（R+Z11)TAN(A/2)+(Z10-Z11 )/SIN AZ13   (切線T2)B+ Z12*COS (E+180) Z16   

6、（ZH點(diǎn)X）C+ Z12*SIN(E+180) Z17    （ZH點(diǎn)Y）Z1-SZ3        (ZH點(diǎn)里程)Z3+ Z6Z4    (HY點(diǎn)里程)Z1- Z7Z5    (YH點(diǎn)里程)GOTO 3 LB1  3 (判斷里程點(diǎn)與曲線關(guān)系)IF  KZ3  AND  K> Z2 : THEN  GOTO  4 : IFEND IF 

7、60;KZ4  AND  K> Z3 : THEN  GOTO  5 : IFEND IF  KZ5  AND  K> Z4 : THEN  GOTO  6 : IFEND IF  KZ1  AND  K> Z5 : THEN  GOTO  7 : IFEND LB1  4 （里程

8、小于直緩點(diǎn)直線獨(dú)立坐標(biāo)）K- Z3 X : 0Y : ET : PROG“TYZBCX” ：GOTO  1 LB1  5 （第一緩和曲線獨(dú)立坐標(biāo)）K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) X H3/(6*R* Z6)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IF  O>0  ：THEN  T +ET : ELSE  E-T T : T<0=>360+TT : IFEND PROG“

9、TYZBCX” ：GOTO  1 LB1 6 （圓曲線獨(dú)立坐標(biāo)）K- Z4 H H*180/( R*)+ Z14T R*SIN T+ Z8X R*(1-COS T)+ Z10Y IF  O>0  ：THEN  T +ET : ELSE  E-T T : T<0=>360+TT : IFEND PROG“TYZBCX” ：GOTO  1 LB1 7 （第二緩和曲線獨(dú)立坐標(biāo)）Z1 -K  H H-H5/(40*R2* Z72)+H9/(345

10、6*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS A+ Z12-U*COS A-V*SIN AX Z13*SIN A-U*SIN A+V*COS AY IF  O>0  ：THEN  F-TT : T<0=>360+TT : ELSE  F+T T : IFEND PROG“TYZBCX” ：GOTO  1 子程序：“TYZBCX”    （統(tǒng)一坐標(biāo)計(jì)算）IF &

11、#160;O<0  : THEN  -YY : IFEND “QXJ=” :T    （計(jì)算里程點(diǎn)切線方位角，可以不顯示）Z16+X*COS E-Y*SIN EZ18 Z17+X*SIN E+Y*COS EZ19 “XI=” : Z18    （中線X）“YI=” : Z19    （中線Y）Pol(Z18-M,Z19-N):"DI=":I（中樁放樣距）J<0=>J+360J:"FI=":JDMS（中樁放樣方位角）“PJ=”?P     (輸入邊樁與線路夾角，左-右+)“PD=”?D    （輸入邊樁距）Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”