工程测量5800程序坐标正反算

正算主程序[KB-MN]

1→DimZ:“1,2,3,4,5”?Z:“1,2,3”?R:Prog“DX-1”:?X:?Y:Z→Z[1]

Lbl 1:Fix 3:?K:?B:90→A

Z[1]=1＝＞Prog“PQ-1”

Z[1]=2＝＞Prog“PQ-2”

Z[1]=3＝＞Prog“PQ-3”

Prog“PQXY”:M-X→I:N-Y→J:Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 8,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 6,4,N◢

Cls:Z[1]=1＝＞Prog“1BG”

Z[1]=2＝＞Prog“2BG”

Z[1]=3＝＞Prog“3BG”

Cls:Goto 1

反算主程序[MN-KB]

1→DimZ:“1,2,3,4,5”?Z:Z→Z[1]:?K

Lbl 0:Fix 3:?M:?N:M→D:N→E

Lbl 1:90→A:0→B

Z[1]=1＝＞Prog“PQ-1”

Z[1]=2＝＞Prog“PQ-2”

Z[1]=3＝＞Prog“PQ-3”

Prog“PQXY”:Pol(D-M+×10-9,E-N+×10-9:Isin(O-J→A:Icos(O-J→B

If Abs(A)＞0.001:Then K+A→K:Goto 1:Else D→M:E→N:0→E:Cls:Locate 1,1,“K=”:Locate 6,2, K:Locate 1,3,“B=”:Locate 8,4,B◢

IfEnd:Goto 0

子程序[PQXY]

G÷Abs(G→L:F2÷(24R→P:F÷2-F＾(3)÷(240R2→Q:If R≤100:Then P-F＾(4)÷(2688R＾(3))+F＾(6)÷(506880R＾(5))-F＾(8)÷(154828800R＾(7→P:Q+F＾(5)÷(34560R＾(4))-F＾(7)÷(8386560R＾(6))+F＾(9)÷(3158507520R＾(8→Q:IfEnd:Q+(R+P)Ltan(G÷2→T:πRGL÷180+F→I:If K≤H-T:Then K-H→J:Goto 1:IfEnd

If K≤H-T+F:Then K-H+T→J:1→S:Goto 2:IfEnd

If K≤H-T+I-F:Then K-H+T→J:L→S:Goto 3:IfEnd

If K＜H-T+I:Then H-T+I-K→J:C+G→C:-1→S:Goto 2:IfEnd

If K≥H-T+I:Then K-H-I+2T→J:C+G→C:Goto 1:IfEnd

Lbl 1:U+Jcos(C→M:V+Jsin(C→N:C→O:Goto 5

Lbl 2:C+90J2SL÷(πRF→O:J-T-J＾(5)÷(40R2F2→W:J＾(3)÷(6RF)-J＾(7)÷(336R＾(3)F＾(3→L:If R≤100:Then W+J＾(9)÷(3456(RF)＾(4))-J＾(13)÷(599040(RF)＾(6))+J＾(17)÷(175472640(RF)＾(8→W:L+J＾(11)÷(42240(RF)＾(5))-J＾(15)÷(9676800(RF)＾(7))+J＾(19)÷(353009664(RF)＾(9→L:IfEnd:SW→W:LG÷Abs(G→L:Goto 4

Lbl 3:180(J-0.5F) ÷(πR→O:Q-T+Rsin(O→W:L(P+R(1-cos(O→L:C+OS→O

Lbl 4:U+Wcos(C)-Lsin(C→M:V+Wsin(C)+Lcos(C→N

Lbl 5: O+A→O:M+Bcos(O→M:N+Bsin(O→N

真似されているQQ:79868685

子程序[BG1]

H+ZAbs(B→A:If K≤C:Then A→H:Else If K≤C+F:Then K-C→S:Prog“BG2”:Else If K≤D-F:Then 0.01I→Z:H-GB Z→H:GB＞0＝＞-Z→Z:Else If K≤D:Then D-K→S:Prog“BG2”:Else K＞D＝＞A→H:IfEnd:IfEnd:IfEnd:IfEnd

子程序[BG2]

-2ZF÷(0.01I-Z→Q:If GB＞0:Then If S＜Q:Then A→H:Goto 1:IfEnd:IfEnd:Z+S÷F(0.01I-Z→Z:H-GB Z→H:GB＞0＝＞-Z→Z

Lbl 1

子程序[J-T]

If B=0:Then 0→T:Else If GB＞0:Then If K≤C:Then 0→T:Else If K≤C+F:Then SJ÷F→T:Else If K≤D-F:Then J→T:Else If K≤D:Then SJ÷F→T:Else K＞D＝＞0→T:IfEnd:IfEnd:IfEnd:IfEnd:Else 0→T:IfEnd:IfEnd

子程序[BG]

If M＞N:Then 1→O:Else -1→O:IfEnd:0.01M→M:0.01N→N:RAbs(M-N)÷2→G:Abs(K-W→Q:If K≤W:Then A-QM→H:Q＜G＝＞H-O(K-W+G)2÷(2R→H:Else A+QN→H:Q＜G＝＞H-O(W+G-K)2÷(2R→H:IfEnd

数据库子程序[PQ-1]

If K≤第一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V:缓和曲线长度→F:道路转角（右转时输入为正值，左转时输入负值）→G:交点桩号→H:半径→R:Return:IfEnd

If K≤下一条弯道终点桩号:Then曲线起点切线方位角→C:交点X坐标→U:交点Y坐标→V:缓和曲线长度→F:道路转角（右转时输入为正值，左转时输入负值）→G:交点桩号→H:半径→R:Return:IfEnd

超高参数子程序[PQ1]

-设计路面横坡坡度→Z（例:横坡坡度为2%时，输入-0.02→Z）

If K≤第一条有超高的曲线的HZ点桩号:Then第一条有超高的曲线的ZH点桩号→C:第一条有超高的曲线的HZ点桩号→D:缓和曲线长度→F:±全超高值→I（左转时全超高横坡坡度为6%时，输入-6→I）:全加宽值→J（全加宽1.8米时,输入1.8→J）:Goto 1:IfEnd

If K≤第二条有超高的曲线的HZ点桩号:Then 第二条有超高的曲线的ZH点桩号→C:第二条有超高的曲线的HZ点桩号→D:缓和曲线长度→F:±全超高值→I（右转时全超高横坡坡度为4%时，输入4→I）:全加宽值→J（全加宽1.2米时,输入1.2→J）:Goto 1:IfEnd

……

If K≤第七条有超高的曲线的HZ点桩号:Then 第七条有超高的曲线的ZH点桩号→C:第七条有超高的曲线的HZ点桩号→D:缓和曲线长度→F:±全超高值→I（右转时全超高横坡坡度为4%时，输入4→I）:全加宽值→J（全加宽1.2米时,输入1.2→J）:Goto 1:IfEnd

If K＞第七条有超高的曲线的HZ点桩号:Then 第八条有超高的曲线的ZH点桩号→C:第八条有超高的曲线的HZ点桩号→D:缓和曲线长度→F:±全超高值→I（左转时全超高横坡坡度为6%时，输入-6→I）:全加宽值（全加宽1.8米时,输入1.8→J）:Goto 1:IfEnd

Lbl 1:I÷Abs(I→G: Abs(I→I

真似されているQQ:79868685