公路测量程序版条路线.docx
- 文档编号:29139677
- 上传时间:2023-07-20
- 格式:DOCX
- 页数:16
- 大小:22.92KB
公路测量程序版条路线.docx
《公路测量程序版条路线.docx》由会员分享,可在线阅读,更多相关《公路测量程序版条路线.docx(16页珍藏版)》请在冰豆网上搜索。
公路测量程序版条路线
FX5800计算器公路测量常用程序集2.2版
一、程序功能 主要功能:
采用线元法及交点法相结合计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化:
1、调整一次显示结果;2、交点法中考虑了不对称缓和曲线;3、修改原版本部分地方笔误.(红色为修改处)
二、源程序1.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后输入1~9数子则选择1至9的程序,返回时,在桩号输入-1,返回选择选择计算类型。
输入-2,返回选择线路。
坐标计算中输入-3,则显示本段曲线要素。
程序名:
0ZCXLbl0:
17→DimZ:
Norm2:
1→A:
"A:
XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9"?
A:
A=1=>Goto1:
A=2=>Goto2:
A=3=>Goto3:
A=4=>Goto4:
A=5=>Goto5:
A=6=>Goto6:
A=7=>Goto7:
A=8=>Goto8:
A=9=>Goto9:
Lbl1:
Prog"DX":
LbIA:
Prog"QX":
90→B:
"PJ1"?
B:
B→C:
"PJ2"?
C:
B→Z[1]:
C→Z[8]:
LblB:
1→F:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>GotoA:
Z=-3=>GotoX:
Prog"KM":
?
D:
Porg"THB":
0→L:
"L0"?
L:
Z[2]+Z[1]-Z[8]→E:
X+Lcos(E)→X:
Y+Lsin(E)→Y:
Prog"XY":
Prog"JS":
GotoB
Lbl2:
2→F:
90→Z[1]:
Prog"QX":
LblC:
"DKLC"?
Z:
Z=-1=>Goto0:
Z=-2=>Goto2:
Z=-3=>GotoX:
Prog"KM":
"X0"?
X:
"Y0"?
Y:
Prog"THB":
Porg"ZD":
GotoC
LbI3:
Prog"QX":
0→B:
"H-B"?
B:
B→Z[9]:
"SXG"?
L:
LblD:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>Goto3:
?
D:
"ZS"?
P:
Porg"H":
Fix3:
"SJG=":
Lcoate6,4,H-Z[9]:
"SCG=":
Lcoate6,4,F:
"I=":
Locate6,4,I×100:
IfU<0:
Then"W=":
Locate6,4,U:
Else"T=":
Locate6,4,U:
IfEnd◢GotoD
Lbl4:
Prog"QX":
LbIE:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>Goto4:
?
D:
Prog"GD":
Fix3:
"SJGD=":
Locate7,4,L:
GotoE
Lbl5:
Prog"QX":
0.5→B:
"TH-GD"?
B:
B→Z[17]:
LblF:
2→F:
90→Z[1]:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>Goto5:
Prog"KM":
"X0"?
X:
"Y0"?
Y:
0→M:
"M0"?
M:
M→Z[4]:
Prog"3FBX":
Fix2:
P→D:
Abs(D)-S→O:
"L0=":
Locate6,4,O:
Prog"ZD":
Z[4]→T:
"TW=":
Lcoate6,4,T◢GotoF
Lbl6:
Prog"DX":
LbIG:
Prog"QX":
LbIH:
1→F:
90→Z[1]:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>GotoG:
Prog"KM":
?
D:
Prog"THB":
Prog"XY":
Prog"JS":
Prog"H":
0→M:
"M0"?
M:
Fix2:
H-M→T:
"TW=":
Locate6,4,T◢GotoH
Lbl7:
Prog"DX":
LbII:
Prog"QX":
0→D:
"LD:
Z-,Y+"?
D:
Abs(D)→R:
"LR"?
R:
"Z0"?
Z:
D→Z[6]:
R→Z[7]:
Z→Z[8]:
LbIJ:
0→Y:
"L0:
SZ+,DZ-"?
Y:
Y=-1=>Goto0:
Y=-2=>GotoI:
Prog"ZP":
GotoJ
Lbl8:
Prog"DX":
LblK:
?
X:
X=-1=>Goto0:
X=-2=>
Goto8:
?
Y:
Prog"JS":
GotoK
Lbl9:
Porg"DX":
LblL:
Prog”QX”:
LblM:
2→F:
90→Z[1]:
"KM"?
Z:
Z=-1=>Goto0:
Z=-2=>GotoL:
Z=-3=>GotoX:
Prog"SD1":
0.5→A:
"CQHD"?
A:
“X0"?
X:
"Y0"?
Y:
0→M:
"M0"?
M:
M→Z[8]:
A→Z[15]:
Prog"5SD":
GotoM:
LblX:
MatF◢Goto0
2、次程序:
路基开挖边线及填方坡脚线放样程序(输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)
程序名:
3FBX
Prog“THB”:
D→P:
Prog“GD”:
IfD<0:
Then0.75-L→D:
GotoH:
ElseL-0.75→D:
GotoH:
IfEnd:
LblH:
Prog“H”:
H-0.03-Z[4]→Z[4]:
Prog“W-1”:
IfZ[4]<0:
Then–Z[4]→G:
GotoW:
ElseZ[4]→G:
GotoT:
LblW:
Z[8]+Z[9]→A:
IfG>A:
ThenGoto1:
ElseIfG>Z[8]:
ThenGoto2:
ElseGoto3:
IfEnd:
Lbl1:
L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:
GotoZ:
Lbl2:
L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5]→S:
GotoZ:
Lbl3:
L+Z[10]+G×Z[5]→S:
GotoZ:
LblT:
L+Z[17]→T:
IfG>Z[15]:
Then(T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:
GotoZ:
Else(T+G×Z[13])→S:
GotoZ:
LblZ
3.次程序3.隧道超欠挖值计算放样程序(输入隧道线路,大概桩号、输入衬砌厚度、测量三维坐标,计算准确桩号及位置、计算欠超挖值)
程序名:
5SD
Prog“KM”:
Prog“THB”:
D→Z[13]:
0→D:
Prog“H”:
Cos(Z[10])×Z[4]→E:
H+Z[5]→Z[5]:
H+Z[7]→Z[7]:
E+Z[5]→Z[10]:
IfZ[8]>Z[10]:
ThenGotoR:
ElseGotoS:
IfEnd:
LblR:
√((Z[13]-Z[9])2+(Z[8]-Z[5])2)-Z[4]-Z[15]→L:
GotoL:
LblS:
Z[4]-Z[6]→S:
√(S2-(Z[7]-Z[5])2)×S÷Abs(S)→T:
Abs(Z[13]-Z[9])-T→T:
√(T2+(Z[8]-Z[7])2)-Z[6]-Z[15]→L:
GotoL:
LblL:
Fix2:
“L0=”:
Locate6,4,L:
Prog“ZD”:
“H0=”:
Locate6,4,Z[8]-H◢
4:
极坐放样计算程序(计算放样点至置仪点方位角及距离)
程序名:
JS(一式)
X:
Y:
Z[11]→K:
Z[12]→L:
Pol(X-K,Y-L):
IFJ<0:
ThenJ+360→J:
IFEnd:
Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J))→J:
Fix4:
“FWJ=”:
Locate6,4,J:
Fix3:
“JL=”:
Locate6,4,I◢
JS(二式)
X:
Y:
Z[11]→K:
Z[12]→L:
Pol(X-K,Y-L):
IFJ<0:
ThenJ+360→J:
IFEnd
Fix3:
“JL=”:
Locate6,4,I:
J▲DMS◢
5.路基宽度子程序:
路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)
程序名:
GD
1→S:
Prog“G-1”:
Z-C→E:
(B-A)×E/S+A→L:
6.坐标计算次程序
程序名:
THB
IfQ>1:
ThenGotoJ:
Else1÷P→C:
(P-R)÷(2HPR)→S:
180÷π→E:
IfF=1:
ThenAbs(Z-O)→W:
Prog"A":
Goto2:
ElseX→I:
Y→J:
Prog"B":
O+W→Z:
D→D:
Goto2:
IfEnd:
LbIJ:
IfF=1:
ThenProg"Z":
Goto1:
ElseProg"ZX":
Goto2:
IfEnd:
LbI1:
I+D×COS(Z[2]+Z[1])→X:
J+D×Sin(Z[2]+Z[1])→Y:
LbI2
7.线元法正算子程序(A)
程序名:
A0.1184634425→A:
0.2393143352→B:
0.2844444444→N:
0.046910077→K:
0.2307653449→L:
0.5→M:
U+W(Acos(G+QEKW(C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X:
V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS)))→Y:
G+QEW(C+WS)→Z[2]:
X+Dcos(Z[2]+Z[1])→X:
Y+Dsin(Z[2]+Z[1])→Y8.线元法反算子程序(B)
程序名:
BG-90→T:
Abs((Y-V)cos(T)-(X-U)sin(T))→W:
0→D:
Lbl0:
Prog"A":
T+QEW(C+WS)→L:
(J-Y)cos(L)-(I-X)sin(L)→D:
IFAbs(D)<0.01:
ThenGoto1:
ElseW+D→W:
Goto0:
IfEnd:
Lbl1:
0→D:
Prog"A":
(J-Y)÷sin(Z[2]+90)→D
9.交点法正算子程序(Z)
程序名:
Z
H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:
H÷2-H∧(3)÷240÷R2→B:
((H2-N2)÷24÷R)÷Sin(Abs(P))-((H∧(4)-N∧(4))/2688/R∧(3))÷Sin(Abs(P))→E:
(R+A)tan(Abs(P)÷2)+B-E→T:
P÷Abs(P)→W:
0→M:
H→C:
IfZ≤O-T:
ThenZ-O→S:
G→Z[2]:
Goto2:
IfEnd:
IfZ≤O-T+H:
ThenZ-O+T→S:
Prog“HX”:
G+WK→Z[2]:
Goto4:
IfEnd:
IfZ≤O-T+πR×Abs(P)÷180+H÷2-N÷2:
Then180(Z-O+T-0.5H)÷R÷π→S:
A+R(1-Cos(S))→B:
H÷2-H∧(3)÷240÷R2+Rsin(S)→A:
R→M:
G+WS→Z[2]:
Goto4:
IfEnd:
O-T+πR×Abs(P)÷180+H÷2+N÷2-Z→S:
(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T:
N→H:
Prog“HX”:
G+P→S:
S-WK→Z[2]:
U+(T-A)Cos(S)-WBSin(S)→I:
V+(T-A)Sin(S)+WBcos(S)→J:
Goto3:
Lbl4:
U+(A-T)cos(G)-WBsin(G)→I:
V+(A-T)Sin(G)+WBcos(G)→J:
Goto3:
Lbl2:
U+Scos(Z[2])→I:
V+Ssin(Z[2])→J:
LbI3:
C→H
10.交点法缓和段转化子程序(HX)
程序名:
HX
S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:
S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:
90S2÷π÷R÷H→K:
RH÷S→M
11.交点法反算子程序(ZX)
程序名:
ZX
Z:
0→D:
Lbl0:
Prog“Z”:
Pol(X-I,Y-J):
J-Z[2]→J:
Isin(J)→S:
Icos(J)→I:
IfAbs(I)<0.1:
ThenZ+I→Z:
S→D:
Goto2:
ElseGoto1:
LbI1:
IfM=0:
ThenZ+I→Z:
Goto0:
ElesPol(M-WS,I):
(JMπ)/180→I:
Z+I→Z:
Goto0:
IfEnd:
LbI2
12.高程计算子程序(H)
程序名:
H
Prog“S-1”:
N-I→A:
A÷Abs(A→W:
R×Abs(A÷2→T:
IfZ ThenG+I(Z-C→H: Goto0: IfEnd: IfZ ThenG-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H: Goto0: IfEnd: N→I: G+I(Z-C→H: ILbI0: IfD=0: ThenH→H: GotoI: ElseProg“I”: H+V→H: Abs(L-P→F: (H-Z[9])-F→U: GotoI: LblI 13.高程超高计算程序(I) 程序名: I IfZ[3]=1: ThenProg“I-1”: Goto1: ElseIfZ[3]=2: ThenProg“I-2”: Goto1: ElseIfZ[3]=3: ThenProg“I-3”: Goto1: ElseIfZ[3]=4: ThenProg“I-4”: Goto1: ElseIfZ[3]=5: ThenProg“I-5”: Goto1: ElseProg“I-6”: Goto1: IfEnd: Lbl1: IfW=1: ThenGotoZ: ElseGotoX: IfEnd: LblZ: IfS=0: ThenAbs(D)×M→V: Goto2: ElseAbs(D)×((N-M)×(Z-C)÷S+M)→V: Goto2: IfEnd: LblX: IfS=0: ThenAbs(D)×M→V: Goto2: ElseAbs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V: Goto2: IfEnd: Lbl2: Abs(D)→E: V÷E→I: I(E-K)→V 14.导线点子程序(DX) 程序名: DX Z[11]→K: Z[12]→L: “XZ”? K: “YZ”? L: K→Z[11]: L→Z[12] 15.线路选择子程序(线路选择输0时,则输曲线参数)(QX) 程序名: QX 1→A: “LX: XX-1,AX-2,BX-3,CX-4,DX-5,EX-6”? A: A→Z[3]: IfA=0: ThenGoto1: ElseGoto2: IfEnd: Lbl1: “JDO”? O: “XO”? U: “YO”? V: “FW”? G: “LS”? H: ? P: ? R: “J=2,3;X=(0,1,-1)”? Q: IfQ=2: ThenH→N: Goto2: ElseIfQ=3: Then“LS”? N: Lbl2 16.线路中线元段判别子程序(KM) 程序名: KM IfZ[3]=0: ThenGoto0: ElseIfZ[3]=1: ThenProg“XX-1”: Goto0: ElseIfZ[3]=2: ThenProg“AX-2”: Goto0: ElseIfZ[3]=3: ThenProg“BX-3”: Goto0: ElseIfZ[3]=4: ThenProg“CX-4”: Goto0: ElseIfZ[3]=5: ThenProg“DX-5”: Goto0: ElseProg“EX-6”: Goto0: IfEnd: LbI0 17.坐标计算参数转化子程序(F) 程序名: F MatF[1,1]→O: MatF[1,2]→U: MatF[1,3]→V: MatF[1,4]→G: MatF[1,5]→H: MatF[1,6]→P: MatF[1,7]→R: MatF[1,8]→Q: Q=2=>H→N: Q=3=>MatF[1,9]→N 18.桥梁锥坡放样子程序(ZP) 程序名: ZP √(Z[6]2(1-Y2/Z[7]2))→X: Z[8]→Z: Prog“GD”: IfD<0: ThenL+X→D: Else –L-X→D: IfEnd: Z[8]+Y→Z: D: 1→F: 90→Z[1]: Prog“KM”: Prog“THB”: Prog“XY”: Prog“JS” 19.显示子程序(XY)和(ZD) ①程序名: XY Fix3: "XS=": Locate6,4,X: "YS=": Locate6,4,Y: ②程序名: ZD Fix3: "KM=": Locate6,4,Z: "D=": Locate6,4,Z: 20.数据子程序(附后示例) ①-1程序名: XX-1(线路1坐标计算要素程序) IfZ≤26615.555: Then[[25900,11587.421,1847.983,101。 09’23.1”,715.555,1×1045,1×1045,0]]→MatF: Goto0: IfEnd: IfZ≤26915.555: Then[[26615.555,11448.97,2550.016,101。 09’23.1”,300,1×1045,1800,1]]→MatF: Goto0: IfEnd: LbI0: Prog“F” ①-2程序名: AX-2(线路2坐标计算要素程序) IfZ≤122269.856: Then[[121656.952,2603848.019,508351.147,98°53′22.6″,660,41°47′44.1″,1415.097,3,300]]→MatF: Goto0: IfEnd: IfZ≤125115.9: Then[[123984.982,2601974.464,509885.441,140°41′06.8″,700,-39°31′43.7″,2800,3,400]]→MatF: Goto0: IfEnd: Lbl0: Prog“F” 说明: 1、交点法: IfZ≤交点HZ点桩号: Then[[交点桩号,交点X坐标,交点Y坐标,前交点至止交点方位角,交点前段缓和曲线长度,交点总偏角,圆半径,3,交点后段缓和曲线长度,]]→MatF: Goto0: IfEnd: (如对称缓和曲线,圆半径后输,2后不用输后段缓和长,总偏角分正负,左偏为负,右偏为正) 2、线元法: IfZ≤本段线元终点桩号: Then[[本段线元起点桩号,线元起点X坐标,线元起点Y坐标,线元起点切线方位角,线元长度,线元起点半径,线元终点半径,线元判别]]→MatF: Goto0: IfEnd: (线元判别及线元半径见后说明) ②-1程序名: S-1(线路1高程竖曲线要素子程序) IfZ[3]=1: ThenGoto1: ElseIfZ[3]=2: ThenProg“S-2”: Goto0: ElseIfZ[3]=3: ThenProg“S-3”: Goto0: ElseIfZ[3]=4: ThenProg“S-4”: Goto0: ElseIfZ[3]=5: ThenProg“S-5”: Goto0: ElseProg“S-6”: Goto0: IfEnd: Lbl1: IfZ≤26157.8: Then26000→C: 37.1→G: 200000→R: 0.01500→I: 0.01222→N: Goto0: IfEnd: IfZ≤27421.915: Then27250→C: 32.65→G: 300000→R: 0.01222→I: -0.00356→N: Goto0: IfEnd: IfZ≤27889.029: Then27755→C: 36.64→G: 1000000→R: -0.00356→I: 0.0079→N: Goto0: IfEnd: Lbl0 ②-2程序名: S-2(线路2高程竖曲线要素子程序) IfZ≤183.007: Then162.532→C: 46.1→G: 1365→R: -0.0015→I: 0.003→N: Goto0: IfEnd: IfZ≤321.264: Then282.532→C: 50.175→G: 1200→R: 0.033→I: -0.021→N: Goto0: IfEnd: Lbl0 程序字母说明: IfZ≤本段竖曲线终点桩号(即为竖曲线交点桩号+切线长度);C-竖曲线交点桩号;G-交点桩号高程(未竖曲线调整的);R-竖曲线半径;I-竖曲线前纵坡;N-竖曲线后纵坡 ③-1程序名: I-1(线路1高程超高参数子程序) 1.5→K: 2→W: IfD<0: ThenGotoL: ElseGotoR: IfEnd: LblL: IfZ≤26615.555: Then0→S: -0.02→M: Goto0: IfEnd: IfZ≤26735.555: Then120→S: 26615.555→C: -0.02→M: 0.02→N: Goto0: IfEnd: IfZ≤26795.555: Then60→S: 26735.555→C: 0.02→M: 0.04→N: Goto0: IfEnd: LblR: IfZ≤26735.555: Then0→S: -0.02→M: Goto0: IfEnd: IfZ≤26795.555: Then60→S: 26735.555→C: -0.02→M: -0.04→N: Goto0: IfEnd: IfZ≤27436.951: Then0→S: -0.04→M: Goto0: IfEnd: Lbl0 ③-2程序名: I-2(线路2高程超高参数子程序) 0.5→K: 1→W: IfD<0: ThenGotoL: ElseGotoR: IfEnd: LblL: IfZ≤100: Then0→S: -0.015→M: Goto0: IfEnd: IfZ≤110: Then10→S: 100→C: -0.015→M: -0.02→N: Goto0: IfEnd: IfZ≤343.665: Then0→S: -0.02→M: Goto0: IfEnd: LblR: IfZ≤100: Then0→S: -0.015→M: Goto0: IfEnd: IfZ≤110: Then10→S: 100→C: -0.015→M: -0.02→N: Goto0: IfEndIfZ≤375.665:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 公路 测量 程序 路线
![提示](https://static.bdocx.com/images/bang_tan.gif)