Тогда десятый ответит Я знаю. Черная
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13
lilac72 писал(а) 11 фев 2012, 13:46:Правильно. Вероятность случайного события не зависит от результатов предыдущих событий.
solga77 писал(а) 11 фев 2012, 14:23: мы не выбираем одну из двух:
мы или оставляем одну, или меняем решение.
lilac72 писал(а) 11 фев 2012, 14:27:Это одно и то же!
И не пытайтесь убедить меня в обратном!
Aldan писал(а) 11 фев 2012, 14:29:Как посчитать: 4*3*2*1
lilac72 писал(а) 11 фев 2012, 14:39:Условия задачи неполные. Не указано, в какой системе счисления (восьмеричной, десятичной или иной).
lilac72 писал(а) 11 фев 2012, 14:39:По условию задачи имеем две не открытые карты - одна из них черная, другая - красная. Так? (протянутая рука, прикосновение к одной из карт - лирика, к математике отношения не имеющая, пока карты не открыты, это то же самое, что подбрасывание монетки, 50/50). Все!
#!/usr/bin/perl -w
use List::Util qw/shuffle/;
my $tries = 1000000; # Количество попыток
my $swap = 1; # Менять карту (1) или нет (0)
my $win = 0; # Количество выигранных попыток (суммируется)
# 1 - Ветер сдувает случайную карту, в том числе и красную может сдуть
# 0 - Ветер сдувает только черную карту
my $wind = 1;
# Поехали
for (my $i=0; $i<$tries; $i++) {
# Создаем массив из трех карт (1 - красный, 0 - черный)
my @cards = qw/1 0 0/;
# Перемешиваем массив
@cards = shuffle @cards;
# Выбираем случайным образом одну из карт (0..2)
my $rnd_open = int (rand(3));
my $choice = $cards[$rnd_open]; # Наш выбор
# Удаляем со стола вытащенную карту
splice (@cards, $rnd_open, 1);
# Если ветер случайно сдувает любую карту
if ($wind) {
# Удаляем случайную карту на столе
splice (@cards, int (rand(2)), 1);
} else {
# Удаляем черную карту на столе
if ($cards[0] == 0) {
splice (@cards, 0, 1);
} else {
splice (@cards, 1, 1);
}
}
# Если указано менять карты, то меняем
$choice = $cards[0] if ($swap);
$win++ if ($choice);
}
# Подсчитываем процент выигрышных попыток
print "Wins: " . $win * 100 / $tries . "%\n";
y_s_k писал(а) 11 фев 2012, 15:12:Смысл в том, что здесь используется 1 млн попыток.
Запускается в нескольких вариантах:
1. Запускаем, не меняя карту, но ветер сдувает всегда черную. Выигрыш в 33.3%
2. Запускаем, всегда меняя карту, но ветер сдувает всегда черную. Выигрыш в 66.6%
3. Запускаем, не меняя карту, но ветер сдувает карту на угад (может сдуть черную или красную). Выигрыш в 33.3%
4. Запускаем, всегда меняя карту, но ветер сдувает карту на угад (может сдуть черную или красную). Выигрыш в 33.3%
Вот такая математика.
y_s_k писал(а) 11 фев 2012, 15:36:solga77
Сдувание красной учтено в п.1,2 (т.е. красную точно не сдуваем, а только черную).
В п.3,4 красную может сдуть - это и есть те 33.3%, которых нет, т.к. когда сдует красную, то уже не выиграть.
Да. Если мы не будем учитывать результат в том случае, когда сдулась красная карта. Т.е. не будем продолжать играть данный раунд, то 33.3 превратятся в 50%.
Список форумов ‹ Не туристические форумы. Форумы за жизнь ‹ Курилка