.2维格子玻尔兹曼算法的excel实现.pdfVIP

Public effectarea_mark As Integer Public itemsource_position_x As Integer 源项目名称所在行 Public itemsource_position_y As Integer 源项目名称所在列 Public casesource_position_x As Integer 源工况名称所在行 Public casesource_position_y As Integer 源工况名称所在列 Public item_position_x As Integer 目标项目名称所在行 Public item_position_y As Integer 目标项目名称所在行 Public case_position_x As Integer 目标工况名称所在列 Public case_position_y As Integer 目标工况名称所在列 Public itemsource_position_x_start As Integer 源项目名称所在行起始位置 Public itemsource_position_y_start As Integer 源项目名称所在列起始位置 Public casesource_position_x_start As Integer 源工况名称所在行起始位置 Public casesource_position_y_start As Integer 源工况名称所在列起始位置 Public item_position_x_start As Integer 目标项目名称所在行起始位置 Public item_position_y_start As Integer 目标项目名称所在行起始位置 Public case_position_x_start As Integer 目标工况名称所在列起始位置 Public case_position_y_start As Integer 目标工况名称所在列起始位置 Public itemsource_position_x_max As Integer 源项目名称所在行终止位置 Public itemsource_position_y_max As Integer 源项目名称所在列终止位置 Public casesource_position_x_max As Integer 源工况名称所在行终止位置 Public casesource_position_y_max As Integer 源工况名称所在列终止位置 Public item_position_x_max As Integer 目标项目名称所在行终止位置 Public item_position_y_max As Integer 目标项目名称所在行终止位置 Public case_position_x_max As Integer 目标工况名称所在列终止位置 Public case_position_y_max As Integer 目标工况名称所在列终止位置 Public item_name As String Public case_name As String Public itemsource_name As String Public casesource_name As String Public sheet_source_name_item As String Public sheet_source_name_case As String Public sheet_source_name As String Public sheetname_item As String Public sheetname_case As String Public sheetname As String Public bookname As String Public UserForm As Object Public getrange_selected As Range Public row_start%, row_end%, col_start%, col_end% Private Type colorcube color As String degree As String End Type Const Q = 9 D2Q9 模型 Const NX = 64 x 方向 Const NY = 64 y 方向 Const V = 0.1 顶盖速度 Dim e(Q, 2) As Integer D