rank.txt

常用的数值算法的VB程序

Sub RANK(N, INDX(), IRANK())
    For J = 1 To N
        IRANK(INDX(J)) = J
    Next J
End Sub