频数m1.bas

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

Attribute VB_Name = "modParameter"
'计算频数和累积频数的公有变量
Option Explicit
Public intRow As Integer            '行数
Public intRowAll As Integer         '总行数
Public intCol As Integer            '列数
Public strFileName As String        '数据文件
Public strFreFile                   '保存频数的文件名
Public strAddFile                   '保存累积频数的文件名
Public intM As Integer, intN As Integer
Public M As Integer, N As Integer   '数据点的行数和列数
Public blnTitle As Boolean          '是否有图题
Public blnRowLabel As Boolean       '是否有行标
Public blnColLabel As Boolean       '是否有列标
Public strTitle As String           '标题
Public strRowLabel() As String      '行标题
Public P(), R() As Single           'P-原始数据；R-计算结果
Public Z0
Public Max As Single, Min As Single 'Max为极大值，Min为极小值
Public intZone As Integer           '分段数