5800竖曲线

5800竖曲线

主程序[SQ-BG]

“I1”?M:“I2”?N:?R:“BPK”?Q:“BPH”?W
0.01M→M:0.01N→N:tan-1(M)-tan-1(N→A:If A<0:Then -1→O:Else 1→O:IfEnd:RAbs(M-N→L:L÷2→T:Q-L÷2→C:C+L→D:T2÷(2R→E:Cls:Locate 1,1,“AO-TU=”:Locate 12,2, O:Locate 1,3,“E=”:Locate 12,4,E◢
Cls:Locate 1,1,“L=”:Locate 10,1, L:Locate 1,2,“T=”:Locate 10,2,T:Locate 1,3,“QDK=”:Locate 9,3,C:Locate 1,4,“ZDK=”:Locate 9,4,D◢
Cls:Lbl 0:Fix 3:?K:If K≤C:Then W-M(Q-K→H:Else If K≤Q:Then K-C→A:Rtan(180A÷(πR→S:W-TM+SM-S2O÷(2R→H:Else If K≤D:Then D-K→A:Rtan(180A÷(πR→S:W+TN-SN- S2O÷(2R→H:Else K>D=>W+N(K-Q→H:IfEnd:IfEnd:IfEnd:Cls:Locate 1,3,“GH=”:Locate 10,4,H◢
Goto 0

竖曲线要素程序

输入:I1---竖曲线前坡坡度(上坡为正,下坡为负 例:-2.316% 输入 -2.316 )

I2---竖曲线后坡坡度(上坡为正,下坡为负)

R---竖曲线半径                  BPK---竖曲线变坡点桩号

BPH----竖曲线变坡点高程         K---桩号

结果:AO-TU=1时为凸曲线,AO-TU=-1时为凹曲线

E=外距               L=竖曲线长度          T=竖曲线切线长度

QDK=竖曲线起点桩号  ZDK=竖曲线终点桩号   GH=已改正的桩号K的中桩高程

高程放样程序

主程序名GCFY
Fix 3:40→DimZ
定义小数位保留数位
(3表示保留了3位小数)和额外变量

Lbl 1

”KP=”? →Z[4]

输入桩号

Prog“GC1”

“H”:Z[5] ◢

显示高程

Goto 1

程序名GC1
Prog “GC3”

Z[8]÷100→Z[8]: Z[9]÷100→Z[9]

Z[10]Abs(Z[9]- Z[8])÷2→Z[31]

If Z[4]<Z[6] Or Z[4]>Z[7]: Then Cls: Locate 6,2,"KX"◢
当不在计算范围是后屏幕显示kx并停止程序

Stop:IfEnd

If Z[9] > Z[8]:Then 1→Z[32]:Else -1→Z[32]:IfEnd

If Z[4]< Z[29]:Then - Z[8]→Z[34]:Else Z[9]→Z[34]:IfEnd:Abs (Z[29]- Z[4])→Z[33]

If Z[33]> Z[31]:Then Z[30]+ Z[34] × Z[33]→Z[5] : Else Z[30]+Z[34] ×Z[33]+ Z[32] ×(Z[31]-Z[33])²÷2÷Z[10]→Z[5]

程序名GC2
Mat C[1,1] →Z[6]: Mat C[1,2] →Z[7]: Mat C[1,3] →Z[8]: Mat C[1,4] →Z[9]: Mat C[1,5] →Z[10] : Mat C[1,6] →Z[29] : Mat C[1,7] →Z[30]

程序名 GC3

If Z[4]≤(下一竖曲线起点里程):Then[[(上一竖曲线终点里程),(下一竖曲线起点里程),(本竖曲线小里程坡度输入%号以前的数字有正负),(本竖曲线大里程坡度%号以前的数字有正负),(本竖曲线半径) ,(本变坡点里程) ,(本变坡点高程)]] → Mat C :Prog” GC2”: Return: IfEnd

If Z[4]≤(下一竖曲线起点里程):Then[[(上一竖曲线终点里程),(下一竖曲线起点里程),(本竖曲线小里程坡度输入%号以前的数字有正负),(本竖曲线大里程坡度%号以前的数字有正负),(本竖曲线半径) ,(本变坡点里程) ,(本变坡点高程)]] → Mat C :Prog” GC2”: Return: IfEnd

If Z[4]≤(下一竖曲线起点里程):Then[[(上一竖曲线终点里程),(下一竖曲线起点里程),(本竖曲线小里程坡度输入%号以前的数字有正负),(本竖曲线大里程坡度%号以前的数字有正负),(本竖曲线半径) ,(本变坡点里程) ,(本变坡点高程)]] → Mat C :Prog” GC2”: Return: IfEnd

………………………(无限添加)

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

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章