История изменений
Исправление psv1967, (текущая версия) :
Обычная условная вероятность, вот она «в лоб» посчитана
> d<-t(replicate(100000,sample(c(1,1,0,1,0,0))))[,1:2]
> table(d[,1], d[,2])/100000
0 1
0 0.20055 0.29944
1 0.30022 0.19979
> d<-t(replicate(1000000,sample(c(1,1,0,1,0,0))))[,1:2]
> table(d[,1], d[,2])/1000000
0 1
0 0.199449 0.301003
1 0.300394 0.199154
> rowSums(table(d[,1], d[,2])/1000000)
0 1
0.500452 0.499548
> table(d[,1], d[,2])/1000000/0.5
0 1
0 0.398898 0.602006
1 0.600788 0.398308
нас интересует вариант когда первая явно 1, это вторая строка. серебро вытянуть после золотой первой 0.6, вытянуть золото 0.4.
Это полностью согласуется с вариантом, когда никаких «сундуков» нет. Поскольку понятно, что «сундуки» не влияют на вероятность вытянуть первые две монеты.
Исходная версия psv1967, :
Про монеты
Обычная условная вероятность, вот она «в лоб» посчитана
d<-t(replicate(100000,sample(c(1,1,0,1,0,0))))[,1:2]
table(d[,1], d[,2])/100000
0 1 0 0.20055 0.29944 1 0.30022 0.19979
d<-t(replicate(1000000,sample(c(1,1,0,1,0,0))))[,1:2]
table(d[,1], d[,2])/1000000
0 1 0 0.199449 0.301003 1 0.300394 0.199154
rowSums(table(d[,1], d[,2])/1000000)
0 1 0.500452 0.499548
table(d[,1], d[,2])/1000000/0.5
0 1 0 0.398898 0.602006 1 0.600788 0.398308
нас интересует вариант когда первая явно 1, это вторая строка. серебро вытянуть после золотой первой 0.6, вытянуть золото 0.4.
Это полностью согласуется с вариантом, когда никаких «сундуков» нет. Поскольку понятно, что «сундуки» не влияют на вероятность вытянуть первые две монеты.