Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2009, 18:52   #11
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,672
По умолчанию

ой, ладно, объясню по простому.

после трёх испытаний мы 3 раза сменили выбор и выиграли 2 раза.

но шанс выиграть как был 50% так и остался.
Alar вне форума Ответить с цитированием
Старый 28.02.2009, 19:03   #12
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Alar, Уфф.. ))
Честно говоря, немного запутался в чекбоксах и мемо

Попытался переписать Ваш код на паскале.
После запуска вышло, что вероятность 66%

Переписанный код:
Код:
uses crt;
var
N : longint; // количество опытов
pobed,proig : longint;
mas : array[1..3] of byte; //двери
i : longint;
proc : double;

procedure fun;
 var i,k,t,vyb : integer;
 begin
 for i:=1 to 3 do
  mas[i] := 0; //везде козы
 k := random(3)+1;
 mas[k] := 1; //а здесь машина

 vyb := random(3)+1; //игрок выбирает дверь

 //удаляем козу из двух оставшихся дверей
 repeat
 k := random(3)+1;
 until (mas[k]<>1) and (k<>vyb);

 // осталось две двери, одна из которых выбрана игроком (vyb).
 // открытая дверь - k
 // поменяем выбор
 repeat
 t := random(3)+1;
 until (t<>k) and (t<>vyb);

 //открываем выбранную дверь
 if mas[t]=1 then inc(pobed)
 else inc(proig);

 end;

begin
clrscr;
randomize;
readln(N);
for i:=1 to N do
 fun;

writeln('Pobed: ',pobed);
writeln('Proigr: ',proig);
proc := pobed*100/N;
writeln('Pobed: ',proc:5:2);

