5800全线标高计算程序

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
本程序支持在竖曲线上有断链得计算

最后编辑：2019-08-01

作者：dawang

这个作者貌似有点懒，什么都没有留下。

站内专栏