Новое в системе Wolfram
Mathematica
8: Оценивание параметров распределений и проверка статистических гипотез
◄
предыдущая
|
следующая
►
Основные алгоритмы
Визуализация оптимальных значений параметров
Согласование данных с распределением Вейбулла-Гнеденко, используя метод максимального правдоподобия и визуализация оптимальной точки на контурном графике и графике поверхности логарифмической функции правдоподобия.
In[1]:=
X
data = BlockRandom[SeedRandom[100]; RandomVariate[WeibullDistribution[4, 5], 50]];
In[2]:=
X
params = FindDistributionParameters[data, WeibullDistribution[\[Alpha], \[Beta]]];
In[3]:=
X
llfun = LogLikelihood[WeibullDistribution[\[Alpha], \[Beta]], data]; cp = Show[ ContourPlot[llfun, {\[Alpha], 2, 6}, {\[Beta], 3, 8}, Contours -> 20, ColorFunction -> "FallColors"], Graphics[Point[{\[Alpha], \[Beta]} /. params]]]; p3d = Show[ Plot3D[llfun, {\[Alpha], 2, 6}, {\[Beta], 3, 8}, MeshFunctions -> {#3 &}, Mesh -> 20, PlotPoints -> 50, ColorFunction -> "FallColors"], Graphics3D[{Black, Sphere[{\[Alpha], \[Beta], llfun} /. params, .05]}]]; GraphicsRow[{cp, p3d}]
Out[3]=