5800坐标正反算优化竖曲线.docxVIP

正算主程序[KB-MN]1→DimZ:“1,2,3,4,5”?Z:“1,2,3”?R:Prog“DX-1”:?X:?YLbl 1:Fix 3:X→S:?K:?B:90→A:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:S→X: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]→U:?U:U→Z[1]Z=1＝＞Prog“SQ1”Z=2＝＞Prog“SQ2”Z=3＝＞Prog“SQ3”Z=4＝＞Prog“SQ4”Z=5＝＞Prog“SQ5”Prog“BG”:H-U-设计路面横坡(正值)乘Abs(B→V:Cls:Locate 1,3,“V=”:Locate3,4, V◢Cls:Goto1反算主程序[MN-KB]“1,2,3,4,5”?Z:?KLbl 0:Fix 3:?M:?N:M→E:N→QLbl 1:90→A:0→B:0→P:0→RZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:Pol(E-M+×10-9,Q-N+×10-9:Isin(O-J→A:Icos(O-J→BIf Abs(A)＞0.001:Then K+A→K:Goto 1:Else E→M:Q→N:Cls:Locate 1,1,“K=”:Locate 6,2, K:Locate 1,3,“B=”:Locate 8,4,B◢IfEnd:Goto 0数据库子程序[YS-1]If K＜线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEndIf K＜下一条线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEnd子程序[C]I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J子程序[ZDYS]P=0＝＞×1045→P:R=0＝＞×1045→R:0.5(1÷R -1÷P)÷F→D:K-O→XU+∫(cos(C+180(X÷P+DX2)÷π,0,X)→MV+∫(sin(C+180(X÷P+DX2)÷π,0,X)→NC+A+180÷π(X÷P+DX2→O:M+Bcos(O→M:N+Bsin(O→N导线数据库子程序[DX-1]If R=1:Then 导线点G1的X坐标→X:导线点G1的Y坐标→Y:IfEndIf R=2:Then 导线点G2的X坐标→X:导线点G2的Y坐标→Y:IfEndIf R=2.1:Then 导线点G2-1的X坐标→X:导线点G2-1的Y坐标→Y:IfEndIf R=2.2:Then 导线点G2-2的X坐标→X:导线点G2-2的Y坐标→Y:IfEndIf R=3:Then 导线点G3的X坐标→X:导线点G3的Y坐标→Y: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竖曲线数据库子程序[SQ1]If K＞0:Then变坡点桩号→W:变坡点高程→A:半径→R:前坡→M:后坡→N:IfEndIf K＞下一竖曲线起点桩号:Then 变坡点桩号→W:变坡点高程→A:半径→R:前坡→M（例:坡度为下坡-2.12%时，输入-2.12→M）:后坡→N（上坡为正，下坡为负）:IfEnd……正算主程序[KB-MN]输入：1,2,3,4,5---选择待正算的线路 1,2,3,4---选择导线点X---测站X坐标 Y---测站Y坐标 K---桩号 B---距中（左负右正中零）结果：J=测站到放样点的方位角 I=测站到放样点的平距