【文件属性】：
文件名称：vb坐标 转换 七参数 四参数
文件大小：12KB
文件格式：ZIP
更新时间：2021-10-08 00:00:15
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