海鳗多少钱一斤:公路测量外业放样备用程序
来源:百度文库 编辑:中财网 时间:2024/03/28 18:06:13
1.开口(坡脚)线刷破放样程序
SPFY
Lbl 0:Deg
{ABCFGMNPQ}:N”0-50cm”:F”1Jsjpd”:Q”1Jsjgd”:G”2Jsjpd”≤0=>Goto 1△
A”2Jsjgd”:P”1Jsjpt” :M”2Jsjpt”:B”3Jsjpd”≤0 =>Goto 1△C”3Jsjgd”
Lbl 1:{DWVE}:D”SJdlkd”≤0 =>Goto 0△W”FYkd”:V”CL(H)”:E”SJ(H)”
Lbl 2:”(-W,+T)=”:H=E-V▲ (一般H小于0为挖方段,H大于0为填方段)
H=Abs H
H K=D+N+FH-W:Goto 3△
H K=D+N+FQ+G(H-Q-P)+P-W:Goto 3△
H K=D+N+FQ+GA+B(H-Q-A-P-M)+P+M-W△
Lbl 3:”PYjl=”:k▲
Goto 1
说明(本程序适合挖方填方刷破放样):
N”0-50cm”: 是否加宽放样宽度0到50厘米(根据技术交底而定)
F”1Jsjpd”: 第一级设计坡度值(边坡,如坡度为1:1.75,则F=1.75,下同)
Q”1Jsjgd”: 第一级设计高度值
G”2Jsjpd”: 第二级设计坡度值
A”2Jsjgd”: 第二级设计高度值
P”1Jsjpt”: 第一级设计平台宽度值
M”2Jsjpt”: 第二级设计平台宽度值
B”3Jsjpd”: 第三级设计坡度值
D”SJdlkd”: 半幅道路设计路宽
W”FYkd”: 实际将放样的宽度
V”CL(H)”: 放样点的测量高程
E”SJ(H)”: 放样点对应点的设计高程(即为挖方坡脚线或填方坡顶线设计高程)
”(-W,+T)=”: 放样点超挖欠挖情况(-W表示欠挖,+T表示超挖)
”PYjl=”: 放样点应该沿垂直道路中线方向偏移值,正值向外负值向内移动
(注意:本程序之考虑了3级坡度和2级平台和2级高度,实际超出的再加上。。。)
2.有了它,上工地告别图纸和资料
(程序中加入了路基抄平的计算)
QXZDGC
Lbl A (L表示待放样点的桩号)
{L}:L"DKI":Prog “S”:Prog “SQX”:Prog“P”:Prog“PQX”
“HO=”:Z◢ (显示纵断中桩设计值)
"HZ="O:◢ (显示横断左边桩设计值)
"HY="P:◢ (显示横断右边桩设计值)
Lbl B:{KM}:K=0=>Goto A⊿Y"HSGC":V"HSDS":M"QSDS"≤0=>{YV}:Goto B ⊿
"Hn=":N=Y+V-M◢ (测量点的实际高程)
D=0=>"E(HO=":W=Z-N◢ (中桩设计与实际高程之差,负挖正填,下同)
Goto A⊿
K=-1=>"E(HZ=":W=O-N◢ (左边桩设计与实际高程之差)
Goto A⊿
K=1=>"E(HY=":W=P-N◢ (右边桩设计与实际高程之差)
Goto A ⊿ (说明:程序中的K是个变化参数,等于-1计算左边,等于1计算右边)
SQX(子程序)
T=Abs((I-J)R÷2):R=R((I-J)÷Abs(I-J)):N=A-T:W=A+T:U=Abs (A-L)
L≤N=>Z=H-JU-X"H0":Goto 1 ⊿ (H0表示如路面到路基顶部的高度(结构层)等,下同)
L≤A=>Z=H-JU+(L-N)2÷(2R)-X"H0":Goto 1 ⊿
L≤W=>Z=H+IU+(W-L)2÷(2R)-X"H0":Goto 1 ⊿
L>W=>Z=H+IU -X"H0"⊿
Lbl 1
PQX(子程序)
L≤S=>E=.02:G=E:Goto 1 ⊿
L≤(S+B)=>E=.02-(L-S)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿
L≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿
L≤(S+Q)=>E=.02-(S+Q-L)÷B×(.02+C):G= -E:Abs (E) ≤.02=>G=.02: ⊿Goto 1:⊿
L>(S+Q)=>E=.02:G=E⊿
Lbl 1:{D} :T=D-.75:F=1=>"EZ="E ◢
"EY=":G ◢ (0.75表示中央分隔带为0.75*2=
O=Z-TE:P=Z-TG:≠>F=-1=>"EZ="G◢
"EY=":E ◢
O=Z-TG:P=Z-TE⊿⊿
S(数据库子程序)
L ≤145788.038(竖曲线终点桩号)=>R=40000(竖曲线半径):A=145600(竖曲线中心桩号):H=411.313(变坡点高程):J=0.0049(变坡点前纵坡):I=-0.0045(变坡点后纵坡):Goto 1: ⊿
…
Lbl 1
P(数据库子程序)
L ≤146999.541(平曲线超高终点桩号)=>B=120(超高缓和曲线长度):Q=612.094(超高曲线全长度):C=0.03(超高值):F=1(平曲线参数,左转=-1,右转=1):S=146387.447(超高缓和起点桩号):Goto 1: ⊿
…
Lbl 1
(一):三次抛物线超高公式:
前缓和曲线:K=(L-S)÷B
后缓和曲线:K=(S+Q-L)÷B
E=e-(e+c)(3K2-2K3) 或者 E=e-(e+c)(2K-K^2)
其中:E为待求断面横坡值;
L为待放样点的桩号;
S为超高缓和起点桩号;
Q为超高曲线总长;
B为超高缓和曲线长度;
e为超高起点横坡值;
c为超高终点横坡值.
(二):线性超高公式:
前段缓和曲线超高公式:E=0.02-(L-S)÷B×(0.02+C):
后段缓和曲线超高公式:E=0.02-(S+Q-L)÷B×(0.02+C):
其中: B为超高缓和曲线长度
S为超高缓和起点桩号
L为放样点桩号
C为最大超高值.
Q为超高曲线总长度
3.公路测量放样正反计算程序(第五次修改-正式版)
1.QXZDJS
M=1=>Prog "SJK1":Prog "SUBSJK"△
M=n=>Prog "SJKn":Prog "SUBSJK"△
2.SUBSJK
"1.SZ => XY":"2.XY => SZ":{N,S}:N:S"DKI":Prog “SJK
Deg:S>H=>Goto AΔD=(P-R)÷2PR(H-O):N=1=>Goto 1:≠>Goto 2Δ
Lbl 1:{ZT}:Z"BJ(-0+)":T=90:W=Abs(S-O):Prog "SUB1":F=F-90:F<0=>F=F+360Δ 说明:边距左负右正,T如果此处不赋值,表示线路为斜交。
"QX-FWJ=":F←DMS
"XS=":X◢
"YS=":Y◢
I=0:J=0:Pol(X-C"X0",Y-E"Y0"):J<0=>J=J+360:Δ“FWJ=”:J←DMS◢
“I=”:I◢ 说明:(X0,Y0)表示待放样点坐标
Goto A←┘
Lbl 2:{XY}:I=X:J=Y:Prog "SUB2":
"S=":S=O+W◢
"Z=":Z◢ 说明:S,Z为反算时的桩号及边距
Lbl A
3.SJK1
S≤本线元终点里程=>U=本线元起点X坐标:V=本线元起点Y坐标:G=本线元起点正切线方位角:P=本线元起点曲率半径:R=本线元终点曲率半径:O=本线元起点里程:H=本线元终点里程:Q=本线元偏向(左-1直0右+1):Goto0Δ
… Goto0Δ
LB1 0
4.SUB1 (正算子程序)
A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷π)):Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π)):F=G+180QW(1÷P+WD)÷π+90:X=X+ZcosF:Y=Y+ZsinF
5.SUB2(反算子程序)
T=G-90:W=Abs((Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog "SUB1":L=T+180QW(1÷P+WD)÷π:Z=(J-Y)cosL-(I-X)sinL:AbsZ<1÷10^6=>Goto1:≠>W=W+Z:Goto 0Δ←┘
Lbl 1:Z=0:Prog "SUB1":Z=(J-Y)÷sinF
(1) 当线元为直线时,其起止点的曲率半径为无穷大,以10的45次代替。
(2) 当线元为圆曲线时,无论其起止点与什么线元相接,其曲率半径均等于圆
弧的半径。
(3) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大;与圆曲线相接时,曲率半径等于圆曲线的半径。
(4) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的
值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。
4.公路逐桩坐标计算程序
该程序适用于直线,圆曲线及完整对称的缓和曲线坐标计算及放样
R
Lbl 0:Deg:{S}:S“DKI”:Prog “RSJK”:L=S-Z:K=A∏R÷180+C:P=C2÷24R-C4÷2688R3:
T=(R+P)tan (A÷2)+C÷2-C3÷240R2:N=-1:L>K-C=>L=K-L:N=1△
L≤0=>Q=0:X=L:Y=0:Goto 1△
L≤C=>Q=
L≤K-C=>Q=180(L-C) ÷∏R+
Lbl 1:N=1=>Q=A-Q:I=X:J=Y:X=T+(T-I)cosA-JsinA:Y=(T-I)sinA+JcosA△
I=X:J=FY:X=G+Tcos(180+B)+IcosB-JsinB:Y=V+Tsin(180+B)+IsinB+JcosB:Q=B+FQ:{DH}:
D“BJ(-0+)”:D=0=>H=0△H=90:X=X+Dcos(Q+H):Y=Y+Dsin(Q+H):Q→DMS
X▲
Y▲
Pol(X-E“X
Goto 0 注意:当H≠90度时表示线路斜交。
RSJK
S≤HY点(或者HZ点)里程桩号=>A=转角:R=圆曲线半径:C=缓和曲线长:B=起点正切线方位角:G=交点(角桩)的X坐标:V=交点(角桩)的Y坐标:F=曲线偏向(左偏=-1,右偏=1):Z=ZY点(或者ZH点)里程桩号:Goto 0△
…
Lbl 0
5.坐标正反算程序
ZBZFS(程序名)
Deg:M“ZS=>1,FS=>2”=1 =>Goto 0:≠=>Goto 1△
Lbl 0:{CD}:A”XO”:B”YO”:C”XH”≤0=>{AB}:Goto 0△
D”YH”:I=0:J=0:Pol(C-A,D-B):J<0=>J=J+360△
“Fwj=”:J->DMS “JL=”:I▲
Goto 0
Lbl 1:{CD}:A”XO”:B“YO”:C“JL”≤0=>{AB}:Goto 1△ D“Fwj”
“XH=”:X=A+Ccos D▲
“YH=”:Y=B+Csin D▲
Goto 1
说明(正算):A:起点X坐标;B:起点Y坐标
C:终点X坐标;D:终点Y坐标
J->DMS:显示为起点到终点的方位角
“JL=”: 显示为起点到终点的距离
说明(反算):A:起点X坐标;B:起点Y坐标
C:起点到终点的距离;D:起点到终点的方位角
“XH=”:显示为终点的X坐标
“YH=”:显示为终点的Y坐标
注意:方位角的起始方向,如M点到N点的方位角为a ,那么N点到M点的方位角为a+180