Доброго дня всем!
Допустим распределяются

неразличимых шара по

урнам.
Пространство элементарных событий

Вероятность, того что в каждой урне по одному шару вроде как равна

Пытаюсь симулировать на Wolfam
Код:
k = 0; n = 200000;
For[i = 1, i <= n, i++, s1 = Random[Integer, 3];
s2 = Random[Integer, 3 - s1];
s3 = 3 - s1 - s2; Print[{s1, s2, s3}];
k = If[{s1, s2, s3} == {1, 1, 1}, k + 1, k];]
N[k/n]
{0, 0, 3}
{2, 0, 1}
{1, 1, 1}
{2, 1, 0}
{3, 0, 0}
{3, 0, 0}
{1, 2, 0}
{3, 0, 0}
{0, 1, 2}
{1, 1, 1}
...
Код:
0.0834
Вроде это

Почему такой подход не совпадает с первым?
В чем у меня ошибка, помогите разобраться пожалуйста.