2实验 区间估计
- 格式:doc
- 大小:177.50 KB
- 文档页数:6
121 实验二 区间估计
一 实验目的
学习用Mathematica求一个正态总体的均值、方差的置信区间的方法;求两个正态总体的均值差和方差比的置信区间的方法.
二 学习Mathematica命令
1. 调用区间估计软件包命令<
用Mathematica作区间估计,必须调用相应的软件包. 对Mathematica2.2 版本,首先要输入并执行命令
<
对Mathematica4.0版本,要输入并执行命令
<
或
<
2. 一个正态总体求均值的置信区间命令MeanCI
无论方差已知, 还是未知, 求正态总体均值的置信区间的命令都是MeanCI, 其格式是
MeanCI[样本观察值,选项1,选项2,…]
选项1用于选定置信度, 形式为ConfidenceLevel->1-, 默认值为ConfidenceLevel->0.95,这时可省略. 选项2用于说明方差, 其形式为KnownVariance->20(方差的已知值)或None,
默认值为KnownVariance->None, 即该选项省略时默认方差未知. 也可以用说明标准差的选项KnownStandardDeviation->0或None来代替选项KnownVariance->20或None.
3. 两个正态总体求均值差的置信区间命令MeanDifferenceCI
命令MeanDifferenceCI的格式是
MeanDifferenceCI[样本1的观察值,样本2的观察值,
选项1,选项2,选项3,…]
选项1用于选定置信度, 形式为ConfidenceLevel->1-, 当1-=0.95时可省略. 选项2用于说明两个总体的方差, 形式是KnownVariance->None或20或{21,22}, 在省略选项2时默认KnownVariance->None, 即方差未知. 选项3用于说明两个总体的方差是否相等, 形式为EqualVariance->False或True. 默认形式是EqualVariance->False, 即默认方差不相等.
理论上, 两个正态总体的方差都未知又不相等时,构造两个正态总体的均值之差的置信区间比较复杂一些(Behrens-Fisher问题). 这里不作深入讨论, 只要求会求出结果来就行了(详见本实验的例5,6).
4. 一个正态总体求方差的置信区间命令VarianceCI
求方差的置信区间的命令VarianceCI比较简单,格式是
VarianceCI[样本观察值,选项]
这里只有一个选项ConfidenceLevel->1-, 用于选定置信度. 当1-= 0.95时, 可省略这一选项. 即ConfidenceLevel->0.95为默认值.
122 5. 两个正态总体求方差比的置信区间命令VarianceRatioCI
命令VarianceRatioCI的格式是
VarianceRatioCI[样本1的观察值, 样本2的观察值, 选项]
同样, 选项ConfidenceLevel->0.95为默认值.
6. 当数据为概括数据时的求置信区间命令
(1) 用NormalCI命令求正态总体方差已知时总体均值的置信区间.命令NormalCI的基本格式是
NormalCI[样本均值,样本均值的标准差, 置信度选项]
(2) 用StudentTCI命令求正态总体方差未知时总体均值的置信区间.命令StudentTCI的基本格式是
StudentTCI[样本均值,样本均值的标准差的估计,自由度,置信度选项]
(3) 用ChiSquareCI命令求总体方差的置信区间.命令ChiSquareCI的基本格式是
ChiSquareCI[样本方差,自由度,置信度选项]
(4) 用命令FRatioCI求得方差比的置信区间. 命令FRatioCI的格式是
FRatioCI[方差比的值, 分子自由度, 分母自由度, 置信度选项]
三 实验内容
1. 一个总体),(2N的均值的置信区间
a) 2已知,关于均值的置信区间
例1 某车间生产滚珠,从长期实践中知道,滚珠直径可以认为服从正态分布. 从某天产品中任取6个测得直径如下(单位:毫米)
14.6 15.1 14.9 14.8 15.2 15.1
若已知直径的方差是0.06, 试求总体均值的置信度为0.95的置信区间与置信度为0.90的置信区间.
解 输入
<
data1={14.6,15.1,14.9,14.8,15.2,15.1};
MeanCI[data1,KnownVariance->0.06]
(*置信度采取缺省值,即默认置信度95.01, 因已知方差,故加入选项KnownVariance->0.06*)
输出结果为:
{14.754, 15.146}
也就是均值的置信度为0.95的置信区间是(14.754, 15.146). 为了求得置信度为0.90的置信区间, 输入
MeanCI[data1,KnownVariance->0.06,ConfidenceLevel->0.90]
(*置信度通过选项ConfidenceLevel->0.90指定*)
输出结果是:
{14.7855,15.1145}
因此, 均值的置信度为0.90的置信区间是(14.7855,15.1145). 比较两个不同置信度所对应的置信区间, 可以看出,置信度越大,所作出的置信区间越大.
例2 一种产品的某质量指标服从正态分布. 取25只作为样本, 样本平均值为950x.
已知标准差为100, 求总体均值的置信区间. (05.0)
输入
NormalCI[950,100/25]
输出为
{942.16, 957.84} 123
b) 2未知,关于均值的置信区间
例3 对某种型号飞机的飞行速度进行15次试验,测得最大飞行速度如下
422.2,417.2,425.6,420.3,425.8,423.1,418.7,428.2
438.3,434.0,312.3,431.5,413.5,441.3,423.0
假设最大飞行速度服从正态分布,试求总体均值(最大飞行速度的期望)的置信区间(=0.05与10.0).
解 输入
data2={422.2,417.2,425.6,420.3,425.8,423.1,418.7,428.2,
438.3,434.0,312.3,431.5,413.5,441.3,423.0}
MeanCI[data2]
(*因为置信度是0.95, 省略选项ConfidenceLevel->0.95,
又方差未知, 选项KnownVariance->None也可以省略*)
输出结果是:
{401.535, 435.132}
因此的置信度为0.95的置信区间是(401.535, 435.132).
再输入
MeanCI[data2, ConfidenceLevel->0.90]
得到输出:
{404.538,432.128}
因此的置信度为0.90的置信区间是(404.538,432.128).
例4 从一批袋装食盐中抽取16袋, 重量的平均值为75.503x(克), 样本标准差为2022.6s. 假设袋装重量近似服从正态分布, 求总体均值的置信区间. (05.0)
解 这里, 样本均值为503.75, 样本均值的标准差的估计为ns/=6.2002/4, 自由度为15, 05.0,
因此关于置信度的选项可省略. 输入
StudentTCI[503.75, 6.2002/Sqrt[16], 15]
输出置信区间为
{500.446, 507.054}
2. 两个正态总体均值差的置信区间
例5 随机地从A批导线中抽取4根,又从B批导线中抽取5根,测得电阻(Ω)为
A批导线:0.143 0.142 0.143 0.137
B批导线:0.140 0.142 0.136 0.138 0.140
设测定数据分别来自分布N(,)112和N(,)222,且两样本相互独立.又222121,,,均未知,求21的置信区间(置信度为0.95).
解 输入
list1={0.143,0.142,0.143,0.137};
list2={0.140,0.142,0.136,0.138,0.140};
MeanDifferenceCI[list1,list2]
(*因为置信度是0.95, 省略选项ConfidenceLevel->0.95; 选项EqualVariances->False 省略了, 默认两个正态总体的方差不相等*)
输出结果是:
{-0.00231535,0.00641535}
即12的置信度为0.95的置信区间是(-0.00231535, 0.00641535). 又输入
MeanDifferenceCI[list1,list2,EqualVariances->True]
(*省略选项ConfidenceLevel->0.95; 增加选项EqualVariances->True后,
认为两个正态总体的方差相等*)
得到输出: 124 {-0.00199635,0.00609635}
这时12的置信度为0.95的置信区间是(-0.00199635, 0.00609635). 两种情况得到的结果基本一致.
当数据为概括数据时, 则也应该用StudentTCI命令求总体均值差的置信区间.
例6 比较A、B两种灯泡的寿命, 从A种取80只作为样本, 计算出样本均值2000x,样本标准差801s. 从B种取100只作为样本, 计算出样本均值1900y,样本标准差1002s. 假设灯泡寿命服从正态分布, 方差相同, 且相互独立. 求均值差21的置信区间. (05.0)
解 这里命令StudentTCI的第一个对象应是两个正态总体的均值差.第二个对象应是两个正态总体的均值差的标准差的估计. 根据等方差性假定, 通常用2111nnsw来估计它,其中2)1()1(21222211nnsnsnsw. 第三个对象应是自由度221nndf. 第四个对象应是关于置信度的选项. 正确输入第二个和第三个对象是关键.
输入
sp=Sqrt[(79*80^2+99*100^2)/(80+100-2)];
StudentTCI[2000-1900,sp*Sqrt[1/80+1/100],80+100-2]
输出置信区间
{72.8669, 127.133}.
如果在本问题中去掉等方差性的假定, 则两个正态总体的均值差的标准差的估计是
222121nsns, 自由度近似地为222212121121211211111nsnnsnnsnsdf, 或者)1,1min(21nndf.
输入
Clear[sw, df];
sw=Sqrt[80^2/80+100^2/100];