4800公路测量放样计算程序

4800公路测量放样计算程序

CASIO fx-4800P计算器程序

DA DI——N E (公路弯道坐标计算)

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＋IN－”

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

程序运行

输入：JD？——交点桩号

R？——圆曲线半径

LS？——缓和曲线长度

PJ——L－R＋？——偏角右偏为正

ZH——N？——ZH点N坐标

ZH——E？——ZH点E坐标

JD——N？——JD点N坐标

JD——E？——JD点E坐标

输出：ZH= ——ZH点桩号

HY= ——HY点桩号QZ= ——QZ点桩号

YH= ——YH点桩号

HZ= ——HZ点桩号

T= ——切线长

L= ——曲线长

E= ——外矢距

再输入：ZHUANG HAO？——输入任一点桩号

I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标

COM——E= ——计算出E坐标以此循环——再输入——再输出

程序中各字母所代表的含义：

A——ZH点N坐标

B——ZH点E坐标

C——JD点N坐标

D——JD点E坐标

E——外矢距

F——偏角（右偏为正）

G——弯道内任一点桩号

H——弯道内任一点切线角

I——计算出的N坐标

J——计算出的E坐标

K——交点桩号

L——曲线长

M——ZH点桩号

N——HY点桩号

O——QZ点桩号

P——ZH--JD方位角

Q——HZ点桩号

R——圆曲线半径

S——缓和曲线长度

T——切线长

U——距中线距离（外侧为正）

V——支距

W——支距

X——弯道内坐标

Y——弯道内坐标

Z——任一点曲线长度

Z[1]——YH点桩号