Файл:Согласованность оценки среднего.gif

n = 5 10 ^ 3 ; данные = СлучайнаяПеременная [ НормальноеРаспределение [ 0 , 10 ], n ]; данные2 = СлучайнаяПеременная [ Распределение Коши [ 0 , 10 ], n ]; p0 = Таблица [ ГрафическаяСетка [{ { Показать [ Гистограмма [ данные [[ 1 ;; j ]], { 1 }, "Вероятность" , Стиль диаграммы -> Оранжевый ], График [ PDF [ Нормальное распределение [ 0 , 10 ], x ], { x , -40 , 40 }, Диапазон диаграммы -> Все , Стиль диаграммы -> { Фиолетовый , Толстый }] , Диапазон диаграммы -> {{ -30 , 30 }, { 0 , 0,045 }}, Оси -> Ложь , Рамка -> Истина , Подпись рамки -> { "x" , "P(x)" }, Стиль метки -> { Черный , Жирный }, Подпись диаграммы -> "Нормальное распределение" ] , График списка [ Таблица [ Среднее [ данные [[ 1 ;; i ]] ], { i , 9 , j }], Объединено -> True , PlotRange -> {{ 0 , n }, All }, DataRange -> j , Axes -> False , Frame -> True , FrameLabel -> { "#" , "\!\(\*OverscriptBox[\(\[Mu]\), \(^\)]\)" }, LabelStyle -> { Black                                                                                             , Жирный }, Стиль графика -> Черный , Эпилог -> { Фиолетовый , Толстый , Пунктирная , Линия [{{ 0 , 0 }, { n , 0 }}]}] , ListPlot [ Таблица [ Стандартное отклонение [ данные [[ 1 ;; i ]] ], { i , 9 , j }], Объединено -> True , PlotRange -> {{ 0 , n }, All }, DataRange -> j , Axes -> False , Frame -> True , FrameLabel -> { "#" , "\!\(\*OverscriptBox[\(\[Sigma]\), \(^\)]\)" }, LabelStyle -> { Black , Bold }, PlotStyle -> Black , Epilog -> { Purple , Thick , Dashed , Line [{{ 0 , 10 }, { n , 10 }}]}] }, { Показать [ Гистограмма [ data2 [[ 1 ;; j ]], { 1 }, "Вероятность" , ChartStyle -> Оранжевый ], Plot [ PDF [ CauchyDistribution [ 0 , 10 ], x ], { x , -40 , 40 }, PlotRange -> Все , PlotStyle -> { Фиолетовый , Толстый }], PlotRange -> {{ -40 , 40 }, { 0 , 0.035 }}, Оси -> Ложь , Рамка -> Истина , FrameLabel -> {                                                                                                  "x" , "P(x)" }, LabelStyle -> { Black , Bold }, PlotLabel -> "Распределение Коши" ] , ListPlot [ Таблица [ Среднее [ data2 [[ 1 ;; i ]] ], { i , 1 , j }], Объединено -> True , Диапазон_графика -> {{ 0 , n }, Все }, Диапазон_данных -> j , Оси -> False , Рамка -> True , Метка_фрейма -> { "#" , "\!\(\*OverscriptBox[\(\[Mu]\), \(^\)]\)" }, Стиль_метки -> { Черный , Жирный }, Стиль_графика -> Черный , Эпилог -> { Фиолетовый , Толстая , Пунктирная , Линия [{{ 0 , 0 }, { n , 0 }}]}] , График_списка [ Таблица [ Стандартное_отклонение [ данные2 [[ 1 ;; i ]] ], { i , 2 , j }], Объединено -> True , PlotRange -> {{ 0 , n }, All }, DataRange -> j , Axes -> False , Frame -> True , FrameLabel -> { "#" , "\!\(\*OverscriptBox[\(\[Sigma]\), \(^\)]\)" }, LabelStyle -> { Black , Bold }, PlotStyle -> Black ] }}, ImageSize -> 800 ] , { j , 10 , n ,20 }]; ListAnimate [ p0 ]