超高及高程（源程序）
L1: R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(G－F)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)”
L2: Lbl 6 : ｛S｝
L3: S+T－N<0 D=O+(S－N)F: S－N<0 D=O+(S－N)F－U(S－N+T)2÷2÷V: S－N≤T D=O+(S－N)G－U(T－S+N)2÷2÷V: D=O+(S－N)G D“ H=” ◢
L4: R< E= : M= Goto 1: R< E= : M= Goto 1:
L5: Lbl 1 : M ≥ L C=L: Goto 2: C=M
L6: Lbl 2 : P X >0 Goto 3 : Goto 4
L7: Lbl 4 : S ≤Z I=0.02 : Goto 5

由本站论坛整理，谢谢　火溪河　分享