5800公路坐标正反算程序(交点法数据输入).doc

上海市宾宏建筑安装工程有限公司 第 PAGE 4页 共 NUMPAGES 7页 CASIO fx-5800P公路坐标正反计算程序 程序说明 因测量工作需要，为了确保计算器丢失后程序丢失造成的不便。根据本人多年工作经历、自学摸索，经多次修改后编制此公路坐标正反算程序，为了能够与广大测量弟兄及编程高手们学习的原望。现将此程序发表共享，有错误或不足之处还请朋友们交流指导为谢！ 为了便于编制、阅读和输入，本程序共拆分为两个主程序与四个子程序组成，其中主程序为：GLZB ZS（公路坐标正算）与GLZB FS（公路坐标反算）。 子程序为： XL（线路）、DXD（导线点）、PQXCS（平曲线参数）和ZB（坐标计算核心）。 本程序采为交点法原理编制，理论上可以计算任何线形线。程序编制时已经输入一条由三个曲线组成的线路为例，其中有一组为不等长缓和曲线的曲线要素参数（详见程序清单），供朋友们校验程序输好后正确予否。 因为CASIO fx-5800自身问题（我认为运算速度很慢）。程序运算速度与您的线路参数多少有关，一般来说正算在5秒内可以出结果，反算在15秒内可以出结果，当然请勿输入一些无意义的数字去尝试，如正算时输入远大于设计起终点N倍米数桩号，反算时输入远离本工程N倍远的坐标等，都不能保证出正确结果，反算时也有可能造成不出结果。 为了能让初学fx-5800计算器编程人员和刚学习测量的学生们更好的了解本程序，我对本程序的每一个语句段进行了详细的注释。注释写得可能很难理解，没办法！本人学历低，表达能力差，有些地方表达起来可能简单的被我解释成复杂化了，我是很希望各位能够读懂我的程序，使用我的成果。为防止不小心程序误改误删，特对本文档进行了编辑加密。如遇表述不妥之处请与本人联系。 QQ群迎你的加入！ 编制人：陈世航 编制日期：2009年7月28日晚 公路坐标正反计算程序 1、程序清单： FileName:GLZB ZS 公路坐标-正算主程序 Deg:Norm 2 ? 计算器设置为角度模式、清除小数点显示位数 Prog“XL” ? 调用‘线路-子程序’，此过程提示输入线路注① Prog“DXD” ? 调用‘导线点-子程序’，此过程提示输入测站点坐标注② Lbl 0 ? Norm 2:Cls ? 清除小数点显示位数、清除屏幕 “K0+000m=”?K:“+Xm=”?B:“α=”?Z ? 提示输入待算点-里程、距中桩米数、转角注③ Prog“ZB” ? 调用‘坐标计算-子程序’计算坐标 J＜0 = J+360→J ? 方位角为负值时加360度 Fix 3:Cls ? 设置小数点保留三位，清除屏幕 “X=”:Locate 5，1，X ? 显示待算点成果X “Y=”:Locate 5，2，Y ? 显示待算点成果Y “=- -=”:Locate 5，3，I ? 显示待算点至测站距离 “= =”:Locate 5，4，J °◢ 显示待算点至测站方位角 Goto 0 FileName:GLZB FS 公路坐标-反算主程序 Deg:Norm 2 ? 计算器设置为角度模式、清除小数点显示位数 1→D:Prog “XL” ? 默认第一条线，调用‘线路-子程序’，此过程提示输入线路注① Lbl 0 ? “X=”?P:“Y=”?Q ? 提示输入待求桩号的坐标X、Y “X K0+000m=”?K ? 提示输入近似桩号注④ Lbl 1 ? 0→B:Prog“ZB” ? 调用‘坐标计算-子程序’序计算近似桩号中桩坐标 Pol (P-X,Q-Y? 计算近似桩号坐标与待求点方位角 Rec (I,V-J ? 计算桩号增量与距