5800线元法修正版程序编写

1.2版本，添加了遗漏的标点符号，修改了竖曲线与隧道，让隧道测量步骤简化一些。

此程序根据4850线元法程序改编，本人第一次编写程序内容可能有些不尽人意敬请谅解.

程序名称不可更改，包括符号，也不要擅自删减子程序，如需更改必须与各子程序相呼应，否则将无法调动程序进行计算。

1~16页为程序说明与应用步骤具体解释，17~26页为程序编写，所有S开头后面有横杠的为各项数据库，如换线路更改数据库即可完成各项计算。

注意：程序编写时有下划线字符为一次性输入字符，不可拆分。

置仪点X坐标输入时必须输入小数，如果无小数将默认调动

导线点数据库（例如3843.000那么请输入3843.0001并不影响

计算）

程序名（0-0）主程序目录

（U=1）:数据库输入原始数据计算中边桩*

（U=2）: 数据库输入原始数据反算线外点垂桩距状态（线路任一点坐标反算桩号及偏距）*

（U=3）:计算平面位置检查记录表

（U=4）:人工输入原始数据计算中边桩（数据库计算线元方位角）* （U=5）:人工输入原始数据推算开挖、填筑桩状态（不常用）

（U=6）:数据库输入原始数据推算开挖、填筑桩状态*

（U=7/7.1）:计算斜交斜做涵洞单跨桥、斜交正做涵洞七点放样状态并能避免曲线内单跨桥涵进出水口长度不一致，同时适

用于曲线桥扇形布桩的盖梁放样，曲线桥扇形布桩的支

座放样。*

（U=8）: 数据库输入原始数据计算锥坡放样

（U=9）: 后方交会

（U=10）: 数据库输入原始数据求线外两点交路线的桩号与夹角

（U=11）: 圆心辐射法隧道断面超欠挖（适合各种隧道线型）*

（U=12）: 手动输入原始数据求多边型面积、亩数*

（U=13）: 数据库输入原始数据求设计高程（竖曲线）*

（U=14）: 坐标正反算小程序

（U=1）数据库输入原始数据计算中边桩

（Y）置仪点X坐标（也可输入导线点编号，输入导线点编号即可使用导线点数据库）

（O）置仪点Y坐标（当X坐标输入导线点编号后则此行不显示，因数据库已装入X和Y坐标）

（B）步长（步长就是间隔长度，当要计算大量有相同距离间隔且相同中边桩，步长就是好东西了，输入数量每次计算自动加减桩号距离）

（Q）所求桩号（计算第二个桩开始Q已经自动加入步长不用手动输入，但仍然会显示给你看，并可修改成别的桩号）

（V）中桩到边桩的方位角，即与中桩前进方向方位角的夹角（注意：左转为负数，右转为正数）

（D）中桩到边桩的距离（中桩输入0）

计算完成会显示四个成果：DMS放样方位角（置仪点与所求桩号的

放样方位角）

I放样距离（置仪点与所求桩号的放样距

离）

所求桩号的X坐标

所求桩号的Y坐标

按—号继续下一步放样计算

（U=3）数据库输入原始数据计算中边桩（偏差检测、资料编写）（B）步长（步长就是间隔长度，当要计算大量有相同距离间隔且相同中边桩，步长就是好东西了，输入数量每次计算自动加减桩号距离）

(MM)所允许的最大误差（毫米为单位，比如高速的中线最大误差是20MM，就输入20）

（Q）所求桩号（计算第二个桩开始Q已经自动加入步长不用手动输入，但仍然会显示给你看，并可修改成别的桩号）

（V）中桩到边桩的方位角，即与中桩前进方向方位角的夹角（注意：左转为负数，右转为正数）

（D）中桩到边桩的距离（中桩输入0）

计算完成会显示四行成果：DMS放样方位角（置仪点与所求桩号的

放样方位角）

I放样距离（置仪点与所求桩号的放样距

离）

所求桩号的X坐标

所求桩号的Y坐标

按（—）号显示偏差检测成果：所求桩号的X坐标

所求桩号的Y坐标

所求桩号的双轴偏差X轴偏差

Y轴偏差按-号下一步计算

（U=4）人工输入原始数据计算中边桩（线元角计算）

（Y）置仪点X坐标

（O）置仪点Y坐标

（B）步长

（H+）起算点桩号

(E)起算点X坐标

(F) 起算点Y坐标

(A)起算点方位角

(+-C)起算点曲率（即为半径分之一，也就是1/半径，直线为0，左

转为负，右转为正）

(+-Z)终算点曲率（即为半径分之一，也就是1/半径，直线为0，左

转为负，右转为正）

(G)终算点桩号

(Q)所求桩号(既是起算点桩号，因程序内字符转换冲突只好再输入) (V)左右夹角（左转为负，右转为正，中桩输入0）

(D)中边桩距离（中桩输入0）

计算完成会显示四个成果：（此处可忽略，参照U=1计算成果）

计算完成按（AC/on）一次，然后按（EXIT）将内容（Prog 0-0）清除输入字母(R)，再按（EXE）显示为线元方位角数字（注：必须用度，分，秒抄记，因为计算结果为百进位，度分秒为60进位）注：此计算成果谨适用于数据库线元角输入（即：数据库曲线段线元角ZH~HY、HY~YH、YH~HZ段）

（U=5）:人工输入原始数据推算开挖、填筑桩状态（不常用）（Y）置仪点X坐标

（O）置仪点Y坐标

（H+）起算点桩号

(E)起算点X坐标

(F) 起算点Y坐标

(A)起算点方位角

(+-C)起算点曲率（即为半径分之一，也就是1/半径，直线为0，左

转为负，右转为正）

(+-Z)终算点曲率（同上）

（G）终算点桩号

（W）实测大地高程

（S）变坡点设计高程

(I) =变坡点设计高程与实测大地高程之高差（正为填方、负为挖方）(P) 填方或挖方的坡比（若1:0.75则输入0.75填挖坡比全为正）（B）中桩到变坡点的宽度

（D）=推算的中桩到开挖、填筑桩距离

（D?）采用的中桩到开挖、填筑桩距离

（Q）所求开挖、填筑桩号

(V)左右夹角（注：只能输入线路右边90和左边-90因为开挖、填筑桩总是垂直的）

计算完成显示四个结果：（同U=6显示结果相同，按—号下一步计算）