朱金秀，盖侨侨

(安徽理工大学测绘学院，安徽 淮南 232001)



基于VB的圆曲线偏角法测设程序

朱金秀，盖侨侨

(安徽理工大学测绘学院，安徽 淮南 232001)

介绍了利用VB良好的人机交互对话界面，运用VB代码设计出一种与传统圆曲线测设一致的智能数据处理软件程序，并验证了程序的易用性与可靠性。

圆曲线；偏角法；Visual Basic 6.0；放样数据

在应用工程测量学中经常遇到道路曲线测设问题，放样数据的处理是曲线测设的基础，传统的手工计算计算量大、烦琐且容易出错，直接影响线路工程的效率和质量。

为快速有效的完成任务，本文基于VB语言编写了计算圆曲线道路放样数据的程序，通过对偏角法对应放样数据的计算进行了编程实现。

1 设计原理

1.1 曲线要素计算

圆曲线要素包括曲线半径R、线路转角α、切线长T、曲线长L、外矢距E和切曲差q。其中，曲线半径R和线路转角α在线路的勘探设计阶段给出，其他四个要素的计算公式如下。

q=2T-L

图1 圆曲线示意图Fig.1 Schematic diagram of circular curve

里程计算：

按顺序JD→ZY→QZ→YZ

ZY里程=JD里程-T

QZ里程=ZY里程+L/2

YZ里程=QZ里程+L/2

检核：检验JD里程+T-q的值是否与上式计算结果一致。

1.2 圆曲线基于偏角法的详细测设

圆曲线基于偏角法的详细测设计算要素主要包括偏角Δ(i)，细部点距ZY点或YZ点曲线长lh(i) ，相邻桩点之间的弦长cx(i)相邻桩点之间的弧长cn(i)，里程l(i) ，计算方法如下式。

Δ(i) =Δ(1) + (i - 1) ×Δ(0)

lh(i)=2×R×sin(Δ(i))

cn(i) = cn(1) + (i - 1) ×c

l(i) = l(1) + (i - 1) × c

图2 偏角法放样示意图Fig.2 Schematic diagram of laying off by deflection angle method

2 程序实现

2.1 曲线要素及主点里程计算

T = Int((R * Tan(α / 2)) * 100 + 0.5) / 100

l = Int(α * R * 100 + 0.5) / 100

E = Int(R * (1 / Cos(α / 2) - 1) * 100 + 0.5) / 100

q = Int((2 * T - l) * 100 + 0.5) / 100

lzy = lc - T

lqz = lzy + l / 2

lyz = lqz + l / 22.2 求ZY点到QZ点偏角偏距(ZY点到QZ点类似)

第一，求半条曲线离首端最近一点的分弦cn(1)，到ZY点的距离l(1)，偏角Δ(1)。

cn(1) = Int(lczy) - Int(lczy) Mod c + c - lczy

l(1) = Int(lczy) - Int(lczy) Mod c + c

Δ(1) = (cn(1) / (2 * Form3.R)) * (180 / Form2.pi)

Δ0 = c / (2 * Form3.R) * (180 / Form2.pi)

第二，求前半段点的偏角偏距。……