路桥隧 - 免费·分享·共赢

标题: 4800公路测量放样计算程序 [打印本页]

作者: zjw868 时间: 2007-5-25 22:29
标题: 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

作者: xxkkxx 时间: 2008-1-19 14:42
谢谢楼主!!!!!!!!!!!!!!!!!!!!

作者: 419462533 时间: 2008-2-23 13:24
能跟你联系吗？我的QQ是419462533

作者: fjjggyg 时间: 2008-5-12 19:22
标题: 公路测量放样
谁有公路测量放样，CASIO4800缓和曲线坐标反算的程序，能不能发个给我，谢谢我QQ 号156077646

作者: jiaotong9 时间: 2011-3-15 23:26
楼主辛苦，谢谢分享

欢迎光临路桥隧 - 免费·分享·共赢 (http://www.luqiaosui.com/)