VB坐标转换程序设计.doc

VB坐标转换源代码

vb 七参数计算'计算转换参数 ReDim A(1 To 4, 1 To 2 * n) As Double, L(1 To 2 * n) As Double ReDim At(1 To 2 * n, 1 To 4), AtA(1 To 4, 1 To 4) ReDim AtA1(1 To 4, 1 To 4), AtA1At(1 To 2 * n, 1 To 4) For i = 1 To n '组成系数矩阵和常数向量 A(1, 2 * i - 1) = 1: A(2, 2 * i - 1

vb 七参数计算'计算转换参数 ReDim A(1 To 4, 1 To 2 * n) As Double, L(1 To 2 * n) As Double ReDim At(1 To 2 * n, 1 To 4), AtA(1 To 4, 1 To 4) ReDim AtA1(1 To 4, 1 To 4), AtA1At(1 To 2 * n, 1 To 4) For i = 1 To n '组成系数矩阵和常数向量 A(1, 2 * i - 1) = 1: A(2, 2 * i - 1) = 0: A(3, 2 * i - 1) = x1(i): A(4, 2 * i - 1) = y1(i) Debug.Print A(1, 2 * i - 1), A(2, 2 * i - 1), A(3, 2 * i - 1), A(4, 2 * i - 1) A(1, 2 * i) = 0: A(2, 2 * i) = 1: A(3, 2 * i) = y1(i): A(4, 2 * i) = -x1(i) Debug.Print A(1, 2 * i), A(2, 2 * i), A(3, 2 * i), A(4, 2 * i) L(2 * i - 1) = x2(i): L(2 * i) = y2(i)