欢迎来到天天文库
浏览记录
ID:40527068
大小:41.50 KB
页数:3页
时间:2019-08-04
《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:ifendifM3、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+Pt4、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÷35、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
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
此文档下载收益归作者所有