韩版女装裙子:[分享]公路逐桩坐标计算程序

来源:百度文库 编辑:九乡新闻网 时间:2024/03/28 16:33:24
[分享]公路逐桩坐标计算程序 作者:游戏人生 2008-10-26 0:44:00

公路逐桩坐标计算程序,该程序适用于直线,圆曲线及完整的对称的缓和曲线坐标计算及放样.

 

R (主程序名)

Lbl 0:Prog “RSJK”:Deg:{S}:S"DKI=":Prog "RSJK":L=S-Z: K=AπR÷180+C:P=C^2÷24R-C^4÷2688R^3:

T=(R+P)tan(A÷2)+C^2-C^3÷240R^2:N=-1:L>K-C=>L=K-L:N=1:△

L≤0=>X=L:Y=0:Q=0:Goto 1△

L≤C=>Q=90L^2÷πRC: X=L-L^5÷40R^2C^2:Y=L^3÷6RC-L^7÷336R^3C^3: Goto 1△

L≤K-C=>Q=180(L-C) ÷πR+90C÷πR: X=Rsin Q+C÷2-C^3÷240R^2:Y=R(1-cos Q)+P△

Lbl 1:N=1=>Q=A-Q:I=X:J=Y:X=T+(T-I)cos A-Jsin A:Y=(T-I)sin A+Jcos A△

I=X:J=FY:X=G+Tcos(180+B)+Icos B-Jsin B:Y=V+Tsin(180+B)+IsinB+JcosB:Q=B+FQ

{D}:D"BJ(-0+)": D=0=>H=0△H=90:X=X+Dcos(Q+H):Y=Y+Dsin(Q+H)

Q→DMS      注意:如果夹角H不赋值,可以计算斜交线路,边距左负右正

X▲

Y▲

Pol(X-E"X0,Y-O"Y0"):J<0=>J=J+360△"FWJ=":J→DMS

"L=":I▲

Goto 0

 

RSJK(子程序)

SHY(或者HZ)里程桩号=>A=转角:R=圆曲线半径:C=缓和曲线长:B=起点正切线方位角:G=交点(角桩)X坐标:V=交点(角桩)Y坐标:F=曲线偏向(左偏=-1,右偏=1):Z=ZY(或者ZH)里程桩号:Goto 0                         (EXE)

............

SHY(或者HZ)里程桩号=>A=转角:R=圆曲线半径:C=缓和曲线长:B=起点正切线方位角:G=交点(角桩)X坐标:V=交点(角桩)Y坐标:F=曲线偏向(左偏=-1,右偏=1):Z=ZY(或者ZH)里程桩号△            Lbl 0