Mathematica数学实验——简单数理统计

教师指导实验6
实验名称：简单数理统计
一、问题：求样本数据的特征数字值；绘制样本的频率分布条形图和直方图。

二、实验目的：
学会使用Mathematica求求样本数据的极差、中位数、均值、方差及标准差；绘制样本的频率分布直方图并作简单的修饰。

三、预备知识：本实验所用的Mathematica命令提示
1、SampleRange[data] 求样本数据data的极差（最大数减最小数）；
Median[data] 求样本数据data的中位数；
Mean[data] 求样本数据data的均值；
2、VarianceMLE[data] 求样本数据data的方差；
StandardVarianceMLE[data] 求样本数据data的标准差；
3、BarChart[data1, data2,…] 分别绘制样本数据data1,data2,…的条形图
图形修饰选项：
BarSpacing 设置两条形的总宽度，设置值是实际宽度相对于区间宽度的比值；
BarGroupSpacing 设置相邻条形的宽度，设置值是条形的实际宽度相对于条形的总宽度的比值；
BarStyle 条形风格设置；BarEdgeStyle 条形边界风格设置；
BarLabels 条形标签设置，PlotLabel 图形名称设置，
4、Histogram[data] 绘制样本数据data的频率分布直方图
图形修饰选项：
Ticks设置标记相对于条形的位置；
HistogramScale 设置条形高度为频率密度，使条形的面积和为所设置的值。

四、实验的内容和要求：
1、取50个在1到20的随机整数，求这组数的极差、中位数、均值、方差及标准差；
2、对以上数据绘制样本频率分布直方图；
3、data1={1, 3, 4, 5, 3.5, 3}, data2={3, 2, 5, 3}，在同一图表中绘制data1和data2的条形图，并作一定的修饰。

五、操作提示
1、取50个在1到20的随机整数，求这组数的极差、中位数、均值、方差及标准差；
In[1]:=<<Statistics`DescriptiveStatistics`
In[2]:=data=Table[Random[Integer,{1,20}],{60}];
In[3]:=SampleRange[data]
Out[3]= 19
In[4]:= Median[data] Out[4]= 11
In[5]:=Mean[data]
Out[5]=221 20
In[6]:=VarianceMLE[data]
Out[6]=44017 1200
In[7]:=StandarDevarianceMLE[data]
Out[7]=
2、对以上数据绘制样本频率分布直方图；
In[8]:=<<Graphics`Graphics`
In[9]:=Histogram[data]
Out[9]= -Graphics-
In[10]:=Histogram[data,Ticks->IntervalCenters, HistogramScale->1]
Out[10]= -Graphics-
In[11]:=Histogram[data,Ticks->IntervalBoundaries,
HistogramScale->2]
Out[11]= -Graphics-
3、data1={1, 3, 4, 5, 3.5, 3}, data2={3, 2, 5, 3}，在同一图表中绘制data1和data2的条形图，并作一定的修饰。

BarChart[{1,3,4,5,3.5,3},{3,2,5,3}]
In[12]:=
In[13]:=BarChart[{1, 3, 4, 5, 3.5, 3}, {3, 2, 5, 3},
BarSpacing -> 0.7, BarGroupSpacing -> 0.5,
BarStyle -> {BGBColor[1,0,0], BGBColor[0,1,0.2]},
BarEdgeStyle->{{Dashing[{.01}],BGBColor[0,0,1]},
GrayLevel[0]},
BarLabels ->{"Apr","May","Jun","Jul","Aug","Sep"},
PlotLabel -> "Projected and Current Profit,Tourist Season",
DefaultFont -> {"Helvetica", 11}]
Out[13]= -Graphics-
学生实验6
实验名称：简单数理统计
一、问题：求样本数据的特征数字值；绘制样本的频率分布条形图和直方图。

二、实验目的：
学会使用Mathematica求求样本数据的极差、中位数、均值、方差及标准差；绘制样本的频率分布直方图并作简单的修饰。

三、实验的内容和要求：
1、取50个在1到20的随机整数，求这组数的极差、中位数、均值、方差及标准差；
2、对以上数据绘制样本频率分布直方图；
3、data1={1, 3, 4, 5, 3.5, 3}, data2={3, 2, 5, 3}，在同一图表中绘制data1和data2的条形图，并作一定的修饰。

五、操作提示
1、取50个在1到20的随机整数，求这组数的极差、中位数、均值、方差及标准差；
In[1]:=<<Statistics`DescriptiveStatistics`
In[2]:=data=Table[Random[Integer,{1,20}],{60}];
In[3]:=SampleRange[data]
Out[3]= 19
In[4]:= Median[data]
Out[4]= 11
In[5]:=Mean[data]
Out[5]=221 20
In[6]:=VarianceMLE[data]
Out[6]=44017 1200
In[7]:=StandarDevarianceMLE[data]
Out[7]=
2、对以上数据绘制样本频率分布直方图；
In[8]:=<<Graphics`Graphics`
In[9]:=Histogram[data]
Out[9]= -Graphics-
In[10]:=Histogram[data,Ticks->IntervalCenters,
HistogramScale->1]
Out[10]= -Graphics-
In[11]:=Histogram[data,Ticks->IntervalBoundaries, HistogramScale->2]
Out[11]= -Graphics-
3、data1={1, 3, 4, 5, 3.5, 3}, data2={3, 2, 5, 3}，在同一图表中绘制data1和data2的条形图，并作一定的修饰。

In[12]:=BarChart[{1,3,4,5,3.5,3},{3,2,5,3}]
Out[12]= -Graphics-
In[13]:=BarChart[{1, 3, 4, 5, 3.5, 3}, {3, 2, 5, 3},
BarSpacing -> 0.7, BarGroupSpacing -> 0.5,
BarStyle -> {BGBColor[1,0,0], BGBColor[0,1,0.2]},
BarEdgeStyle->{{Dashing[{.01}],BGBColor[0,0,1]},
GrayLevel[0]},
BarLabels ->{"Apr","May","Jun","Jul","Aug","Sep"},
PlotLabel -> "Projected and Current Profit,Tourist Season",
DefaultFont -> {"Helvetica", 11}]
Out[13]= -Graph。