工程测量5800程序.docx

正算主程序[KB-MN] “1,2,3,4,5”?Z:“1,2,3”?R:Prog“DX-1”:?X:?Y Lbl 1:Fix 3:?K:?B:90→A Z=1＝＞Prog“PQ-1” Z=2＝＞Prog“PQ-2” Z=3＝＞Prog“PQ-3” Z=4＝＞Prog“PQ-4” Z=5＝＞Prog“PQ-5” Prog“PQXY”:M-X→I:N-Y→J:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 7,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 6,4,N◢ Cls:Goto 1 反算主程序[MN-KB] “1,2,3,4,5”?Z:?K Lbl 0:Fix 3:?M:?N:M→D:N→E Lbl 1:90→A:0→B Z=1＝＞Prog“PQ-1” Z=2＝＞Prog“PQ-2” Z=3＝＞Prog“PQ-3” Z=4＝＞Prog“PQ-4” Z=5＝＞Prog“PQ-5” 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:Cls:Locate 1,1,“K=”:Locate 9,2, K:Locate 1,3,“B=”:Locate 10,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子程序[C] I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J 数据库子程序[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 导线数据库子程序[DX-1] If R=1:Then 导线点G1的X坐标→X:导线点G1的Y坐标→Y:IfEnd If R=2:Then 导线点G2的X坐标→X:导线点G2的Y坐标→Y:IfEnd If R=2.1:Then 导线点G2-1的X坐标→X:导线点G2-1的Y坐标→Y:IfEnd If R=2.2:Th