Монета бросается 50 раз / MS Office Excel

[Женяяя]

Монета бросается 50 раз / MS Office Excel

Монета бросается 50 раз. Определить вероятность выпадания
"Герба" 25 раз.

 

[Николай_С]

1 / (50 * 2) = 0,01
И это если монетка ни разу не встанет на ребро.
Остальные задачи, может, сами по аналогии решите?

 

[Vladimir_S]

1 / (50 * 2) = 0,01 И это если монетка ни разу не встанет на ребро.

Нет, увы - так дело не пойдёт. Искомая вероятность р есть

Поясню.
Вероятность любого наперед заданного расклада, в том числе такого, при котором 25 определенных монет упадут "орлом" ("гербом") вверх, есть, учитывая независимость исхода каждого броска от предыдущих результатов, (1/2) в пятидесятой степени. Эту величину надлежит умножить на количество всех возможных комбинаций по 25 монет, или на количество сочетаний из 50 по 25.

 

[Николай_С]

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

 

[Vladimir_S]

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

Коля, я хода Ваших рассуждений понять не могу, но подумайте вот над чем: при устремлении числа бросаний к бесконечности искомая вероятность составит 0.5. Ограниченность числа испытаний ее, конечно, снижает - но не столь же радикально! У меня получилось чуть больше 0.1, что, по-моему, разумно, у Вас же - 0.01, что на правду совсем не похоже.

 

[кочевник]

У меня получилось чуть больше 0.1, что, по-моему, разумно, у Вас же - 0.01,

Критерий истины - практика! Было бы приличным если бы каждый из оппонентов сделал по писотстотисящ бросаний и затем известил нас о результатах. tehno013

 

[Николай_С]

Коля, я хода Ваших рассуждений понять не могу, но подумайте вот над чем: при устремлении числа бросаний к бесконечности искомая вероятность составит 0.5.

Об этом я как-то неподумал. Из моего расчета получается, что вероятность при бесконечно большом числе опытов стремится к 0, а это неправильно.

кочевник, у нас тут чисто научный диспут.

 

[Vladimir_S]

Критерий истины - практика! Было бы приличным если бы каждый из оппонентов сделал по писотстотисящ бросаний и затем известил нас о результатах. tehno013

Абсолютно справедливо - что я и проделал. Эксперимент, правда, провёл численный. Суть: разыграно 1000000 серий по 50 бросаний. Вот программа:

Var
 N,i:LongInt;
 Sum,j:Byte;
Begin
 Randomize;
 N:=0;
 for i:=1 to 1000000 do
  begin
   Sum:=0;
   for j:=1 to 50 do Inc(Sum,Random(2));
   if Sum=25 then Inc(N);
  end;
 Writeln('P= ',N/1000000:0:5);
 Readln
End.

Результат: Р= 0.11250 (напомню, что аналитика показала 0.112275)

Вопросы?