fx-4800高等级公路对称非对称缓和曲线坐标计算程序

fx-4800程序内容

HF (文件名)(非对称缓和曲线计算程序)

Defm 19:I=0零:J=0零: Z“X0零”：K“Y0零”：L“LS1”：W“LS2”:B“JDZ”:E“JDX”:Q“JDY”:A :Z【4】=180零÷(πR):O“T1”:H“T2”:F:P“Y-1,Z-2”←

Z【5】=.5L-L^3÷(240零R2):Z【6】=.5Z【4】L:Z【7】“ZH”=B-O▲ Z【1】“HY”=Z【7】+L:Z【2】“YH”= Z【7】+(A-Z【6】-180零W÷(2πR))πR÷180零+L: Z【3】“HZ”=W+Z【2】▲ Lbi0零:｛M｝:M“CD” ←

M≤Z【7】＝＞Goto6△M≤Z【1】＝＞Goto1△M＜Z【2】＝＞Goto2△M≥Z【3】＝＞Goto7△M≥Z【2】＝＞Goto5△←

Lbi1:G=M-Z【7】:D=√((G-G^5÷40零R2L2)2+(G^3÷6LR- G^5 ÷336R^3L)2):T=O←

P＜2＝＞C=F+Z【4】G2÷6L: Z【8】= F+ Z【6】G2÷L2:≠＞C=F-Z【4】G2÷6L: Z【8】= F- Z【6】G2÷L2△Goto3←

Lbi2:G=M-Z【1】:U=R(1-cos(Z【6】+ Z【4】G))+L2÷24R:D=√(U2+(Rsin(Z【6】+ Z【4】G)+ Z【5】)2) ←

P＜2＝＞C=F+tan-1(U÷(Rsin(Z【6】+ Z【4】G)+ Z【5】):Z【8】= F+ Z【6】+Z【4】G:≠＞C=F- tan-1(U÷(Rsin(Z【6】+ Z【4】G)+ Z【5】)):Z【8】= F-Z【6】-Z【4】G△T=O←

Lbi3:X=E+Tcos(F-180零)+DcosC:Y=Q+Tsin(F-180零)+DsinC:Z【9】=X:Z【10】=Y:pol(X-T,Y-K):I“HD=”:Y-K≥0零＝＞J“FWJ=”:≠＞J“FWJ”=360零+J:△Lbi4:｛S｝:S“ZB”:X“ZX”= Z【9】+Scos(Z【8】-90零) ▲

Y“ZY”= Z【10】+Ssin(Z【8】-90零) ▲

Pol(X-Z,Y-K):I“HD=” ▲

Y-K≥0零＝＞J“FWJ=” ▲

≠＞J“FWJ”=360零+J▲

△｛N｝:N“YB”:X“YX”= Z【9】+Ncos(Z【8】+90零) ▲

Y“YY”= Z【10】+Nsin(Z【8】+90零) ▲

Pol(X-Z,Y-K):I“HD=” ▲

Y-K≥0零＝＞J“FWJ=” ▲

≠＞J“FWJ”=360零+J▲

△Goto0零:Lbi5:G= Z【3】-M: Z【11】=(H-G+G^5÷40零R2W2)sinA+(G^3÷6RW-G^5÷(336R^3W))cosA←

Z【12】=H+(H-G+G^5÷40零R2W2)cosA-(G^3÷6RW-G^5÷336R^3W)sinA:D=√(Z【12】2+ Z【11】2) ←

P＜2＝＞C=F+ tan-1(Z【11】÷Z【12】): Z【8】=F+A-90零G2÷(πRW): ≠＞C= F-tan-1(Z【11】÷Z【12】): Z【8】=F-A+90零G2÷(RπW)△T=H:Goto3 △←

Lbi6:D=B-M:C=F+180零: Z【8】=F:Goto8←

Lbi7:D=H+M-Z【3】:P＜2＝＞C=F+A: ≠＞C=F-A△Z【8】=C←

Lbi8:X=E+DcosC▲

Y=Q+DsinC▲

Z【9】=X: Z【10】=Y:pol(X-Z,Y-K):I“HD=”▲

Y-K≥0零＝＞J“FWJ=”▲

≠＞J“FWJ”=360零+J▲

△Goto4←

以下加入第一段O“T1”和H“T2”后可以直接计算切线长T1，T2

O“T1”=（R+W^2÷(24R)-W^4÷(2688R^3)-(R+L^2÷(24R)-L^4÷(2688R^3))cosA）÷sinA+0.5L-L^3

÷(240R^2) ▲H“T2”=（R+L^2÷(24R)-L^4÷(2688R^3)-(R+W^2÷(24R) -W^4÷(2688R^3))cosA）

÷sinA+0.5W-W^3÷(240R^2) ▲

说明:X0置站点X坐标,Y0站点Y坐标,LS1第一缓和曲线长,LS2第二缓和曲线长,JDZ交点桩号,JDX(JDY)交点坐标,A转角,R半径,F方位角，Y-1,Z-2?转角（右转1,左转2），ＣＤ计算桩号，ＺＢ左侧边距，ＹＢ右侧边距