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

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-000（程序名可自定） 主程序 Lbl 4:“1.SZ=NE”:“2.NE=SZ”:?Q:?S:Prog“QXJS-SUB0”↙ 提示输入“1”，“ Lbl 0:Q=1 = Goto1:Q=2 = Goto2:↙ 选择进入正算或反算程序； Lbl 1:?Z:Prog“QXJS-SUB1”:“N=”:N◢“E=”:E◢“F=”:F DMS◢: Goto3↙ 输出正算坐标； Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢“Z=”:Z◢Goto4↙ Lbl 3：I＝Pol（N－Z［1］,E－Z［2］）：J＜0＝＞J＝J+360：“DIST＝”：I◢ “FW＝”：J DMS◢ Goto4↙ 输出与测站点的距离和方位角；返回主程序提示输入界面； （Z［1］为测站点X坐标，Z［2］为测站点Y坐标） 2、数据库子程序 QXJS-SUB0 数据库子程序 Goto1↙ 同时保存多个曲线时的指针 Lbl 1 IF S***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:*** →P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ IF S***:Then***→A:***→O:***→U:***→V:***→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+DX2)×180÷π,0,X)→N↙ V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙ A+(X÷P+DX2)×180÷π→F↙ N+Zcos(F+90) →N:E+Zsin(F+90) →E QXJS-SUB2 反算子程序 Lbl 1:0→Z：1→Q：Prog“QXJS-SUB0”: