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

5800计算器交点法正算程序 Fix3 Lbi0:”DKP=”? M Prog”SJK” 0.5L-L3÷(240R2)→Z[1]: 0.5Q-Q3÷(240R2)→Z[2]:计算第二缓和曲线增量 180÷Rπ→Z： Z[1]+（R+ Q2÷(24R)- Q4÷(2688R3)-( R+ L2÷(24R)- L4÷(2688R3)).Cos(Abs(A))））Lbi1:M- Z[8] →G:计算逐桩缓和曲线长 √（（G- G 5÷（40R2L2）））Lbi2:M- Z[6] →G:计算圆曲线长 R(1-Cos(ZL÷2+ZG))+ L2÷24R- L4÷2688 R3→W: √(W2+(R Sin(ZL÷2+ ZG)+ Z[1])2) →D: F+P tan-1(W+ (R Sin(ZL÷2+ ZG)+ Z[1] )) →C: F+ PZL÷2+ PZG→H Lbi3:”Xp=”:N+ Z[3]Cos(F-180)+DCos(C) →X▲ ”Yp=”:E+ Z[3]Sin(F-180)+DSin(C) →Y▲ Lbi4:”PJ=”? S IfS=0:then Goto O: ifend ”BX=”:X+ SCos(H+90) →Z[20]▲ ”BY=”:Y+ S Sin (H+90) →Z[21]▲ IfS≠0:then Goto 4: ifend Lbi5: Z[11]-M →G: (Z[4]-G+ G 5÷（40R2Q2）））Lbi6: T-M→D: (改动) F+180→C: F→H: Goto 8 Lbi7: Z[4]+M- Z[11] →D: F+A→C: C→H Lbi8: ”XP=”:N+ DCos(C) →X▲ ”XP=”:E+ DSin(C) →Y▲ Goto 4