Пример симуляции для получения дистрибутива с Wolfram Mathematica

Question

Мне нужна помощь с домашним заданием по Mathematica. Я хочу получить среднее значение для некоторых случайных чисел от 0 до 10 и каждый раз для большего количества выборок (от 10 до 20).Тогда я хотел бы представить это как-то как распределение всех средств или, если это невозможно, в виде списка.Я должен показать, что с увеличением количества образцов среднее становится все более и более правильным.Это то, что у меня уже есть ..

For[i = 10, i < 20, i++, Print[Mean[RandomInteger[10, i]]]]

Я благодарен за любую помощь !!

Answer 1

Циклы

For не возвращают результатов, поэтому их необходимо собирать.Print не поможет.

output = {};
For[i = 10, i < 20000, i++, AppendTo[output, Mean[RandomInteger[10, i]]]]
ListPlot[output, AxesLabel -> {"Samples", "Mean"}]

Лучше использовать Table вместо For.Table возвращает результаты.

output = Table[Mean[RandomInteger[10, i]], {i, 10, 20000}];
ListPlot[output, AxesLabel -> {"Samples", "Mean"}]