线路点位中桩及边桩坐标计算程序

线路点位中桩及边桩坐标计算程序

XY

{RVNGQWKF}

M=V／２-V3／（240R2）

P=V2／（24R）-V4／（2688R3）

L=πRN/180+V

T=（R+P）tan(N/2)+M

A=Q-T：B=A+V：D=A+L：C=D-V

Z[1]=W+Tcos(F+180)

Z[2]=K+Tsin(F+180)

Z[3]=W+Tcos(F+GN)

Z[4]=K+Tsin(F+GN)

Lbl 0

{HSE}

HGoto 1:≠＞H＜B=>Goto 2:≠＞HGoto 3:≠＞HGoto 4:≠＞Goto 5△△△△△

Lbl 1

X“XZ1”=W+（Q-H）cos(F+180)▲

Y“YZ1”=K+（Q-H）sin（F+180）▲

X=X“XZ1”+Scon（F+180-（180-E））▲

Y=Y“YZ1”+Ssin（F+180-（180-E））▲

Goto 0

Lbl 2

Z=H-A

O=90Z2／（πRV）

X=Z-Z5/（40R2V2）+Z9/（3456R4V4）

Z=Z3/（6RV）-Z7/（336R3V3）+Z11/（42240R5V5）

Rec(X，F)

X=Z[1]+I：Y=Z[2]+J

Rec(X，F+90G)

X“XF1”=X+I▲

Y“YF1”=Y+J▲

X=X“XF1”+Scos(F+OG+E)▲

Y=Y“YF1”+Ssin(F+OG+E)▲

Goto 0

Lbl 3

Z=H-A-V

T=180V/(2πR）

O=180Z/（Rπ）+T

X=RsinO+M

Z=(1-conO)R+P

Rec(X，F)

X=Z[1]+I：Y=Z[2]+J

Rec(Z，F+90G)

X“XY”=X+I▲

Y“YY”=Y+J▲

X=X“XY”+Scos（F+OG+E）▲

Y=Y“YY”+Ssin（F+OG+E）▲

Goto 0

Lbl 4

Z=D-H

O=90Z2/(RVπ)

X=Z-Z5/（40R2V2）+Z9/（3456R4V4）

Z=Z3/（6RV）-Z7/（336R3V3）+Z11/（42240R5V5）

Rec(X，F+GN+180)

X=Z[3]+I：Y=Z[4]+J

Rec(Z，F+GN+180-90G)

X“XF2”=X+I▲

Y“YF2”=Y+J▲

X=X“XF2”+Scos（F+GN+180-OG-E）▲

Y=Y“YF2”+Ssin（F+GN+180-OG-E）▲

Goto 0

Lbl 5

X“XZ2”=Z[3]+（H-D）cos（F+GN）▲

Y“YZ2”=Z[4]+（H-D）sin（F+GN）▲

X=X“XZ2”+Scos（F+GN+E）▲

Y=Y“YZ2”+Ssin（F+GN+E）▲

Goto 0

程序中：R圆曲线半径，V缓和曲线长度，N线路转角（偏角），输入时不考虑符号，G偏角控制条件，左偏角输入-1，右偏角输入1，Q交点里程桩

号，W、K交点的X、Y坐标，F前切线正方位角，XZ1、YZ1前直线

段中桩坐标的X、Y值，XF1、YF1前缓和曲线中桩坐标的X、Y值，

XY、YY圆曲线中桩坐标的X、Y值，XF2、YF2后缓和曲线中桩的X、

Y值，XZ2、YZ2后直线段中桩的X、Y值，X、Y前述各段与中桩同

一横断面的左、右边桩坐标值，H前述各段上任意待求点的里程桩号，

S同一横断面的中—边桩距离，E中—边连线与线路中线夹角，输入

“+E”，计算结果为右边值，“-E”为左边值，