CASIO fx-4800P計(jì)算器程序
DA DI——N E (公路彎道坐標(biāo)計(jì)算)
K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”
M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲
N“HY”=M＋S▲
O“QZ”=M＋（πRAbs F÷180＋S）÷2▲
Z[1]“YH”=M＋πRAbs F÷180▲
Q“HZ”= Z[1]＋S▲
T=K－M▲
L=Q－M▲
E=（R＋S2÷（24R））÷cos（F÷2）－R▲
Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△
{U}：U“I——B OUT＋I(xiàn)N－”
Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋ S2÷（24R）－Ucos H：△
F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F－Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△
C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△
I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲
J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲
G=G＋20
Goto 0
程序運(yùn)行
輸入：JD？ ——交點(diǎn)樁號(hào)
R？ ——圓曲線半徑
LS？ ——緩和曲線長(zhǎng)度
PJ——L－R＋？ ——偏角 右偏為正
ZH——N？ ——ZH點(diǎn)N坐標(biāo)
ZH——E？ ——ZH點(diǎn)E坐標(biāo)
JD——N？ ——JD點(diǎn)N坐標(biāo)
JD——E？ ——JD點(diǎn)E坐標(biāo)
輸出：ZH= ——ZH點(diǎn)樁號(hào)
HY= ——HY點(diǎn)樁號(hào)
QZ= ——QZ點(diǎn)樁號(hào)
YH= ——YH點(diǎn)樁號(hào)
HZ= ——HZ點(diǎn)樁號(hào)
T= ——切線長(zhǎng)
L= ——曲線長(zhǎng)
E= ——外矢距
再輸入：ZHUANG HAO？ ——輸入任一點(diǎn)樁號(hào)
I——B OUT＋I(xiàn)N－？ ——距中線距離（外側(cè)為正）
再輸出：COM——N= ——計(jì)算出N坐標(biāo)
COM——E= ——計(jì)算出E坐標(biāo)
以此循環(huán)——再輸入——再輸出
程序中各字母所代表的含義：
A——ZH點(diǎn)N坐標(biāo)
B——ZH點(diǎn)E坐標(biāo)
C——JD點(diǎn)N坐標(biāo)
D——JD點(diǎn)E坐標(biāo)
E——外矢距
F——偏角（右偏為正）
G——彎道內(nèi)任一點(diǎn)樁號(hào)
H——彎道內(nèi)任一點(diǎn)切線角
I——計(jì)算出的N坐標(biāo)
J——計(jì)算出的E坐標(biāo)
K——交點(diǎn)樁號(hào)
L——曲線長(zhǎng)
M——ZH點(diǎn)樁號(hào)
N——HY點(diǎn)樁號(hào)
O——QZ點(diǎn)樁號(hào)
P——ZH--JD方位角
Q——HZ點(diǎn)樁號(hào)
R——圓曲線半徑
S——緩和曲線長(zhǎng)度
T——切線長(zhǎng)
U——距中線距離（外側(cè)為正）
V——支距
W——支距
X——彎道內(nèi)坐標(biāo)
Y——彎道內(nèi)坐標(biāo)
Z——任一點(diǎn)曲線長(zhǎng)度
Z[1]——YH點(diǎn)樁號(hào)
作者：路更群
