坐标正反算程序(5800)
反算主程序:FS
1.Prog"SJ"
2.90U÷π÷R→H 第一回旋线所对应圆心角β01
3.90V÷π÷R→T 第二回旋线所对应圆心角β02
4.Rec((Z[3]+Z[4]÷cosK)÷tanK,F+90G):Z[5]+I→Z[11]:Z[6]+J→Z[12]ZH、HZ点垂线交点坐标
5.F-90G→Z[13]ZH点与ZH、HZ点垂线交点连线方位角
6.Z[13]+GH→Z[14]HY点与圆心连线方位角
7.Z[13]+G(K-T)→Z[15]YH点与圆心连线方位角
8.Z[15]+GT→Z[16]HZ点与ZH、HZ点垂线交点连线方位角
9.Lbl 0:?X:?Y
10.Pol(X-Z[11],Y-Z[12])
11.If GIsin(J-Z[13])<0:Then Pol(N-X,E-Y):Rec(I,F-J)
12.Q-I→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢
13.Goto 0:IfEnd 第一直线
14.If GIsin(J-Z[16])>0:Then Pol(X-N,Y-E):Rec(I,J-F-GK)
15.I-Z[4]+D→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢
16.Goto 0:IfEnd 第二直线
17.If GIsin(J-Z[13])>0:Then Pol(X-Z[9],Y-Z[10])
18.If GIsin(J-Z[14])<0:Then Z[13]→P:U→H:A→M:1→T:Z[5]→Z[17]:Z[6]→Z[18]:F→Z[19]:Goto 1:IfEnd 第一缓和曲线
19.If GIsin(J-Z[15])<0:Then Abs(J-Z[14])→Z[20]:Z[20]>360?Z[20]-360→Z[20]
20.B+πRZ[20]÷180→Z: G(R-I)→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢
21.Goto 0:IfEnd 圆曲线
22.If GIsin(J-Z[15])>0:Then Z[16]→P:V→H:D→M:-1→T:Z[7]→Z[17]:Z[8]→Z[18]:F+GK+180→Z[19]:Goto 1:IfEnd 第二缓和曲线
23.Lbl 1:Pol(X-Z[11],Y-Z[12]): Abs(J-P)→J:J>180?J-360→J:JπR÷180→L L为以R为半径,以所求点-(Z[11],Z[12])连
线与P的角度差计算得的弧长
24.Lbl 2:L-L5÷(40R2H2)+L9÷(3456R4H4)-L13÷(599040R6H6)→O
25.L3÷(6RH)-L7÷(336R3H3)+L11÷(42240R5H5)-L15÷(9676800R7H7)→P
26.Rec(sqrt(O2+P2),Z[19]+TGtan-1(P÷O)):Z[17]+I→O:Z[18]+J→P
27.Pol(X-O+0.00001,Y-P+0.00001):Rec(I,J-(Z[19]+90TGL2÷(πRH)))
28.If AbsI>0.001:Then L+I→L:Goto 2:Else M+TL→Z: TJ→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢
29.Goto 0:IfEnd
子程序(曲线要素数据):SJ
1.20→DimZ:?M
2.If M=1:Then *→F:*→K:*→G:*→U:*→V:*→R:*→Q:*→N:*→E:Goto 1:IfEnd
3.If M=2:Then *→F:*→K:*→G:*→U:*→V:*→R:*→Q:*→N:*→E:Goto 1:IfEnd
4.………………
5.Lbl 1:U2÷24÷R-U4÷2688÷R3+U6÷506880÷R5→Z[1]Z[1]第一回旋线内移值P1
6.V2÷24÷R-V4÷2688÷R3+V6÷506880÷R5→Z[2]Z[2]第二回旋线内移值P2
7.(R+Z[2]-(R+Z[1])cosK)÷sinK→M
8.(R+Z[1]-(R+Z[2])cosK)÷sinK→P
9.M+U÷2-U3÷240÷R2→Z[3]Z[3]第一切线长T1
10.P+V÷2-V3÷240÷R2→Z[4]Z[4]第二切线长T2
11.πRK÷180+(U+V)÷2→L 曲线长(Ls1+圆+Ls2)
12.Q-Z[3]→A:A+U→B:A+L→D:D-V→C ZH,HY,HZ,YH里程桩号
13.0→I:0→J:Rec(Z[3],F+180):N+I→Z[5]:E+J→Z[6]ZH点坐标
14.Rec(Z[4],F+GK):N+I→Z[7]:E+J→Z[8]HZ点坐标
15.Rec(sqrt(M2+(R+Z[1])2),F+G(K+tan-1((R+Z[2])÷P))):N+I→Z[9]:E+J→Z[10]Z[9],Z[10] 圆心坐标
注:
F-起始边方位角
K-转角
G-线路左转输-1,右转输1
U-第一回旋线长
V-第二回旋线长
R-圆曲线半径
Q-交点桩号
N,E-交点坐标
Z-待求点桩号
S-偏距(左偏为-,右偏为+)
sqrt为根号
本文档为【坐标反算程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483