工程测量中CASIO fx―5800P编程计算器线路坐标通用程序应用探讨.docVIP

工程测量中CASIO fx―5800P编程计算器线路坐标通用程序应用探讨 　　摘 要：随着CASIO fx-5800P可编程计算器在工程测量中广泛应用，编辑一个线路正算程序，不同的工程只需改变通用程序数据库的曲线要素，然后输入里程和到中桩的左右偏距，即可提供线路任意点坐标。 　　关键词：线路正算；里程；线元；坐标；偏距 　　前言 　　1 程序中涉及的几个概念说明 　　1.1 线路正算：根据里程和到中桩的左右偏距，求坐标。 　　1.2 偏距：系指线路某点在法线方向偏离线路中线的距离。直线上垂直于线路方向，曲线上垂直于切线方向。 　　1.3 主程序名称：“MG-ZB” 　　Lbl 3：“DKI”？K：Prog“DAT-M”： Prog“GBZS”？坻 　　Goto3？坻 　　注：（ DAT-M与数据库程序“DAT-M”对应） 　　1.3.1 子程序1：程序名“GBZS” 　　Lbl 0：（P-R）÷（2（H-O）PR）→D：“L（-ZUO+YOU）”？L：“YJJ”？M：Abs（K-O）→J：Prog“SUB1”：F-M→F 　　“F=”：F？?DMS？? 　　“X=”：U→X？? 　　“Y=”：V→Y？?? 　　1.3.2 子程序2：程序名“SUB1” 　　4→DimZ：0.1184634425→A：0.2393143352→B：0.2844444444→Z[4]：0.0469100770→C：0.2307653449→E：0.5→Z[1]：I+J（ACos（G+QCJ（1÷P+CJD）×180÷∏）+BCos（G+QEJ（1÷P+EJD） ×180÷∏）+ Z[4]Cos（G+QZ[1]J（1÷P+Z[1]JD） ×180÷∏）+BCos（G+Q（1-E）J（1÷P+（1-E）JD）×180÷∏）+ACos（G+Q（1-C）J（1÷P+（1-C）JD）×180÷∏））→X： 　　S+J（ASin（G+QCJ（1÷P+CJD） ×180÷∏）+BSin（G+QEJ（1÷P+EJD） ×180÷∏）+Z[4]Sin（G+QZ[1]J（1÷P+Z[1]JD） ×180÷∏）+ BSin（G+Q（1-E）J（1÷P+（1-E）JD） ×180÷∏）+ASin（G+Q（1-C）J（1÷P+（1-C） JD） ×180÷∏）） →Y： 　　G+QJ（1÷P+JD） ×180÷∏+M→F？坻 　　X+LCos（F） →U？坻 　　Y+LSin（F） →V？坻 　　1.3.3 子程序3： 　　数据程序名：“DAT-M”（DAT-M可以随意改，但要和MG-ZB主程序匹配） 　　If K“终点里程”：Then STOP：Return：IfEnd？坻 　　If K≥“直线起点里程”And K？芨“直线终点里程”：Then“直线起点X坐标”→I ：“直线起点Y坐标”→S：“直线起点里程”→O：“直线方位角”→G：“直线：终点里程”→H：1×1045→P ：1×1045→R：0→：Q Return：IfEnd？坻 　　If K“缓和曲线起点里程” And K？芨“缓和曲线终点里程”：Then“缓和曲线起点X坐标”→I：“缓和曲线起点Y坐标”→S：“缓和曲线起点里程”→O：“方位角”→G：“缓和曲线终点里程”→H：1×1045→P：“圆曲线半径”→R：+1或-1→Q：Return：IfEnd？坻 　　If K“圆曲线起点 里程”And K？芨“圆曲线终点”：Then“圆曲线起点X坐标”→I：“圆曲线起点Y坐标”→S：“圆曲线起点里程”→O：“方位角”→G：“圆曲线终点里程”→H：“圆曲线半径”→P：“圆曲线半径”→R：+1或-1→Q：Return：IfEnd？坻 　　If K“缓和曲线起点里程” And K？芨“缓和曲线终点”：Then“缓和曲线起点X坐标”→I：“缓和曲线起点Y坐标”→S：“缓和曲线起点里程”→O：“方位角”→G：“缓和曲线终点里程”→H：“圆曲线半径”→P ：1×1045→R：+1或-1→Q：Return：IfEnd？坻 　　If K“直线起点里程”And K？芨“直线终点里程”：Then“直线起点X坐标”→I ：“直线起点Y坐标”→S：“直线起点里程”→O：“直线方位角”→G：“直线：终点里程”→H：1×1045→P：1×1045→R：0→：Q Return：IfEnd 　　输入完了第一部分的时候退出编辑，运行程序，里程输入直线终点里程，偏距输入0，方位角既是第一缓和曲线起点方位角。 　　输入完了第二部分的时候退出编辑，运行程序，里程输入第一缓和曲线终点里程，偏距输入0，方位角既是圆曲线起点方位角。 　　输入完了第三部分的时候退出编辑，运行程序，里程输入园曲线终