曲面_网格m1.bas

来自「<VB数理统计实用算法>书中的算法源程序」· BAS 代码 · 共 21 行

Attribute VB_Name = "modParameter"
'曲面_网格
Option Explicit
Public strFileName As String        '原始数据文件
Public strRes_Name As String        '插值数据文件
Public strLabelName As String       '标题
'数据的行数和列数
Public intRow As Integer, intCol As Integer
Public intRowAll As Integer         '总行数
'原始数据数组
Public P()
Public X() As Double, Y() As Double, Z() As Double
Public G() As Double                '网格化结果数组
'M为网格的行数，N为网格的列数
Public M As Integer, N As Integer   '行数、列数
Public A As Double, B As Double     '插值点坐标
Public blnTitle As Boolean          '是否有图题
Public blnRowLabel As Boolean       '是否有行标
Public blnColLabel As Boolean       '是否有列标