可以计算道路上任意点中边桩坐标{T$9?`h~M我还是网上搞来的@alK;\坐标计算程用FX——4800计算机F]O`3e=!文件名：XY计算对称缓和曲线Ko<:Z)PS{RVNGQWKF}"<N*"euHM=V÷2-V3÷（240R2）e8a+2.!&\P=V2÷（24R）-V4÷（2688R3）NIry)'"L=πRN÷180+VNaf0)3q>!T=（R+P）tan(N÷2)+M9sqA=Q-T:B=A+V:D=A+L:C=D-VD;*SnU(9LZ[1]=W+Tcos(F+180)k1~&x$GZ[2]=K+Tsin(F+180)lTgjq:mnZ[3]=W+Tcos(F+GN)+mjy<~\Z[4]=K+Tsin(F+GN)`*R
:gE=Lbi0Cl7xt}I{HSE}!*N@ZL&XH<A⇒Goto1:≠⇒H<B⇒Goto2:≠⇒H<C⇒Goto3:≠⇒H<D⇒Goto4:≠⇒Goto5⊿⊿⊿⊿⊿wlqksG[BLbi1前直线计算kn4`Fa;)OX“XZ1”=W+(Q-H)cos(F+180)◢'-~~-}=sJY“YZ1”=K+(Q-H)sin(F+180)◢|)v,2X=X“XZ1”+Scos(F+180-(180-E))◢3F2w-+LY=Y“YZ1”+Ssin(F+180-(180-E))◢BQMpHSJ_Goto0n/:
33DABLbi2前缓和曲线计算OQJ6e:BGtO=H-A3f{3NzNO=90Z2÷(πRV)kt:!7X=Z-Z5÷(40R2V2)+Z9÷(3456R4V4)Gyc]?mZ=Z3÷(6RV)-Z7÷(336R3V3)+Z11÷(42240R5V5)!+v$)3u9Rec(X,F)*$g-:ILRuZX=Z[1]+I:Y=Z[2]+Jpv|G^,>#Rec(Z,F+90G)zTU0HR3AX“XF1”=X+I◢Q\Vgl(;lXY“YF1”=Y+J◢Nj/x.XX=X“XF1”+Scos(F+OG+E)◢UkFC~17PY=Y“YF1”+Ssin(F+OG+E)◢SE*g;Cvg1Goto0cw<l{ALbi3园曲线计算TB31-()Z=H-A-V<=IFcNT=180V÷(2Rπ)d&>^&>?$zhO=180Z÷(Rπ)+T$%f&a3#X=RsinO+MZv{'MIv&vZ=R(1-cosO)+P(/$^uWjRec(X,F);n;p@Uu[bX=Z[1]+I:Y=Z[2]+J#<x
m.Rec(Z,F+90G)E{vbO/|kfX“XY”=X+I◢y
f,z$CRY“YY”=Y+J◢vP,n(reMX=X“XY”+Scos(F+OG+E)◢!<F

3d`aY=Y“YY”+Ssin(F+OG+E)◢0*v2y*2VGoto0[D1UpLbi4后缓和曲线计算@(lh%@hOZ=D-H!n%j)`0MO=90Z2÷(RVπ)rT>wg1:X=Z-Z5÷(40R2V2)+Z9÷(3456R4V4)Xwtqi@zlEZ=Z3÷(6RV)-Z7÷(336R3V3)+Z11÷(42240R5V5)
qJw_Rec(X,F+GN+180)S8gs-gL#OgX=Z[3]+I:Y=Z[4]+J>-c8q]()lyRec(Z,F+GN+180-90G)3gf1ownCX“XF2”=X+I◢4GM6)"#dY“YF2”=Y+J◢T9&1VWX=X“XF2”Scos(F+GN+180-OG-E)◢w*Ihk)Y=Y“YF2”Ssin(F+GN+180-OG-E)◢\j.:3XrGoto0ctV,Q3'ZLbi5后直线计算~{gqsuCCLX“XZ2”=Z[3]+(H-D)cos(F+GN)◢:H[6Lg\*Y“YZ2”=Z[4]+(H-D)sin(F+GN)◢9ll~~zF99|X=X“XZ2”+Scos(F+GN+E)◢4/)k)gLIY=Y“YZ2”+Ssin(F+GN+E)◢LIdF0XZwK6F)Lu]gxFG"V——缓和曲线长度，不带缓和曲线的输入0s9d_GhT%-R——元曲线半径&VcV$8kN——偏角，输入时不带符号{zFMmPidQ——交点里程桩号3yXY.>'W——交点X坐标4H<lm*!^K——交点Y坐标k;L6R!VF——前直线正方位角2VrwG——判断偏角条件，左偏时输入-1，右偏时输入1&8x-o,H——所求点里程m9Hit8f@QS——边桩至中桩距离，计算中桩时输入0_ORvo{[:E——夹角（