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点桩号


作者：zjw868

楼主辛苦，谢谢分享

谁有公路测量放样，CASIO4800缓和曲线坐标反算的程序，能不能发个给我，谢谢我QQ 号156077646

能跟你联系吗？我的QQ是419462533

谢谢楼主!!!!!!!!!!!!!!!!!!!!