方差分析F值频率分布的EXCEL抽样拟合

《方差分析F值频率分布的EXCEL抽样拟合》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、方差分析F值频率分布的EXCEL抽样拟合张庆远张庆远男讲师流行病学与医学统计学南阳医学高等专科学校[摘要]利用EXCEL文件VBA功能，制作演示程序，假设从相同或不同的三个已知正态分布总体中各自随机抽取一个样本，组成单因素方差分析样本组，经过逐次方差分析F值计算及循环抽样，得到多个F值，由对F值大小及频数分布规律的观察，帮助学生理解来自同一总体三个样本所计算的F值往往较小，而来自不同总体（存在显著性差异总体）三个样本所计算F值往往较大，辅助于方差分析的理论教学。[关键词]方差分析EXCEL抽样模拟F值在医学统计学教学中，方差分析内容占有重要地位。为更好的配合课堂理论

2、讲授，在深入研究方差分析的基本原理的基础上，结合EXCEL-VAB的应用特点，编制方差分析F值频数分布的抽样模拟文件，以便帮助学生更好更快地理解F值的分布规律，从而对方差分析的结果判断能够做到正确的理解及应用。其具体设计如下：1设计思路以单因素方差分析为总设计思路，先假设三个已知正态分布的总体，确定其相应总体均数和总体标准差值的大小；然后按给定的样本含量和需要保留的小数位数，分别从三个总体出各自抽出一个样本，将三个样本组成一个假定单因素分析的样本组，并对其进行单因素方差分析的相关计算，求出其F值；在此基础上，设置文件进行循环抽样，完成多次抽样得到多个F值，并对F值做

3、出频数分布表，观察F值的频数分布，认识F值的概率分布规律。2EXCEL抽样文件设计2.1建立按钮控件首先建立一个EXCEL文件，命名为“方差分析F值频数分布拟合抽样文件”，打开该文件，在其中SHEET1工作薄中进行操作，点击“视图”---“工具栏”----“控件工具箱”，在其中单击“按钮”控件，向sheet1表中填加四个按钮，通过右键点击按钮，打开“属性”面板，将其“Caption”值依次命名为“建立基本框架”、“初次参数设定”、“抽取/更改样本”、“循环抽取F值”。2.2输入按钮控件VBA代码的SUB子程序移动四个按钮控件到G17：I28区域位置，并调整其大小合适

4、。左键双击第一个“建立基本框架”按钮，打开VBA代码编辑器，在相应SUB子程序中输入如下代码，其中下划线行不用重复输入。PrivateSubCommandButton1_Click()Application.ScreenUpdating=FalseRange("A1")="输入参数"Range("A2")="总体均数"Range("A3")="总体标准差"Range("A4")="样本含量"Range("A5")="保留小数位数"Range("B1")="总体1"Range("C1")="总体2"Range("D1")="总体3"Range("E1")="抽样次数"

5、Range("F1")="次数记录器"Range("A6")="序号"Range("B6")="样本1"Range("C6")="样本2"Range("D6")="样本3"Range("E6")="样本均数1"Range("F6")="样本均数2"Range("G6")="样本均数3"Range("H6")="全部值均数"Range("e9")="变异来源"Range("f9")="SS"Range("g9")="自由度"Range("h9")="MS"Range("i9")="F值"Range("e10")="总变异"Range("e11")="组间变异"Rang

6、e("e12")="组内变异"Range("K1")="所抽F值中最大值"Range("K2")="所抽F值中最小值"Range("K3")="所抽F值样本均数"Range("K4")="所抽F值样本标准差"Range("K5")="所抽F值频数表组距"Range("L7")="F值频数分布表"Range("K8")="组段界值"Range("L8")="分组"Range("M8")="频数"Range("L20")="合计"WithWorksheets(1).Range("E7").Formula="=AVERAGE(B7:B2000)".Range("f7").

7、Formula="=AVERAGE(c7:c2000)".Range("g7").Formula="=AVERAGE(D7:d2000)".Range("h7").Formula="=AVERAGE(B7:d2000)".Range("f10").Formula="=STDEV(B7:D2000)^2*(SUM(B4:D4)-1)".Range("f11").Formula="=(E7-H7)^2*B4+(F7-H7)^2*C4+(G7-H7)^2*D4".Range("f12").Formula="=f10-f11".Range("g10").Formula=