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

线路点位中桩及边桩坐标计算程序 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} HA=Goto 1:≠＞H＜B=Goto 2: ≠＞HC=Goto 3: ≠＞HD=Goto 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”为左边值，