5800计算器交点法正算程序.doc

5800计算器交点法正算程序Fix3Lbi0:”DKP=”? MProg”SJK”0.5L-L3(240R2)Z1: 0.5Q-Q3(240R2)Z2:计算第二缓和曲线增量180RZ： Z1+（R+ Q2(24R)- Q4(2688R3)-( R+ L2(24R)- L4(2688R3).Cos(Abs(A)）Sin(Abs(A) Z3计算第一切线长 Z2+（R+ L2(24R)- L4(2688R3)-( R+ Q2(24R)- Q4(2688R3).Cos(Abs(A)） Sin(Abs(A) Z4 计算第二切线长 (R+ L2(24R)- L4(2688R3) Sin(tan-1(R+ L2(24R)- L4(2688R3) ( Z3- Z1)- RZ19外距Abs(A)Z-(L+Q) 2Z5 圆曲线长Z5+ L+QO：曲线长T- Z3 Z8：ZH里程（改动）Z8+ LZ6：HY里程Z6+ Z5 2Z9: QZ里程Z8+ O- QZ10: YH里程Z8+ OZ11: HZ里程ifA0:then1P：Else-1P:ifendifMZ8:then Goto 6: ifendifMZ6:then Goto 1: ifendifMZ10:then Goto 2: ifendifMZ11:then Goto 7: ifendifMZ10:then Goto 5: ifendLbi1:M- Z8 G:计算逐桩缓和曲线长（G- G 5（40R2L2）+ G 9(3456 R4L4）)2+( G 36RL- G 7336 R3L3+ G 11(42240 R5L5）)2) D:计算弦长F+PZ G 26LC:计算切线方位角F+PZL G 22L2H: Goto 3Lbi2:M- Z6 G:计算圆曲线长R(1-Cos(ZL2+ZG)+ L224R- L42688 R3W:(W2+(R Sin(ZL2+ ZG)+ Z1)2) D:F+P tan-1(W+ (R Sin(ZL2+ ZG)+ Z1 ) C:F+ PZL2+ PZGHLbi3:”Xp=”:N+ Z3Cos(F-180)+DCos(C) X ”Yp=”:E+ Z3Sin(F-180)+DSin(C) YLbi4:”PJ=”? SIfS=0:then Goto O: ifend”BX=”:X+ SCos(H+90) Z20”BY=”:Y+ S Sin (H+90) Z21IfS0:then Goto 4: ifendLbi5: Z11-M G:(Z4-G+ G 5（40R2Q2）+ G 9(3456 R4Q4）)Sin(Abs(A)+ ( G 36RQ- G 7336 R3Q3+ G 11(42240 R5Q5)Cos(Abs(A) K:Z3+(Z4-G+G 5（40R2Q2）- G 9(3456 R4Q4)Cos (Abs(A)- ( G 36RQ- G 7336 R3Q3+ G 11(42240 R5Q5) Sin (Abs(A) I:(K2+I2) D: F+P tan-1(KI) C:F+A-PZQ G 22 Q 2H:Goto 3Lbi6: T-MD: (改动)F+180C: FH:Goto 8Lbi7