5800各种线形开口-坡脚计算程序.docVIP

PAGE  PAGE 5 十三、单圆曲线中边桩(开口、坡脚线)坐标计算程序 文件名: ZY－YZ—KPX—ZB 1、＂ZY=＂？K:＂X--ZY=＂？A:＂Y--ZY=＂？B: ＂F—ZY=＂？F:＂±=＂？O:＂R=＂？R 2、 If O0: Then 1→S: Else -1→S: IfEnd 备注: O为 ±号 3、 Lbi 1 4、＂P=＂？P:＂H=＂?H:＂G=＂?G 备注: P为待求点桩号 5、 180(P－K)／πR →Q 备注: Q为P点的圆心角 6、 F+QS →I 备注: I为P点切线方位角 7、 RsinQ →N 8、R(1－CosQ)→E 备注: N 、E为P点支距 9、＂X=＂:A+NcosF-SESinF→X◢ 10、＂Y=＂:B+NSinF+SECosF→Y◢ 备注: X 、Y为P点坐标边桩坐标 12、 If H-G≥0:Then＂I→L=＂:29+(H-G)×1.5→W◢ 13、 Else＂I→L=＂:(H-G)-30→W◢ 14、 IfEnd 15、If H-G≥0:Then＂I→R=＂:(H-G)×1.5+33→D◢ 16、Else＂I→R=＂:(H-G)-34→D◢ 17、IfEnd 18、＂XL=＂:X+Abs(W)Cos(I-90)→J◢ 19、＂YL=＂:Y+Abs(W)Sin(I-90)→T◢ 备注: J 、T为左边桩坐标 20、＂XR=＂:X+Abs(D)Cos(I+90)→U◢ 21、＂YR=＂:Y+Abs(D)Sin(I+90)→M◢ 备注: U 、M为右边桩坐标 22、＂OKTHANK＂◢ 23、 Goto 1 十四、直线中、边桩(开口、坡脚线)坐标计算程序 文件名:ZX—KPX—ZB ＂X0=＂?A: ＂Y0=＂?B: ＂K0=＂?C: ＂F=＂?F 1、LbI 1 2、＂P=＂?P:＂H=＂?H:＂G=＂?G 3、＂XP=＂:A+(P-C)Cos(F)→X◢ 4、＂YP=＂:B+(P-C)Sin(F)→Y◢ 5、 If H-G≥0:Then＂I→L=＂:29+(H-G)×1.5→L◢ 6、 Else＂I→L=＂:(H-G)-30→L◢ 7、IfEnd 8、 If H-G≥0 9、 Then＂I→R=＂:(H-G)×1.5+34→R◢ 10、Else＂I→R=＂:(H-G)-34→R◢ 11、IfEnd 12、＂XL=＂:X=Abs(L)Cos(F-90) →J◢ 13、＂YL=＂:Y=Abs(L)Sin(F-90) →K◢ 14、＂XR=＂:X+Abs(R)Cos(F+90) →U◢ 15、＂YR=＂:Y+Abs(R)Sin(F+90) →M◢ 16、＂OKTHANK＂◢ 17、Goto 1 十五、第一缓和曲线(ZH→HY）中、边桩 (开口、坡脚线)坐标计算程序 文件名:ZH—HY—KPX—ZB 1、＂ZH=＂？K:＂X—ZH=＂？A:＂Y—ZH=＂？B:＂F—ZH=＂？F: ＂R=＂？R:＂Ls1=＂？C:＂±=＂？O 2、 If OO: Then 1→S:Else -1→S:IfEnd 3、 Lb1 1 4、 ＂P=＂？P 5、 偏角30(P-K)2/(πRC)→ E 6、 弦长 (P-K)-(P-K)5/90(RC)2→Z 7、 弦方位角＂ZH→PX—F=＂：F+ES→Q 8、 BP 90(P-K)2 /(πRC)→U 9、 P点切线方位 ＂PQ—F=＂：F+US→I 10、 中桩坐标 ＂X=＂：A+ZCosQ→X◢ ＂Y=＂：B+ZSinQ→Y◢ 12、＂H=＂?H:＂G=＂?G 13、If H-G≥0:Then＂I→L=＂:29+(H-G)×1.5→W◢ 14、Else＂I→L=＂:(H-G)-30→W◢ 15、IfEnd 16、If H-G≥0:Then＂I→R=＂:(H-G)×1.5+33→D◢ 17、Else＂I→R=＂:(H-G)-34→D◢ 18、IfEnd 19、 左边桩坐标 ＂XL=＂：X+Abs(W)Cos(I-90)→J◢ ＂YL=＂：Y+Abs(W)Sin(I-90)→T◢ 20、 右边桩坐标 ＂XR=＂：X+Abs(D)Cos(I+90)→L