casiofx-5800P计算器三个公路基本测量程序编写与应用.docxVIP

PAGE PAGE # Casiofx-5800P计算器三个公路基本测量程序编写与应用四公司资三公路项目部 刘兴春 引论： casiofx-5800P 计算器测量程序在计算机网络上多有流传， 但有的测量主程序算法 复杂， 编程繁琐；有的程序内容表达错误，有的不能进行综合线形的测设、 能应用于工程实 际的廖廖无几。 本文通过对公路测量三个基本程序 （公路路线任意桩号坐标正反算、 公路任 意桩号高程计算、高边坡边坡放样）的介绍，提出了 casiofx-5800P 标准程序，聊供同行参 考。 一、 三个主程序的简介： 1、 公路路线任意桩号坐标正反算 正算是根据测量者输入的桩号和距中桩距离计算出所求点的坐 标和测站点到该点的方位角、 水平距离。 反算是根据使用者输入的实 测坐标计算出该点的桩号和距中桩距离。可用于计算公路综合线形， 在计算器内存许可的条件下，不受“断链”的影响，也没有计算里程 的限制。 2、 公路任意桩号高程计算 在输入所求点距离路面的厚度、所求点桩号、路面横坡值、路面 某点至中桩距离后显示该点高程。 3、 高边坡边坡放样 根据现场测量得的坐标和高程数据，利用程序求出立镜点与边坡 点的距离，逐步渐近求得边坡坡脚线位置。 二、 程序编写 各测量程序分为二个部分：数据库程序和主程序。数据库为线路 对应的设计参数，随工程而定。主程序为算法，一般固定不变。 1、公路路线坐标算法 宜采用缓和曲线在坐标系下任意位置的通用积分公式， 它完全适 应缓和曲线左偏、右偏、Rs Re、Rs Re等各种情况，不必先凑成 完整缓和曲线，降低了算法的复杂程度。在直线与圆曲线情况下，通 过对Rs, Re进行设定，即可适用。 单线元通用积分公式如下 M = (1.0/Re-1.0/Rs)/Ls; x= /( cos(Ta + L/Rs + 0.5*M *L*L) , 0, L}; y= /( sin(Ta +L/Rs + 0.5*M *L*L) , 0, L}; a(i)= Ta +L/Rs + 0.5*M *L*L Rs:缓和曲线起点半径 Re:缓和曲线止点半径 Rs, Re ( NE坐标系下，右偏为正，左偏为负) Ta:缓和曲线起点的真北方位角 Ls:不完整缓和曲线长度。 QXJS-OOO(程序名可自定) 主程序 Lbl 4: “ 1.SZ=NE : “2.NE=SZ :?Q:?S:Prog “QXJS-SUBO / 提示输入“ 1”，“2”，调用数据库子程序； Lbl 0:Q=1 = Goto1:Q=2 = Goto2: / 选择进入正算或反算程 序; Lbl 1:?Z:Prog “QXJS-SUB1: “N= :NJ “E= :E丄 “F=” :F 切MS 丄:Goto3 / 输出正算坐标； Lbl 2: “N= :?B: “E= :?C:B—N: E:Prog “QXJS-SUB2: “S= :S J“Z=” :Z JGoto4/ 输出反算中桩号及距中桩距离； Lbl 3: I =Pol (N-Z： 1] ,E-Z[2]): Jv0=J = J+360: “DIST =”：I J “FW=”： J电MSJ Goto4 / 输出与测站点的距离和方位角； 返回 主程序提示输入界面； (Z : 1]为测站点X坐标，Z :2]为测站点Y坐标) 2、数据库子程序QXJS-SUB0 2、数据库子程序 QXJS-SUB0 Gotol/ 数据库子程序 同时保存多个曲线时的指针 Lbl 1 IF Sv*** (线元终点里程)：The n*** - A (线元起点方位角)：*** f Q线元起点里程)：*** -(线元起点X): *** -V(线元起点Y): *** -P (线元起点曲率半径)：*** -R (线元终点曲率半径)：*** -L (线元起点至终点长度) : Return:IfEnd / IF Sv***：Then****** - P： IF Sv***：Then*** *** - P：*** R： *** -L： Return：IfEnd / ..为了便于解读，每增加一个线元增加一行语 句，每增加一条曲线增加一个 Lbl ，每增加一个工程增加一个文件。 注意：Goto n — Lbl n 为转移命令，其中n为从0到9之间的整数，或从 A到Z之间 的变量名称，如果线路曲线较多，转移命令超过十个，可在第十个( Lbl 9 )中加入第二层 子程序，以解决转移命令超过十个的情况。 QXJS-SUB1 正算子程序 0.5 (1 一 R-1 一 P) 一 L-D:S-O-X/ U+/ (cos(A+(X 一 P+DX X 180- n ,0,X) -NX V+/(sin(A+(X 一 P+DX x 180- n ,0,X) -E/ A+(