4500直线.docVIP

4500直线、曲线、缓和曲线中桩、边桩计算程序 程序清单及说明：Fi XY （文件名）L1 F:N:G:R:I:Q:J:K 起算要素L2 Defm 4 扩大内存L3 M=I/2-I3/240/R2 M为加设缓和曲线后使切线增长的距离L4 P=I2/24/R/R-I4/2688/R3 P为加设缓和曲线，圆曲线相对于切线的内移量L5 E=(R+P)/COS(N/2)-R 外矢距L6 L=πRN/180+I L为曲线长（含缓和段） L7 T=M+（R+P）tan(N/2) 切线长L8 A=Q-T:B=A+I:D=A+L:C=D-I ZH:HY:HZ:YH 里程桩号L9 Rec(T,F+180) ZH点坐标增量计算L10 Z[1]=V+J:Z[2]=W+K ZH点坐标（V.W坐标增量，计算机内部运算）L11 Rec(T,F+GN) HZ点坐标增量计算L12 Z[3]=V+J:Z[4]=W+K HZ点坐标L13 LbI 0L14 {H,S,E} 待求点要素L15 U=S/AbS(s+10e-19):S=AbS S 左右条件判别L16 H＜A Goto 1 第一段直线上任一点坐标计算L17 H＜B Goto 2 第一段缓和曲线上任一点坐标计算L18 H＜C Goto 3 圆曲线上任一点坐标计算L19 H＜D Goto 4 第二段缓和曲线上任一点坐标计算L20 Goto 5 △△△△ 第二段直线上任一点坐标计算L21 LbI 1 第一段直线坐标计算开始L22 Rec(Q-H,F-180) 中桩坐标增量计算L23 X=J+V:Y=W+K 中桩坐标L24 Rec(S,F+180-(180-E)U) 任何夹角横断面左、右边桩坐标增量计算L25 X=X+V:＂X=＂▲ 第一段直线上任一点坐标计算结果L26 Y=X+W:＂Y=＂▲L27 S=SUL28 Goto 0L29 LbI 2 第一段缓和曲线坐标计算开始L30 Z=H-A 所求点到ZH距离L31 O=90Z2/R/I/π 所求点方位角L32 X=Z-Z5/40/R2/I2+Z9/3456/R4/I4 　　第一缓和曲线上任L33 Z=Z3/6/R/I-Z7/336/R3/I3+Z＂/42240/R5/I5 一点切线支距法坐标计算L34 LbI 6 第一缓和曲线、圆曲线坐标换算计算L35 Rec(X,F)L36 X=Z[1]+V:Y=Z[2]+W 坐标换算计算：支距法坐标换算为L37 Rec(S,F+90G) 线路施工中统一采用的坐标L38 X=X+V:Y=Y+WL39 Rec(S,F+0G+EU) 第一缓和曲线圆曲线边桩坐标增量计算L40 X=X+V:＂X=＂▲ 第一段缓和曲线圆曲线L41 Y=X+W:＂Y=＂▲ 中桩、边桩坐标计算结果L42 S=SUL43 Goto 0L44 LbI 3 圆曲线上任一点切线支距法计算开始L45 Z=H-A-I/2 到HY点长度L46 O=180Z/R/π Z所对中心角L47 X=Z-Z3/6/R2+Z5/120/R4+M 圆曲线上任一点切L48 Z=Z2/2/R-Z4/R3/24+Z6/720/R5+P 线支距法坐标计算L49 Goto 6L50 LbI 4 第二段缓和曲线计算开始L51 Z=D-H 　　到HZ点长度L52 O=90Z2/R/I/π Z所对中心角L53 X=Z-Z5/40/R2/I2+Z9/3456/R4/I4 第二缓和曲线上任一点L54 Z=Z3/6/R/I-Z7/336/R3/I3+Z11/42240/R5/I5 切线支距法坐标计算L55 Rec(X,F+GN+180)L56 X=Z[3]+V:Y=Z[4]+W 坐标换算计算：支距法坐标换算为线路L57 Rec(Z,F+GN+180-90G) 施工中统一采用的坐标L58 X=X+V:Y=Y+WL59 Rec(S,F+GN+180-OG-(180-E)U) 边桩坐标增量计算L60 X=X+V:＂X=＂▲ 第二段缓和曲线任一