文件名称：vb坐标 转换 七参数 四参数
文件大小：11KB
文件格式：ZIP
更新时间：2015-05-13 09:07:40
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)
【文件预览】：
坐标转换
----2.gcp(35B)
----一个实验数据.gcp(70B)
----坐标转换.vbw(57B)
----坐标转换.frx(141KB)
----坐标转换.frm(34KB)
----坐标转换.vbp(724B)
----一个实验数据.txt(145B)
----MSSCCPRJ.SCC(193B)
----1.gcp(19B)
----一个实验数据1.gcp(47B)
----控制点.gcp(52B)