文档介绍：4850高程程序
主程序子程序:GCS
L b l 0 : { P M } : P " H O U L b l 0 : Z
D U " : M " B M + H S " ↙ o 1 : ≠=> Z
L b l 1 : { U Z } : Z " Z H U o 2 : ≠=> …
A N G H A O " : Z < 0 => G o t L b l 1 : Z
o 0 ⊿ U " B I A N J U : Z + 9 : H = 3 2 1
, Y - " : P r o g " G C S " ↙ 0 : I = - 3 :
L b l 1 : B = 0 : G = I : Z > Y = 0 . 0 5 :
K => G = J ⊿ X = H + G ( Z - K ) 2 2 1 . 3 1 :
÷ 1 0 0 : V = I - J : D = R ( A : ≠=> Z < 2 3
b s V ) ÷ 2 0 0 : N = ( A b s
V ) ÷ V : A b s ( K - Z ) <
D => X = X - N ( D - A b s ( Z
- K ) ) ^ 2 ÷ 2 ÷ R ⊿ X = X - P
: U = 0 => G o t o 3 : ≠=> Y =
0 => G o t o 3 : ≠=> Z < F => G
o t o 3 : ≠=> Z > Q => G o t o
3 : ≠=> G o t o 2 ↙
L b l 2 : O = A b s ( U Y )
÷ ( U Y ) : - O A b s U > 5 . 不是最好的,但绝对可用,这次特别抽了点时间按计算器显示的格式输入到了电脑。可以一次输入整条路的要素,以后只需输入桩号及距离中桩距离就可以了。(本资料完全免费,欢迎交流,转载请注明出处:[路桥吾爱])
5 => B = A b s U - 5 . 5 : U =
5 . 5 ⊿ G o t o 4 ↙
L b l 3 : T = X + E A b s U
- 0 . 0 2 B : { L } : L " Q I A
N S H I " : L > 5 => L = L ÷ 1
0 0 0 ⊿ M - L - T ◣
G o t o 1 ↙
L b l 4 : Z < F + W => E = ( Z
- F ) ( O E - E ) ÷ W ÷ E : G o
t o 3 : ≠=> Z < ( F + W + S )