5800万能竖曲线程序

卡西欧5800竖曲线万能程序

程序代码：
“N=?,NEW=0，OLD≠0”?N: N≠0=>Goto S:“A=”?A:“B=”?B:“O=”?O:“G=”?G:“R=”?R: Lbl S: “S=”?S :O-S→L:A-B→W:Abs(R*W÷2→T:O-T→M:
O+T→P：IfS≤M:Then G-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:Else Goto6:IfEnd:IfEnd:IfEnd:Lbi3:If W＞0:Then G+(M-S)2÷2÷R-L*B→H：Goto5：Else If W＜0:Then G-(M-S)2÷2÷R-L*B
→H:Goto5:IfEnd:IfEnd:Lbi4:If W＞0:Then G+(S-P)2÷2÷R-L*A→H:
Goto5:Else If W＜0:Then G-(S-P)2÷2÷R-L*A→H:Goto5:IfEnd:IfEnd:
Lbl 6:G-AL→H:Goto5：Lbl 5: “H=”:H◢Goto S（为所求桩高度）
说明：
S:待求高桩号。A:大里程坡度。B:小里程坡度。O：变坡点里程。G: 变坡点高度。R：半径。
N:等于0为输入新的参数数据，反之进入桩号求高度计算。

最后编辑：2019-08-01

作者：dawang

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

站内专栏