卡西欧5800计算器公路测量程序编写及使用secret.pdf

5800公路测量程序使用说明公路测量程序使用说明 一、程序使用流程 本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里， A 匝道，文件 名为A，将匝道A所有的曲线线元参数输入A 文件里。运行时只要运行文件名A 的程序就可以了，具体运 行流程见下图： 二、数据文件的编写 （一）交点法数据文件编辑 交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如 果任意一端没有直线段，则把直线段长度看做是 0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且 和直线段连接处的半径必须是无穷大。 交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包 括：弯道起点方位角（C），交点X坐标（D），交点），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线 时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半 径（R）。 下图是一段市政道路设计参数数据。 根据上图提供的数据，可以编辑成如下的数据文件： 文件名:CHLNR 3→DimZ “X0”?A:”Y0”?B: “Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L0 :Then 98°39°35.12°→C：4474.384→D .861→E：140→F：31°17°23°→G：410.007→H:600→R:IfEnd: If L1060 Then 129°56°58.19°→C: 4206.421→D ：3093.946→E ：70→F ：-33°50 °48 °→G ：1285.437→H:600→R:IfEnd:Prog”XLJS”:If Z[3] ≠0. 0001:Then Goto 0:Else0:Else (Z[1]－X)cos( Ｏ)＋(Z[2]－Y)sin( Ｏ)→N:L ＋N→L: －(Z[1]－X)sin(O)+(Z[2] －Y)cos （ O ）→ ：If Abs （N ）≥0.001 ：Then Goto 1：Else “L= “:L ◢ “K= ”: ◢ IfEnd:Goto 0: IfEnd 在面程式中，有两个条件转移语句即 If L0 ：Then 98 °39 °35.12 °→C:4774.384→D: 2415.861→E:140→ F:31 °17°23 °→G:410.007→H:600→R:IfEnd If L1060 ：Then 129 °56°58.19 °→C:4206.421→D: 3093.946→E:70→F:-33 °50 °48 °→G:1285.437→H:600 →R:IfEnd …… 如果还有其他弯道，可以继续完后加。在这些存放设计参数的语句前后的程序表达式是固定的。 说明： 编辑曲线参数时，每个曲线参数放在一个每个曲线参数放在一个If L***.*** （两个弯道中间直线段上的任意桩号）:Then ***°**° **.**°→C （弯道起点方位角）（弯道起点方位角）：****.***→D （交点X 坐标）：****.****→E （交点Y 坐标）：***.***→F （缓 和曲线长度：**°**°**°→G （转角，向左转为负值，向右转为正值）：***.***→H （交点里程桩号）:*** →R （圆曲线半径）:IfEnd 条件式语句里，如果有多个弯道，一直按上述形式编下去，条件式语句里，如果有多个弯道，一直按上述形式编下去， 变量说明：变量说明： 1、 L***.*** 弯道参数的起点范围，可以是弯道起点，也可以是弯道前直线段里的任意点桩号 2、 ***°**°**.**°→C 弯道起点方位角 3、****.***→D 、****.****→E 交点X 坐标、Y 坐标 4 、***.***→F 缓和曲线长度，如果没设置缓和曲线，则缓和曲