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)
2021-11-29 21:19:05
11KB
vb
1