sort2.txt

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

Sub SORT2(N, RA(), RB())
    L = N / 2 + 1
    IR = N
    Do
        If L > 1 Then
            L = L - 1
            RRA = RA(L)
            RRB = RB(L)
        Else
            RRA = RA(IR)
            RRB = RB(IR)
            RA(IR) = RA(1)
            RB(IR) = RB(1)
            IR = IR - 1
            If IR = 1 Then
                RA(1) = RRA
                RB(1) = RRB
                Exit Sub
            End If
        End If
        I = L
        J = L + L
        While J <= IR
            If J <= IR Then
                If J < IR Then
                    If RA(J) < RA(J + 1) Then J = J + 1
                End If
                If RRA < RA(J) Then
                    RA(I) = RA(J)
                    RB(I) = RB(J)
                    I = J
                    J = J + J
                Else
                    J = IR + 1
                End If
            End If
        Wend
        RA(I) = RRA
        RB(I) = RRB
    Loop
End Sub