wallcell.vb

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

Public Class WallCell
    Inherits BasicCell
    Public normalDirection(1) As Double

    Public Sub New()

    End Sub

    Public Sub New(ByVal nd() As Double)
        Me.normalDirection(0) = nd(0)
        Me.normalDirection(1) = nd(1)
    End Sub
End Class