Новое в системе Wolfram
Mathematica
8: Характеристики и решатели для теории вероятностей и статистики
◄
предыдущая
|
следующая
►
Основные алгоритмы
Демонстрация теоремы Гливенко-Кантелли
Демонстрация, что выборочная функция распределения стремится к её теоретическому аналогу при увеличении объёма выборки путём сравнения графиков выборочной и теоретической функций распределения.
In[1]:=
X
data = RandomVariate[FrechetDistribution[2, 3, .5], 2500]; lens = {10, 25, 50, 100, 250, 500, 1000, 2500}; edists = Table[EmpiricalDistribution[Take[data, k]], {k, lens}]; limitplot = Plot[CDF[FrechetDistribution[2, 3, .5], x], {x, 0, 20}];
In[2]:=
X
GraphicsGrid[ Partition[ Table[Show[ Plot[CDF[edists[[i]], x], {x, 0, 20}, PlotStyle -> Directive[ColorData[1, 2], Thick], PlotRange -> {0, 1}, PlotLabel -> Style[StringJoin["n = ", ToString[lens[[i]]]]]], limitplot], {i, 8}], 2], ImageSize -> 500, Background -> White]
Out[2]=