sort3.txt

VB常用数值算法集 内含有解线性代数方程组

Sub SORT3(N, RA(), RB(), RC(), WKSP(), IWKSP())
    Call INDEXX(N, RA(), IWKSP())
    For J = 1 To N
        WKSP(J) = RA(J)
    Next J
    For J = 1 To N
        RA(J) = WKSP(IWKSP(J))
    Next J
    For J = 1 To N
        WKSP(J) = RB(J)
    Next J
    For J = 1 To N
        RB(J) = WKSP(IWKSP(J))
    Next J
    For J = 1 To N
        WKSP(J) = RC(J)
    Next J
    For J = 1 To N
        RC(J) = WKSP(IWKSP(J))
    Next J
End Sub