VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLax"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public X_1 As Single '左邊界條件
Public X_2 As Single '右邊界條件
Public T_0 As Variant '初始值
Public Y_0 As Variant
Public X_0 As Variant
Public mesh_t As Integer '時間點劃分
Public mesh_x As Integer '空間點劃分
Public C As Single    '傳播速度
Public dt As Single   '時間步長
Public dx As Single   '空間步長
Public time_length As Single '計算時間長度
Public Space_length_x As Single '計算空間x步長
Public CFD_Values As Variant  '計算值
Public Function iterate_C_pluse(ByVal UijP As Double, ByVal Uijm As Double) As Double

iterate_C_pluse = 1 / 2 * (UijP + Uijm) - C * dt * (UijP + Uijm) / (2 * dx)
End Function

Public Sub Mesh()
    Dim step_t As Integer
    Dim step_x As Integer
    step_t = 1 + time_length / dt
    step_x = 1 + Space_length_x / dx
    mesh_t = step_t
    mesh_x = step_x
    ReDim CFD_Values(0 To step_t, 0 To step_x)
End Sub