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

标题: 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/) Powered by Discuz! X3.2