5800p盾构管片计算程序

线路中边桩坐标正反算程序(2013-9-18)

MAIN-PROG(主程序)

Lbl 4: 9→DimZ：“1→ZS,2→FS，3→GPZT”?N(选择计算模式，1为正算，2为反算,3为管片姿态计算)

N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3

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

Goto 4

(正算-输入待求点里程K=、输入待求点偏距PJ=、显示待求点里程X=、显示待求点里程Y=、显示待求点方位角W=、显示待求点高程H=)

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

(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距PJ=)

Lbl 3:“X=”?X：“Y=”？Y：“H=”？→Z[7]：Prog“SJ-PM”： X→I ：Y→ J：Prog "SUB2-FS"：O+W→S:Prog "SJ-PYL"：Prog "SUB4-PYL"：Z-Z[6]→Z[8]：S→K：Prog “SJ-GC”：Prog “SJ-DCHD”：Z[7]-(H-Z[5])→Z[9]：“SP=”：Locate4,4,Z[8]：“GC=”：Locate4,4,Z[9]◢

Goto 4

（管片姿态计算时，输入全站仪实测的平面坐标X、Y以及水准测得的管片底标高H，结果显示平面偏差“SP=”，左-右+，高程偏差“GC=”，高+低-）

SJ-PM（子程序名-平面线形数据库）里程从DK44+744.5~DK47+160.091

（直线段）If S ≥44744.5（线元起点里程）:Then 315898.3852→U（线元起点X坐标）：509426.7059→V（线元起点Y坐标）：44744.5→O（线元起点里程）：357057’7”→G（线元起点方位角）：179.775 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0→Q（线元左右偏标志：左-1右1直0）：IfEnd

（ZH点）If S ≥44924.275（线元起点里程）:Then 316078.0453→U（线元起点X坐标）：509420.2813→V（线元起点Y坐标）：44924.275→O（线元起点里程）：357057’7”→G（线元起点方位角）：20 →H（线元长度）：1×1045→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

509419.5998→V（线元起点Y坐标）：44944.275→O（线元起点里程）：358014’18”→G（线元起点方位角）：27.589 →H（线元长度）：2000→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（YH点）If S ≥44971.864（线元起点里程）:Then 316125.6149→U（线元起点X坐标）：509418.9419→V（线元起点Y坐标）：44971.864→O（线元起点里程）：359001’43”→G（线元起点方位角）：20 →H（线元长度）：2000→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（HZ点）If S ≥44991.864（线元起点里程）:Then 316145.6131→U（线元起点X坐标）：509418.6696→V（线元起点Y坐标）：44991.864→O（线元起点里程）：359018’55”→G（线元起点方位角）：367.91 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（ZH点）If S ≥45359.774（线元起点里程）:Then 316513.4970→U（线元起点X坐标）：509414.2729→V（线元起点Y坐标）：45359.774→O（线元起点里程）：359018’55”→G（线元起点方位角）：55 →H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（HY点）If S ≥45414.774（线元起点里程）:Then 316568.4802→U（线元起点X坐标）：509413.0227→V（线元起点Y坐标）：45414.774→O（线元起点里程）：357027’41”→G（线元起点方位角）：25.775 →H（线元长度）：850→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（YH点）If S ≥45440.549（线元起点里程）:Then 316594.2078→U（线元起点X坐标）：509411.4910→V（线元起点Y坐标）：45440.549→O（线元起点里程）：355043’27”→G（线元起点方位角）：55 →H（线元长度）：850→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd

（HZ点）If S ≥45495.549（线元起点里程）:Then 316648.9508→U（线元起点X坐标）：509406.2087→V（线元起点Y坐标）：45495.549→O（线元起点里程）：353052’14”→G（线元起点方位角）：63.397 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd