任意坐标正反算及隧道超欠挖程序最终版.docVIP

任意坐标正反算及隧道超欠挖程序最终版 2013-6-1 说明：一直以来程序正反算没有问题，只是高程不对，那超欠挖就扯谈了，经修改实践后，本程序决对能用。此程序以后不会再有什么改动。如果您的计算器不能运行或是计算错误，请认真核对，因为每一个语句命令我都反复核对计算器，运行顺畅无误。 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: “K L ”? S: “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 反算- 输入反算点大概里程K L 、输入实测点X 、 输入实测点Y 、显示实测点里程K 、显示实测点偏距P 、显示实测点的设计高程H Lbl 3: “K L ”? S: “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°◢ Prog“SJ-CQW” ◢ Goto4 超欠挖-输入实测点X 、 输入实测点Y 、显示实测点里程K 、显示实测点偏距P 、显示实测点的设计高程H 、输入实测高程H1 、显示超欠挖值及第几圆心上CQ→Y？ SJ?-PM（子程序名-平面线形数据库） （JD1前直线段要素输入） If S ≥121000（线元起点里程）:Then 1064587.393→U（线元起点X坐标）：523392.492→V（线元起点Y坐标）：121000→O（线元起点里程）：710 06’07”→G（线元起点方位角）：864.718 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1第一缓和曲线要素输入） If S ≥121864.718（线元起点里程）:Then 1064867.459→U（线元起点X坐标）：524210.598→V（线元起点Y坐标）：121864.718→O（线元起点里程）：71006’07”→G（线元起点方位角）：90 →H（线元长度）：1×1045→P（线元起点曲率半径）：1200→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1圆曲线要素输入） If S ≥121954.718（线元起点里程）:Then 1064895.540→U（线元起点X坐标）：524296.100→V（线元起点Y坐标）：121954.718→O（线元起点里程）：73015’02”→G（线元起点方位角）：425.529 →H（线元长度）：1200→P（线元起点曲率半径）：1200→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1第二缓和曲线要素输入） If S ≥122380.246（线元起点里程）:Then 1064944.123→U（线元起点X坐标）：524716.604→V（线元起点Y坐标）：122380.246→O（线元起点里程）：93034’05”→G（线元起点方位角）：90 →H（线元长度）：1200→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd 两交点夹直线要素 If S ≥122470.246（线元起点里程）:Then 1064936.279→U（线元起点X坐标）：524806.256→V（线元起点Y坐标）：122470.246→O（线元起点里程）：95043’00”→G（线元起点方位角）：