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) ▲
注意：以上程序我自已编写，已多次经过实地应用

非对称缓和曲线和对称缓和曲线都能计算,多年来的修改后的精华,短小实用