fx5800p程序.docVIP

开通黄钻 最终版5800P正反算及超欠挖 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→