piksr2.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 14 行

Sub PIKSR2(N, ARR(), BRR())
    For J = 2 To N
        A = ARR(J)
        B = BRR(J)
        For I = J - 1 To 1 Step -1
            If ARR(I) <= A Then Exit For
            ARR(I + 1) = ARR(I)
            BRR(I + 1) = BRR(I)
        Next I
        If ARR(I) > A Then I = 0
        ARR(I + 1) = A
        BRR(I + 1) = B
    Next J
End Sub