5800线路坐标正反算,竖曲线计算及边坡放样程序

筑事有方 2749 0

5800线路坐标正反算,竖曲线计算及边坡放样程序  坐标计算 竖曲线 万能程序 公式 测绘 5800 4800 测量 第1张

坐 标 计 算 程 序

可计算中边桩及进行坐标反算,边坡放样
PAN(主 程 序):

LbI 0 “1.SZ=>XY, XY=> SZ”:?N
If N=1:Then Goto 1:If End
If N=2:Then Goto 21:If End
LbI 1:“DKI=”?S:S>终止桩号=> Goto 1 : S<起始桩号=> Goto 1 :“BJ=”?Z: Prog “PAN-1”: Prog “PAN-2”:If Z=0:Then 90→T:EIse “PJ=” ?T:IfEnd
"XS"=X◢
"YS"=Y◢
"FS"=F-90▲DMS◢
Goto 1
LbI 2:“DKI=”?S:S>终止桩号=> Goto 2 : S<起始桩号=> Goto 2 :0→Z:90→T:Prog “PAN-1”:Prog “PAN-2”: “XC=”?N :"YC"=?E: Prog “PAN-3”
If I>0:Then “YOU,I=”: I◢ If End
If D<0:Then “ZUO,I=”: I◢ If End
"ZHUANG,HAO"=K◢
Goto 2

5800线路坐标正反算,竖曲线计算及边坡放样程序  坐标计算 竖曲线 万能程序 公式 测绘 5800 4800 测量 第2张

PAN-1:(平曲线数据库):

If S<(线元终点桩号):Then线元起点桩号→O:线元终点桩号→H: 线元起始切线方位角→G: 线元起点坐标→X: 线元起点坐标→Y: 线元起点半径→P: 线元终点半径→R: 偏转方向常量→Q:If End


………………………………………………..
Q值当线元向左偏时输负值,当线元向右偏时输正值。当线元与直线相接时半径输10的45次方,与圆曲线相接时半径输圆曲线半径。

PAN-2:(平曲线正算程序)

1÷P→C
(P-R)÷(2(H-O)PR)→D
180÷∏→E
Abs(S-O)→W:0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y
G+QEW(C+WD)+90→F
Return


PAN-3: (平曲线反算程序)

0→Z: 90→T:Pol(N-X, E-Y)
If J<0:Then J+360→J:If End
F-J→C::S+IsinC→K:IcosC→I
Return
Goto D

PAN-4:(竖曲线计算子程序)

Prog“PAN-5”:Q-T→C: Q+T→D
If S≤C:Then Goto 1: EIse
If S<Q:Then Goto 2: EIse
If S<D:Then Goto 3: If End :If End :If End
LbI 1:E+(Q-S)A→H: Goto 4
LbI 2:E+(Q-S)A+(S-C)2 /2/R→H: Goto 4
LbI 3:E+(S-Q)B+(S-D)2/2/R→H: Goto 4
LbI 4:H→H: Return

PAN-5:(竖曲线数据库,支持断链)

If S=84100:Then84100+3.45→S: Return: If End
If S=87900:Then87900+12.85→S: Return: If End
If S≤本段竖曲线终点桩号:Then 竖曲线交点高程→E: 前坡坡率→A:后坡破率→B:交点桩号→Q: 竖曲线半径→R: 切线长→T Return :If End


……………………………………………….

5800线路坐标正反算,竖曲线计算及边坡放样程序  坐标计算 竖曲线 万能程序 公式 测绘 5800 4800 测量 第3张

竖曲线数据库输入说明:
S为计算里程,破率输入时以交点为起算点,上坡输正值,下坡输负值。竖曲线半径输入,当竖曲线为凹曲线时半径输正值,当竖曲线为凸曲线时半径输负值。

PAN-SQX(竖曲线计算主程序):
LbI 0:“DK=”:?S:S<线路起点桩号=> Goto 0: S>线路终点桩号=> Goto 0:Prog “PAN-4”:“BJ=”:?B:H-B*横坡→H:“H=”:H◢
Goto 0

PAN-BIANPO(边坡放样主程序):

LbI 0:“DK=”:?S:S<线路起点桩号=> Goto 0: S>线路终点桩号=> Goto 0:0→Z:90→T: Prog “PAN-1”: Prog “PAN-2”: “XC=”:?N: “YC=”:?E: “DMG=”:?G:Prog “PAN-3”: Prog “PAN-4”: Goto 1
LbI 0: “BJ=”:?B: H-B*横坡-G→P: “P=”:P◢(可显示也可不显示)
If P>10:Then Goto P: If End
If P>0:Then GotoT: If End
If P<0:Then GotoW: If End
LbI T:“PO,BI=”:?O:O*ABS(P)+B→L: GotoJ
LbI W:“PO,BI=”:?O: “PINGTAI=”:?C:O*ABS(P)+B+2(侧沟宽度)+C(平台宽度)→L: GotoJ
LbI P:“PO,BI=”:?O: “PING,TAI=”:?C:O*8+C+(P-8)O+B→L: GotoJ
LbI J:K-S→K: I→A:L-ABS(A)→D
If D>0:Then “WAI,D=”: D◢ If End
If D<0:Then “NEI,D=”: D◢ If End
If K>0:Then “XIAO,K=”: K◢ If End
If K<0:Then “DA,D=”: K◢ If End
"CL"=L◢
Goto 0

5800线路坐标正反算,竖曲线计算及边坡放样程序  坐标计算 竖曲线 万能程序 公式 测绘 5800 4800 测量 第4张

标签: 坐标计算 竖曲线 万能程序 公式 测绘 5800 4800 测量

发表评论 (已有0条评论)

您需要 登录账户 后才能发表评论

还木有评论哦,快来抢沙发吧~