readln;
end.
---------------------
Немного не понял вот этот кусок:
Код:
s3:=random(2);
 if (memo2.Lines[s3]='1')and(CheckBox1.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
 if (memo2.Lines[s3]='2')and(CheckBox2.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
 if (memo2.Lines[s3]='3')and(CheckBox3.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
Это выбор между двумя оставшимися дверями? Рандомный?
=================================== ====

Появилась такая мысль:
Если Вы выбираете между двумя оставшимися дверьми случайно, то очевидно, что вероятность успеха будет 50%.
А если делать как я описал, то есть не гадать, а всегда выбирать другую дверь (не ту, которую уже открыли и не ту, которая была выбрана вначале), то тогда вероятность будет 66%.

Думаю, тут дело в том, как подойти к рассмотрению задачи. Как к двум подзадачам (Ваш вариант) или как к единой (мой).
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Последний раз редактировалось Sazary; 28.02.2009 в 19:08.
Sazary вне форума Ответить с цитированием
Старый 28.02.2009, 19:12   #13
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,672
По умолчанию

Цитата:
Сообщение от Sazary Посмотреть сообщение
---------------------
Немного не понял вот этот кусок:
Код:
s3:=random(2);
 if (memo2.Lines[s3]='1')and(CheckBox1.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
 if (memo2.Lines[s3]='2')and(CheckBox2.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
 if (memo2.Lines[s3]='3')and(CheckBox3.Checked=false) then SpinEdit1.Value:=SpinEdit1.Value+1;
Это выбор между двумя оставшимися дверями? Рандомный?
=================================== ====
Да рандомный. это вероятность выпадания из двух скрытых коробок коробки с автомобилем.

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

Я никому не навязываю своё мнение, ибо на то он и парадокс, а не задача или теорема
Alar вне форума Ответить с цитированием
Старый 28.02.2009, 19:20   #14
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,672
По умолчанию

Спасибо топикстартеру и Sazary за участвие в теме.
Резюмирую.

Ну да по условию задачи, что бы вы не выбрали вам придётся сменить на противоположную и очевидно получается вероятность выпадания автомобиля 66 процентов, только от этого вероятность выигрыша не увеличивается, ибо вас обязывают сменить выбраную коробку.

но если бы такого обязательсва не было. то вероятность 50 процентов. ибо вы выбираете из двух случайных коробок. И вновь ваши шансы на выигрыш не увеличиваются
Alar вне форума Ответить с цитированием
Старый 28.02.2009, 20:00   #15
MaTBeu
Eclipse Foundation
Старожил
 
Аватар для MaTBeu
 
Регистрация: 19.09.2007
Сообщений: 2,604
По умолчанию

Согласен с Alar, нельзя считать все одним экспериментом, так как вероятность выигрыша на первом и на втором этапе игры - разные. 33.3% и 50% соответственно. Поэтому следует рассматривать второй выбор как независимый эксперимент, так как дверь за которой явно находится коза игрок уже не выберет.
MaTBeu вне форума Ответить с цитированием
Старый 28.02.2009, 20:15   #16
Blade
Software Engineer
Участник клуба
 
Аватар для Blade
 
Регистрация: 07.04.2007
Сообщений: 1,618
По умолчанию

Программы не смотрел, да и теорию вероятностей я не знаю, но логика мне подсказывает что шанс будет 50%. Приведем пример: допустим вам давно всего 2 двери - за одной машина, за другой коза. Очевидно, что шанс выиграть машину 50%. Так чем же этот опыт отличается от того, который был первоначально? Ничем. Первоначально мы, можно сказать, вообще не делаем выбор, ибо результат мы получим всегда один и тот-же (одну дверь с козой и одну с машиной), и не важно будет это 1 и 2 дверь, 2 и 3, или 1 и 3. А действительно сделать выбор нам приходится только во 2 части, где остается 2 двери, и там, как показано выше, вероятность будет 50%
Мужество есть лишь у тех, кто ощутил сердцем страх, кто смотрит в пропасть, но смотрит с гордостью в глазах. (с) Ария

Последний раз редактировалось Blade; 28.02.2009 в 20:21.
Blade вне форума Ответить с цитированием
Старый 28.02.2009, 21:02   #17
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

В условии:
Цитата:
Увеличатся ли ваши шансы выиграть автомобиль, если вы последуете его совету?
А сам совет:
Цитата:
Затем я предложу вам изменить свой первоначальный выбор и выбрать оставшуюся закрытую дверь вместо той, которую вы выбрали вначале
На выбор - две двери... Победа только за одной из них...
Вероятность = 0.5

Ответ - "Нет, шансы не увеличатся"...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 01.03.2009, 01:02   #18
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Сообщение от Blade Посмотреть сообщение
Программы не смотрел, да и теорию вероятностей я не знаю, но логика мне подсказывает что шанс будет 50%. Приведем пример: допустим вам давно всего 2 двери - за одной машина, за другой коза. Очевидно, что шанс выиграть машину 50%. Так чем же этот опыт отличается от того, который был первоначально? Ничем. Первоначально мы, можно сказать, вообще не делаем выбор, ибо результат мы получим всегда один и тот-же (одну дверь с козой и одну с машиной), и не важно будет это 1 и 2 дверь, 2 и 3, или 1 и 3. А действительно сделать выбор нам приходится только во 2 части, где остается 2 двери, и там, как показано выше, вероятность будет 50%
Думаю так же. Третья дверь просто для количества, ее все равно отрывают сразу. Это с точки зрения человека, с точки зрения науки (я ее не знаю) может и действительно парадокс т.к. наука вещь точная, и если было три двери, то как ни крути а их три. Этим доказывается превосходство человеческого разума перед сухой наукой
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 01.03.2009, 01:08   #19
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,672
По умолчанию

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

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

Цитата:
Этим доказывается превосходство человеческого разума перед сухой наукой
Ага, человек имеет большой опыт и понимает, что с вероятностью 66 процентов нужно выбрать ту коробку. но вероятность того что козёл в одно из коробок 50 процентов (я так думаю). ибо после первого события во втором результат был бы в любом случае автомобиль и козёл в двух коробках с сюрпризом.

Вот такой вот парадокс

Поискал подобные обсуждения в сети. Буквально все будут менять свой выбор в подобной игре с вероятностью 100 процентов. Умы готовые к махинациям напёрсточников
Alar вне форума Ответить с цитированием
Старый 01.03.2009, 01:13   #20
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

В том то и дело, что реальный выбор из двух коробок, это просто такой финт в задаче, ловкость рук и никакого мошенничества. А у них парадокс потому что они исходят из правил той науки, а не пользуются здравым смыслом, как мы, чей разум не засорен
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как прописать алиас в коде проги(компонента TABLE, бд парадокс) sashaslam БД в Delphi 2 07.07.2008 13:42