滑动平均m1.bas

<VB数理统计实用算法>书中的算法源程序

Attribute VB_Name = "modParameter"
'滑动平均
Option Explicit
Public strFileName As String        '原始数据文件
Public strSmo_Name As String        '平滑数据文件
Public strErr_Name As String        '残差数据文件
Public strLabelName As String       '标题
Public P() As Double, R() As Double '原始数组和结果数组
Public E() As Double                '残差数组
'数据的行数和列数
Public intRow As Integer, intCol As Integer
Public intRowAll As Integer         '总行数