卡西欧5800计算机隧道程序,卡西欧5800计算器线路隧道一体程序

henhao

1-JIN YU(主程序)

Lbl 4: “1→ZS,2→FS,3→CQW”?N(选择计算模式，1为正算，2为反算，3为超欠挖) N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3

Lbl 1: “K=”? S：“P=”? Z：Prog “SJ-PM”： Abs(S-O) → W：Prog “SUB1-ZS”： “X=”：Locate4,4,X: “Y=”：Locate4,4,Y:F-90→F:S→ K:Prog“SJ-GC”：“H=”：Locate4,4,H：“W=”: Locate4,4,F°◢

Goto 4

(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)

Lbl 2:“X=”? X：“Y=”？ Y:Prog“SJ-PM”： X→ I： Y→ J：Prog "SUB2-FS"：O+W→S: “K="：Locate4,4, S ：“P="：Locate4,4, Z：S→ K:Prog“SJ-GC” ：“H=”：Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢

Goto 4

(反算-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)

Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ-PM”： X→ I： Y→ J：Prog "SUB2-FS"：O+W→S: “K="：Locate4,4, S ：“P="：Locate4,4, Z：S→ K:Prog“SJ-GC” ：“H=”：Locate4,4, H◢ Prog“SJ-CQW” ◢

Goto4

(超欠挖-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y？=)

SJ-PM(子程序名-平面线形数据库)

If S ≥59227.681(线元起点里程):Then 2599818.013→U(线元起点X坐标)：496887.918→V(线元起点Y坐标)：59227.681→O(线元起点里程)：20828’39”→G(线元起点方位角)：100 →H(线元长度)：1×1045→P(线元起点曲率半径)：1×1045→R(线元终点曲率半径)：0 →Q(线元左右偏标志：左-1右1直0)：IfEnd

If S ≥59327.681(线元起点里程):Then 2599730.112→U(线元起点X坐标)：496840.237→V(线元起点Y坐标)：59327.681→O(线元起点里程)：208028’39”→G(线元起点方位角)：90 →H(线元长度)：1×1045→P(线元起点曲率半径)：750→R(线元终点曲率半径)：-1 →Q(线元左右偏标志：左-1右1直0)：IfEnd 0