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) = 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)

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2009-09-12 08:22  坐标转换\
     文件          19  2007-07-24 13:52  坐标转换\1.gcp
     文件          35  2007-07-24 13:52  坐标转换\2.gcp
     文件         193  2007-07-24 13:52  坐标转换\MSSCCPRJ.SCC
     文件          70  2007-07-24 13:52  坐标转换\一个实验数据.gcp
     文件         145  2012-04-22 10:56  坐标转换\一个实验数据.txt
     文件          47  2007-07-24 13:52  坐标转换\一个实验数据1.gcp
     文件       34539  2007-07-24 13:52  坐标转换\坐标转换.frm
     文件      144660  2007-07-24 13:52  坐标转换\坐标转换.frx
     文件         724  2007-07-24 13:52  坐标转换\坐标转换.vbp
     文件          57  2012-04-22 11:00  坐标转换\坐标转换.vbw
     文件          52  2007-07-24 13:52  坐标转换\控制点.gcp