Mathematica数学实验简单数理统计.docVIP

教师指导实验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]= In[6]:= VarianceMLE[data] Out[6]= 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]= -Graphics- 学生实验6 实验名称：简单数理统计 一、问题：求样本数据的特征数字值；绘制样本的频率分布条形图和直方图。 二、实验目的： 学会使用Mathematica求求样本数据的极差、