5800全线标高计算程序

5800计算器标高计算程序---BG 1. 「b」0:”DKI”?K2. IF K>21780.824 then K≤21837.409:Else K+5.206→K Ifthen3. IF K≤18640.78 then 18050→Q: 0.013→X: -0.033→Y: 276→T:263.79→E:12000→R:...

5800计算器标高计算程序---BG

1. 「b」0:”DKI”?K
2. IF K>21780.824 then K≤21837.409:Else K+5.206→K Ifthen
3. IF K≤18640.78 then 18050→Q: 0.013→X: -0.033→Y: 276→T:263.79→E:12000→R:-1→N:Goto1 IfEnd
4. IF K≤19169.00 then 18870.78→Q:0.033→X: 0.01→Y:230→T: 236.71→E:2000→R:1→N:Goto1 IfEnd
5. IF K≤20766 then 20130→Q:0.0285→X: -0.01943→Y:287.6→T: 252.24→E:12000→R:-1→N:Goto1 IfEnd
6. IF K≤21780 then 20950→Q: -0.01943→X: 0.005→Y:183.24→T: 236.3→E:15000→R: 1→N:Goto1 IfEnd
7. IF K≤22467 then 21931.03→Q: 0.005→X: -0.0095→Y:145.00→T: 241.19→E:20000→R: -1→N:Goto 1 IfEnd
8. IF K≤23072.47 then 22613.45→Q: -0.0095→X: 0.01→Y:146.25→T: 234.71→E:15000→R: 1→N:Goto 1 IfEnd
9. IF K≤23564.98 then 23260→Q: 0.01→X: -0.015→Y:187.53→T: 241.17→E:15000→R: -1→N:Goto 1 IfEnd
10. IF K≤24619.5 then 23780→Q: -0.015→X: 0.028→Y:215.02→T:233.37→E:10000→R: 1→N:Goto 1 IfEnd
11. IF K≤25955 then 24840→Q: 0.028→X: -0.021→Y:220.50→T:263.05→E:9000→R: -1→N:Goto 1 IfEnd
12. 「b」1:If K≤Q:then Goto4 IfEnd
13. If K≥Q+T then 0→M:Else N→M IfEnd
14. E+Y*(K-Q)+M*(K-Q-T)2/(2R) →H
15. “H=”:H=
16. Goto 0
17. 「b」4:If K≤Q-T then O(是欧)→M:Else N→M IfEnd
18. E+X*(K-Q)+M*(K-Q+T)2/(2R)→H
19.  “H=”:H=
20. Goto 0
本程序支持在竖曲线上有断链得计算

  • 发表于 2018-11-05 14:09
  • 阅读 ( 36 )
  • 分类: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 文章