路桥隧 - 免费·分享·共赢
标题:
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