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

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

坐 标 计 算 程 序

可计算中边桩及进行坐标反算,边坡放样
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
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
……………………………………………….

竖曲线数据库输入说明:
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

  • 发表于 2018-11-05 14:10
  • 阅读 ( 52 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

87 篇文章

作家榜 »

  1. admin 87 文章
  2. 胡亮 3 文章
  3. 肖肖 2 文章
  4. 12 1 文章
  5. boyving 1 文章
  6. 焦淑闻 0 文章
  7. 王家勇 0 文章
  8. 刘知远 0 文章