5800计算器交点法正算程序

《5800计算器交点法正算程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5800计算器交点法正算程序Fix3Lbi0:”DKP=”?MProg”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))）÷Sin(Abs(A))→Z[3]计算第一切线长Z[2]+（R+L2÷(24R)-L4÷(2688R3)-(R+Q2÷(24R)-Q4÷(2688R3)).Cos(Abs(A))）÷Sin(Abs(A))→Z[4]计算第二切线长(R+L2÷(24R)

2、-L4÷(2688R3))÷Sin(tan-1((R+L2÷(24R)-L4÷(2688R3))÷(Z[3]-Z[1])))-R→Z[19]外距Abs(A)÷Z-(L+Q)÷2→Z[5]圆曲线长Z[5]+L+Q→O：曲线长T-Z[3]→Z[8]：ZH里程（改动）Z[8]+L→Z[6]：HY里程Z[6]+Z[5]÷2→Z[9]:QZ里程Z[8]+O-Q→Z[10]:YH里程Z[8]+O→Z[11]:HZ里程ifA>0:then1→P：Else-1→P:ifendifM≤Z[8]:thenGoto6:ifendifM≤Z[6]:thenGoto1:ifendifM

3、enGoto2:ifendifM≥Z[11]:thenGoto7:ifendifM≥Z[10]:thenGoto5:ifendLbi1:M-Z[8]→G:计算逐桩缓和曲线长√（（G-G5÷（40R2L2）+G9÷(3456R4L4）)2+(G3÷6RL-G7÷336R3L3+G11÷(42240R5L5）)2)→D:计算弦长F+PZG2÷6L→C:计算切线方位角F+PZLG2÷2L2→H:Goto3Lbi2:M-Z[6]→G:计算圆曲线长R(1-Cos(ZL÷2+ZG))+L2÷24R-L4÷2688R3→W:√(W2+(RSin(ZL÷2+ZG)+Z[1])2)→D:F+Pt

4、an-1(W+(RSin(ZL÷2+ZG)+Z[1]))→C:F+PZL÷2+PZG→HLbi3:”Xp=”:N+Z[3]Cos(F-180)+DCos(C)→X▲”Yp=”:E+Z[3]Sin(F-180)+DSin(C)→Y▲Lbi4:”PJ=”?SIfS=0:thenGotoO:ifend”BX=”:X+SCos(H+90)→Z[20]▲”BY=”:Y+SSin(H+90)→Z[21]▲IfS≠0:thenGoto4:ifendLbi5:Z[11]-M→G:(Z[4]-G+G5÷（40R2Q2）+G9÷(3456R4Q4）)Sin(Abs(A))+(G3÷6RQ-G7÷3

5、36R3Q3+G11÷(42240R5Q5))Cos(Abs(A))→K:Z[3]+(Z[4]-G+G5÷（40R2Q2）-G9÷(3456R4Q4))Cos(Abs(A))-(G3÷6RQ-G7÷336R3Q3+G11÷(42240R5Q5))Sin(Abs(A))→I:√(K2+I2)→D:F+Ptan-1(K÷I)→C:F+A-PZQG2÷2Q2→H:Goto3Lbi6:T-M→D:(改动)F+180→C:F→H:Goto8Lbi7:Z[4]+M-Z[11]→D:F+A→C:C→HLbi8:”XP=”:N+DCos(C)→X▲”XP=”:E+DSin(C)→Y▲Goto4