5800 全线中桩高程 横坡 偏距高程

自己编制的  很好用  一共四个程序  一个主程序  三个子程序数据库   主程序SQX   子程序1   SQX-SJK(竖曲线数据库)   ZX-ZHP(主线左横坡数据库) ZX-YHP(主线右侧横坡数据库)。1  主程序SQX...

自己编制的  很好用  一共四个程序  一个主程序  三个子程序数据库   主程序SQX   子程序1   SQX-SJK(竖曲线数据库)   ZX-ZHP(主线左横坡数据库) ZX-YHP(主线右侧横坡数据库)。
1  主程序SQX :"YIGAO":?Z:?Y:?V:?W:LBI 1:?K:Prog"SQX-SJK":S-T→L:If K<L:Then G+(K-S)I→H:Else G-T×I+(K-L)×I+(K-L)2÷(2R)→H:H◢
Goto 2:IfEnd←
LBI 2 :"Z":Prog"ZX-ZHP":Q◢
Abs(Z-(H+VQ)+Y)→A◢
Abs(Z-(H+WQ)+Y)→A◢
...
"Y":Prog"ZX-YHP":P◢
Abs(Z-(H+VQ)+Y)→A◢
Abs(Z-(H+WQ)+Y)→A◢
.....
Goto 1 ←
2   SQX-SJK :    If K<竖曲线终点:Then 纵坡→I:交点桩号→S:切线长→T:半径(凸为负,凹为正)→R:交点高程→G:Return:IfEnd←
If K<下一个竖曲线的终点.....

3    ZX-ZHP :    If K<桩号:Then 横坡→Q:Return:IfEnd←
例如:   If K<18230:Then -0.02→Q:Return:IfEnd←
横坡变化段就这样编辑,如果在接下来18230-18430 段,横坡从-0.02变化到-0.05,编辑如下:If K<18430:Then -0.02-0.03×(K-18230)÷200→Q:Return:IfEnd←
18230为横坡变化的起点,200为长度,0.03为变化值,看明白也就简单了。以后换一个编辑法,只要输如桩号,长度,变化值,起点横坡,就行,横坡值计算就一小公式放到主程序里也可以。
4  ZX-YHP    If K<桩号:Then 横坡→P:Return:IfEnd←
例如:   If K<18230:Then -0.02→P:Return:IfEnd←
其实和左边一样  把字母变成P,其余的参考左侧横坡数据库说明

说明:Z 为仪器高,后视读数加上后视点高程, Y为路面到路基的厚度,这两个做精加工用,比如路面层厚76公分的话,Y输入0.76。 V,W是距中桩的偏距,当然高速公路有中央分隔带,左右一米一样高,主程序里面那几个句子记得改成这样Abs(Z-(H+(V-1)Q)+Y)→A◢
,要是想多加几个点,可以再加几句小公式就行。
Z有输入的话,算出来的就是设计前视读书,Z输入0,那显示的就是高程。 大家都看得懂  应该。谢谢大家指点。

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

你可能感兴趣的文章

相关问题

1 条评论

请先 登录 后评论
admin
admin

192 篇文章

作家榜 »

  1. admin 192 文章
  2. 老Y 25 文章
  3. 胡亮 4 文章
  4. 肖肖 3 文章
  5. netbee 1 文章
  6. 唯一 1 文章
  7. 梁雄 1 文章
  8. 秦汉 1 文章