5800计算器交点法反算程序

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

1、5800计算器交点法反算程序Fix3Lbi0:”X”?X:”Y”?Y:Prog”SJK”0.5L-L3÷(240R2)→Z[1]:计算第一缓和曲线增量0.5Q-Q3÷(240R2)→Z[2]:计算第二缓和曲线增量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))）÷Si

2、n(Abs(A))→Z[4]计算第二切线长T-Z[3]→G：RπAbs(A)÷180+（L+Q）÷2+G→MIfG＜M:then1→P：F→U:ifendifA>O:then1→Z[5]：Else-1→Z[5]:ifendPOL(X-N,Y-E)计算出IJG+PZ[3]+Rec(I,J-U)→S:J→DifS≤G:thenS→K:D→Z[19]:Goto3:ifendL2÷(24R)-L4÷(2688R3)→W:90L÷Rπ→B:Pol(P(S-G)-Z[1],Z[5]D-R-W):IfJ≥B-90:thenGoto1:if

3、endP(S-G)+P(S-G)5÷40R2L2→Z[18]Z[18]3÷6RL→HifA>O:thenD-H→W：Else-D-H→W:ifendifRL≤2WZ[18]:thenRL÷W→Z[18]:Else（RL-√(R2L2-2RLWZ[18])）÷W→Z[18]:ifendG+PZ[18]→KK-PZ[18]5÷40R2L2→VZ[18]3÷6RL→H√((S-V)2+(Z[5]D-H)2)→WIfZ[5]D≥H:thenZ[5]W→Z[19]:Goto3：ElseZ[5]（-W）→Z[19]：Goto3:ifen

4、dLbi1:(90+J)π÷180-L÷2R→JIfRJ≥P(M-G)-L-Q:thenGoto2:ifendG+P(L+JR)→K:Z[5](R-I)→Z[19]Goto3Lbi2:Pol(P(S-G)-Z[3],Z[5].D)M-P(Z[4]-Rec(I,J-C)→OIfO＞M:thenO→K:Z[5]J→Z[19]:Goto3:IfendP(M-0)+P(M-O)5÷40R2Q2→Z[18]:Z[18]3÷6RQ→H:J-H→WIfRQ≤2WZ[18]:thenRQ÷W→Z[18]:Else(RQ-√(R2Q2-2RQ

5、WZ[18]))÷W→Z[18]:IfendM-PZ[18]→K:K+PZ[18]5÷40R2Q2→VZ[18]3÷6RQ→H√((0-V)2+(J-H)2)→WIfJ≥H:thenZ[5]W→Z[19]:ElsethenZ[5](-W)→Z[19]:ifendLbi3:“DKP=“:K▲“PJ=“:Z[19]▲GotoO