海鳗多少钱一斤:公路测量外业放样备用程序

来源:百度文库 编辑:中财网 时间: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=1.5米宽,D为输入边桩距中桩距离)

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 “SJK1”

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=90L2÷∏RC:X=L-L5÷40R2C2:Y=L3÷6RC-L7÷336R3C3:Goto 1△

L≤K-C=>Q=180(L-C) ÷∏R+90C÷∏R:X=RsinQ+C÷2-C3÷240R2:Y=R(1-cosQ)+P△

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“X0”,Y-O“Y0”):J<0=>J=J+360△“FWJ=”:J→DMS     “L=”:I▲  

 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