《5800各种线形开口、坡脚计算程序》由会员分享，可在线阅读，更多相关《5800各种线形开口、坡脚计算程序（5页珍藏版）》请在金锄头文库上搜索。
1、1十三、单圆曲线中边桩(开口、坡脚线)坐标计算程序文件名: ZYYZKPXZB1、ZY=？K:X-ZY=？A:Y-ZY=？B:FZY=？F:=？O:R=？R2、 If O0: Then 1S: Else -1S: IfEnd 备注: O 为 号3、 Lbi 1 4、P=？P:H=?H:G=?G 备注: P 为待求点桩号5、 180(PK)R Q 备注: Q 为 P 点的圆心角6、 F+QS I 备注: I 为 P 点切线方位角7、 RsinQ N 8、R(1CosQ)E 备注: N 、E 为 P 点支距9、X=:A+NcosF-SESinFX10、Y=:B+NSinF+SECosFY 备注:
2、X 、Y 为 P 点坐标边桩坐标 12、 If H-G0:ThenIL=:29+(H-G)1.5W13、 ElseIL=:(H-G)-30W 14、 IfEnd15、If H-G0:ThenIR=:(H-G)1.5+33D16、ElseIR=:(H-G)-34D 17、IfEnd18、XL=:X+Abs(W)Cos(I-90)J19、YL=:Y+Abs(W)Sin(I-90)T 备注: J 、T 为左边桩坐标20、XR=:X+Abs(D)Cos(I+90)U21、YR=:Y+Abs(D)Sin(I+90)M 备注: U 、M 为右边桩坐标22、OK-THANK 23、 Goto 12十四、直线
3、中、边桩(开口、坡脚线)坐标计算程序文件名:ZXKPXZBX0=?A: Y0=?B: K0=?C: F=?F1、LbI 12、P=?P:H=?H:G=?G3、XP=:A+(P-C)Cos(F)X4、YP=:B+(P-C)Sin(F)Y5、 If H-G0:ThenIL=:29+(H-G)1.5L6、 ElseIL=:(H-G)-30L 7、IfEnd8、 If H-G09、 ThenIR=:(H-G)1.5+34R10、ElseIR=:(H-G)-34R 11、IfEnd12、XL=:X=Abs(L)Cos(F-90) J13、YL=:Y=Abs(L)Sin(F-90) K14、XR=:X+A
4、bs(R)Cos(F+90) U15、YR=:Y+Abs(R)Sin(F+90) M16、OK-THANK17、Goto 13十五、第一缓和曲线(ZHHY）中、边桩(开口、坡脚线)坐标计算程序文件名:ZHHYKPXZB1、ZH=？K:XZH=？A:YZH=？B:FZH=？F: R=？R:Ls1=？C:=？O2、 If OO: Then 1S:Else -1S:IfEnd 3、 Lb1 1 4、 P=？P5、 偏角 30(P-K)2/(RC) E 6、 弦长 (P-K)-(P-K) 5/90(RC)2Z7、 弦方位角ZHPXF=：F+ESQ 8、 B P 90(P-K)2 /(RC)U9、 P
5、点切线方位 PQF=：F+USI10、 中桩坐标 X=：A+ZCosQX Y=：B+ZSinQY 12、H=?H:G=?G13、If H-G0:ThenIL=:29+(H-G)1.5W14、ElseIL=:(H-G)-30W 15、IfEnd16、If H-G0:ThenIR=:(H-G)1.5+33D17、ElseIR=:(H-G)-34D 18、IfEnd19、 左边桩坐标 XL=：X+Abs(W)Cos(I-90)J YL=：Y+Abs(W)Sin(I-90)T20、 右边桩坐标 XR=：X+Abs(D)Cos(I+90)L 21、 YR=：Y+Abs(D)Sin(I+90)M22、 G
6、oto 1 大约 230 步注：A路线前进方向 ZHYH，左“-” 、右“+”输入一个代正负号的任意数4十六、第二缓和曲线(YHHZ)中、边桩(开口、坡脚线)坐标计算程序文件名：YHHZKPXZBHZ=？K:XHZ=？A:YHZ=？B:FHZ=？F: R=？R:Ls2=？C:=？OIf OO : Then 1S ：Else -1S : IfEnd 1、 Lb1 1 2、 P=？P3、 偏角 30(K-P)2/(RC)E 4、 弦长 (K-P)-(K-P) 5/90(RC)2Z5、 弦方位角PXYHF: F + ESQ6、 B P 90(K-P)2 /(RC)U7、 P 点切线倒方位 PQF=：
7、F + USI8、 中桩坐标 X=：A+ZCosQX Y=：B+ZSinQY 12、 H=?H:G=?G13、 If H-G0:ThenIL=:29+(H-G)1.5W14、 ElseIL=:(H-G)-30W 15、IfEnd16、 If H-G0:ThenIR=:(H-G)1.5+33D17、 ElseIR=:(H-G)-34D 18、IfEnd10、 左边坐标 XL=：X+Abs(W)Cos(I+90)J YL=：Y+Abs(W)Sin(I+90)T11、 右边坐标 XR=：X+Abs(D)Cos(I-90)L YR=：Y+Abs(D)Sin(I-90)M12、 Goto 1 大约 238 步注：1、第二缓和曲线需倒算，倒算时显示的左侧边桩，实为路线前进方向的右侧边桩；2、 “FHZYH”= 图纸上 HZ180，即 HZ 点切线去 YH 的方位。3、 A路线前进方向 YH-HZ，左“+” 、右“-”输入一个代正负号的任意数5
