stream.vb

来自「一个lbm的程序」· VB 代码 · 共 62 行

Public Class Stream
    Shared Sub streaming()
        Dim i, j As Int32
        For i = m To 1 Step -1
            For j = 0 To n
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(1) = field(i - 1, j).f(1)
                End If
            Next
        Next
        For i = m To 1 Step -1
            For j = n To 1 Step -1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(5) = field(i - 1, j - 1).f(5)
                End If
            Next
        Next
        For i = 0 To m
            For j = n To 1 Step -1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(2) = field(i, j - 1).f(2)
                End If
            Next
        Next
        For i = 0 To m - 1
            For j = n To 1 Step -1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(6) = field(i + 1, j - 1).f(6)
                End If
            Next
        Next
        For i = 0 To m - 1
            For j = 0 To n
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(3) = field(i + 1, j).f(3)
                End If
            Next
        Next
        For i = 0 To m - 1
            For j = 0 To n - 1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(7) = field(i + 1, j + 1).f(7)
                End If
            Next
        Next
        For i = 0 To m
            For j = 0 To n - 1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(4) = field(i, j + 1).f(4)
                End If
            Next
        Next
        For i = m To 1 Step -1
            For j = 0 To n - 1
                If flag(i, j) = CONST_FLUID Then
                    field(i, j).f(8) = field(i - 1, j + 1).f(8)
                End If
            Next
        Next
    End Sub
End Class