曲线任意里程中边桩坐标正反算（VB6.0）函数.docVIP

曲线任意里程中边桩坐标正反算(VB6.0)函数 发布时间:2008-06-21 09:51:10 曲线任意里程中边桩坐标正反算(VB6.0)函数(5节点法提供测试程序代码） 使用说明： 1. 在VA或VAB中添加一个窗体，并将其Caption属性改为 曲线任意里程中边桩坐标正反算(VB6.0) 函数 2. 在窗体上添加一个文本框，并将其下列属性更改为： 名称 txt1 MultiLine True ScrollBars 3 Both 3. 在窗体上添加三个命令按钮，并将它们的下列属性更改为： 按钮一 名称 Cmd1 Caption 正算 按钮二 名称 Cmd2 Caption 反算 按钮三 名称 Cmd3 Caption 结束 4. 将以下程序复制到VA或VBA的代码窗口内，点击运行命令即进行测试。 Private Const pi As Double = 3.14159265358979 Private Const pi As Double = 3.14159265358979 Public 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(5) As Double Dim vv(5) 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.1184634425: rr(2) = 0.2393143352 rr(3) = 0.2844444444: rr(4) = rr(2): rr(5) = rr(1) vv(1) = 0.046910077: vv(2) = 0.2307653449 vv(3) = 0.5: vv(4) = 1# - vv(2): vv(5) = 1# - vv(1) w = Abs(sz(1) - xyb(1)) xs = 0: ys = 0 For i = 1 To 5 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 Function Public Function qxfs(xyb() As Double, xp