FoxClub Forums > Игры Разума > Парадокс Монти Холла ::

Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 12:32:23 ru.wikipedia.org Попробовал реализовать. Часть текста скрыта Закрыть Процент выигрыша равен 64. Почему не 67? Исправлено 2 раз(а). Последнее : alex;, 21.06.24 13:39

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 12:56:09 Ответ ИИ Часть текста скрыта Закрыть Получилось 47 Исправлено 2 раз(а). Последнее : alex;, 21.06.24 13:03

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 13:14:51 Второй ответ ИИ кажется ближе Часть текста скрыта Закрыть

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 13:18:12 Третий ответ ИИ Часть текста скрыта Закрыть

Re: Парадокс Монти Холла
pasha_usue Сообщений: 3742 Откуда: Е-бург Дата регистрации: 06.10.2006	pasha_usue 21.06.24 13:58:47 Гоню. Всё в порядке здесь. Исправлено 1 раз(а). Последнее : pasha_usue, 21.06.24 14:57

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 14:02:30 Реализовал на C# Результат тот же 64. Видимо ошибка в алгоритме. dotnetfiddle.net Часть текста скрыта Закрыть Исправлено 1 раз(а). Последнее : alex;, 21.06.24 14:51

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 14:50:34 Заменил случайное распределение. Получилось 67. dotnetfiddle.net Часть текста скрыта Закрыть Тока не пойму как на фоксе это реализовать.

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 14:55:52 Сообразил. Часть текста скрыта Закрыть Нормальное распределение Math.floor(Math.random() * (max - min + 1)) + min Исправлено 2 раз(а). Последнее : alex;, 21.06.24 15:12

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 19:13:07 Прикололся на dxdy dxdy.ru

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 22:23:15 Вопрос. Как реализовать алгоритм для 1000 коробок(дверей)? Что-то в голове вертится не могу ухватить.

Re: Парадокс Монти Холла
alex; Автор Сообщений: 3642 Откуда: Москва Дата регистрации: 23.11.2004	alex; 21.06.24 22:49:15 Для оптимизации надо исходить из первоначального выбора. Если первый выбор правильный, то проигрыш. Если нет, то выигрыш. Итого CLEAR ALL LOCAL lni, lnj, lnw, lnv, lnTrue, lnTryings, lnQty lni, lnj - переменные цикла lnw - номер коробки, в которой 1 lnv - мой выбор lnTrue - количество угадываний lnTryings - количество попыток lnQty - количество дверей lnQty = 3 LOCAL ARRAY arr1(lnQty) lnTrue = 0 lnTryings = 1000000 FOR lni = 1 TO lnTryings arr1=0 lnw = FLOOR(RAND()lnQty)+1 arr1[lnw] = 1 lnv = FLOOR(RAND()lnQty)+1 IF arr1[lnv] = 0 lnTrue = lnTrue + 1 ENDIF ENDFOR ?100lnTrue/lnTryings Исправлено 4 раз(а). Последнее : alex;, 21.06.24 22:56*

Re: Парадокс Монти Холла

alex;
Автор

Сообщений: 3642
Откуда: Москва
Дата регистрации: 23.11.2004

alex;

21.06.24 22:49:15

Для оптимизации надо исходить из первоначального выбора.
Если первый выбор правильный, то проигрыш.
Если нет, то выигрыш.
Итого


CLEAR ALL 
LOCAL lni, lnj, lnw, lnv, lnTrue, lnTryings, lnQty
*lni, lnj - переменные цикла
*lnw - номер коробки, в которой 1
*lnv - мой выбор
*lnTrue - количество угадываний
*lnTryings - количество попыток
*lnQty - количество дверей

lnQty = 3
LOCAL ARRAY arr1(lnQty)
lnTrue = 0
lnTryings = 1000000
FOR lni = 1 TO lnTryings
    arr1=0
    lnw = FLOOR(RAND()*lnQty)+1
    arr1[lnw] = 1
    lnv = FLOOR(RAND()*lnQty)+1
    IF arr1[lnv] = 0
        lnTrue = lnTrue + 1
    ENDIF
ENDFOR
?100*lnTrue/lnTryings

Исправлено 4 раз(а). Последнее : alex;, 21.06.24 22:56