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
2021-12-17 11:03:11
12KB
vb
1