曲线任意里程中边桩坐标正反算.doc

曲线任意里程中边桩坐标正反算(VB6.0)函数(提供测试程序代码）使用说明：1. 在VA或VAB中添加一个窗体，并将其Caption属性改为? ? 曲线任意里程中边桩坐标正反算(VB6.0)??函数2. 在窗体上添加一个文本框，并将其下列属性更改为：名称? ?? ?? ?? ?? ?? ???txt1??? ?? ?MultiLine? ?? ?? ? True? ?? ?ScrollBars? ?? ?? ? 3??Both3. 在窗体上添加三个命令按钮，并将它们的下列属性更改为：按钮一名称? ?? ?? ?? ?? ?? ???Cmd1? ???Caption? ?? ?? ?? ?? ? 正算按钮二名称? ?? ?? ?? ?? ?? ???Cmd2? ???Caption? ?? ?? ?? ?? ? 反算按钮三名称? ?? ?? ?? ?? ?? ???Cmd3? ???Caption? ?? ?? ?? ?? ? 结束4. 将以下程序复制到VA或VBA的代码窗口内，点击运行命令即进行测试。 VB或LISP源码彩色显示注：在 ... 复制代码 内就以下面格式显示文字，双击源码拷贝到剪切板 Private Const pi As Double = 3.14159265358979Public Function qxzs(xyb() As Double, sz() As Double, fhz() As Double)正算函数(由里程和边距计算坐标)入口参数线元要素xyb()及sz()为:xyb(1)=线元起点里程??xyb(2)=线元起点X坐标 xyb(3)=线元起点Y坐标 xyb(4)=线元起点切线方位角(以弧度为单位)xyb(5)=线元长度??xyb(6)=线元起点曲率半径 xyb(7)=线元止点曲率半径 xyb(8)=线元偏向标志sz(1)=要计算点的中线里程 sz(2)=要计算点距中线的边距返回值fhz()为：fhz(1)=所求点的X坐标 fhz(2)=所求点的Y坐标 fhz(3)=所求点对应中线点向右的法线方位角? ?Dim f0 As Double? ?Dim q As Double? ?Dim c As Double? ?Dim d As Double? ?Dim rr(4) As Double? ?Dim vv(4) As Double? ?Dim i As Integer? ?Dim w As Double? ?Dim xs As Double? ?Dim ys As Double? ?Dim ff As Double? ?f0 = xyb(4): q = xyb(8)? ?c = 1# / xyb(6)? ?d = (xyb(6) - xyb(7)) / 2# / xyb(5) / xyb(6) / xyb(7)? ?rr(1) = 0.1739274226: rr(2) = 0.3260725774? ?rr(3) = rr(2): rr(4) = rr(1)? ?vv(1) = 0.0694318442: vv(2) = 0.3300094782? ?vv(3) = 1# - vv(2): vv(4) = 1# - vv(1)? ?w = Abs(sz(1) - xyb(1))? ?xs = 0: ys = 0? ?For i = 1 To 4? ?? ? ff = f0 + q * vv(i) * w * (c + vv(i) * w * d)? ?? ? xs = xs + rr(i) * Cos(ff)? ?? ? ys = ys + rr(i) * Sin(ff)? ?Next i? ?fhz(3) = f0 + q * w * (c + w * d) + 0.5 * pi? ?fhz(1) = xyb(2) + w * xs + sz(2) * Cos(fhz(3))? ?fhz(2) = xyb(3) + w * ys + sz(2) * Sin(fhz(3))End FunctionPublic Function qxfs(xyb() As Double, xpt() As Double, fhb() As Double)反算函数(由坐标计算里程和边距)入口参数线元要素xyb()及xpt()为:xyb(1)=线元起点里程??xyb(2)=线元起点X坐标 xyb(3)=线元起点Y坐标 xyb(4)=线元起点切线方位角(以弧度为单位)xyb(5)=线元长度??xyb(6)=线元起点曲率半径 xyb(7)=线元止点曲率半径 xyb(8)=线元偏向标志xpt(1