Цитата(cardinal @ 31.10.2004, 03:17)

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

Эта формулировка задачи не предполагает повторной выборки - ничего об этом не говорится.

И на это как раз обращают внимание:

Цитата(shilnik @ 10.11.2004, 13:44)

УСЛОВИЯ ВЫБОРА ИЗМЕНИЛИСЬ!!!

А это решение предполагает повторную выборку:

Цитата(Chingachguk @ 11.11.2004, 20:52)

Поэтому при повторном выборе вероятность угадать возрастает до 2/3.

Дык где точные условия задачи?

Цитата(podval @ 11.11.2004, 20:29)

Эта формулировка задачи не предполагает повторной выборки - ничего об этом не говорится.

podval, честное слово... Ладно держу себя в руках... Прочитай внимательно первое сообщение в этом топике.

Я прекрасно понимаю, что одно слово не там где надо сказанное, изменяет в корни всю задачу, но именно поэтому я очень старательно выстраивал предложения.

Цитата(cardinal @ 12.11.2004, 00:47)

что одно слово не там где надо сказанное

Гыыыыыы

А я буквоед!!!!

Вероятность одинакова

Pathfider, нет. Читай все с самого начала...

Цитата(Chingachguk @ 31.10.2004, 10:31)

Вероятность больше (2/3 против 1/3) если Вы поменяете решение.

Аналогично.

На самом деле выбрав одну карту вероятность того, что она - туз 1/3. Вероятность что в двух других туз - 2/3. Если оказывается, что одна из других карт не туз, значит все шансы (2/3) переходят на оставшуюся карту. Таким образом 1/3 против 2/3. Но кто сказал что это верное решение? Ведь это верно, когда вы вибираете модель зависимых случаев. А если нет, то как только убирают карту -не туз, вероятности равные (1/2). Вопрос в том, какую модель вы используете, поэтому и то и другое решения верны.
Добавлено @ 11:38

Цитата(cardinal @ 1.11.2004, 19:11)

Особо неверующие пишут программу симуляции процессов и убеждаются в правильности выше описанного.

Цитата(cardinal @ 10.11.2004, 20:26)

Я тут, чтобы доказать правильность сего рассуждения одному человеку (ну и себе еще раз на всякий случай ) даже программку состряпал на скорую руку. Если у тебя стоит VB6, то я могу код выложить...

Давай прогу!

Цитата(neutrino @ 4.1.2005, 09:31)

Вопрос в том, какую модель вы используете, поэтому и то и другое решения верны.

Да, только одна из моделей в этом случае правильная.

Цитата(neutrino @ 4.1.2005, 09:31)

Давай прогу!

Даю:
На форму лепятся четыре кнопки:
Command1, Command2, Command3 и Command4.

И так: одна коза и две машины. После выбора, тебе показывают где машина и дают выбрать:
1. меняешь свой выбор или
2. нет
Если поменять свое решение после первого выбора (1), то код Command4 выглядит так:

Код

Private Sub Command4_Click() Dim i As Integer    For i = 1 To 30000        Call Command2_Click '        Call Command2_Click        If Command1.BackColor = &HC0FFC0 Then            Call Command3_Click        Else            Call Command1_Click        End If    Next    MsgBox "машин: " & results & " коз: " & 30000 - results    results = 0 End Sub

Если не менять (2), а остаться несмотря ни на что при первом выборе, то так:

Код

Private Sub Command4_Click() Dim i As Integer    For i = 1 To 30000        Call Command2_Click        Call Command2_Click '        If Command1.BackColor = &HC0FFC0 Then '            Call Command3_Click '        Else '            Call Command1_Click '        End If    Next    MsgBox "машин: " & results & " коз: " & 30000 - results    results = 0 End Sub

Вот весь код:

Код

Option Explicit Dim X As Integer Dim x1 As Integer Dim x2 As Integer Dim x3 As Integer Dim x4 As Integer Dim x5 As Integer Dim Selected As Integer Dim results As Integer Private Sub Command1_Click()    If Selected <> 0 Then        If X <> 2 Then results = results + 1        Selected = 0        Command1.BackColor = &H8000000F        Command2.BackColor = &H8000000F        Command3.BackColor = &H8000000F         '        x = RndInInterval(1, 3) one_more_time1:        X = RndInInterval(1, 5)                If X = 1 Or X = 5 Then GoTo one_more_time1                Exit Sub    End If    Selected = 2    If X = 2 Then        Command2.BackColor = &HC0FFC0    ElseIf X = 3 Then        Command3.BackColor = &HC0FFC0    ElseIf X = 4 Then        Command2.BackColor = &HC0FFC0    End If End Sub Private Sub Command2_Click()    If Selected <> 0 Then        If X <> 3 Then results = results + 1        Selected = 0        Command1.BackColor = &H8000000F        Command2.BackColor = &H8000000F        Command3.BackColor = &H8000000F '        x = RndInInterval(1, 3) one_more_time2:        X = RndInInterval(1, 5)                If X = 1 Or X = 5 Then GoTo one_more_time2                Exit Sub    End If    Selected = 3    If X = 2 Then ' 1        Command3.BackColor = &HC0FFC0    ElseIf X = 3 Then ' 2        Command1.BackColor = &HC0FFC0    ElseIf X = 4 Then ' 3        Command1.BackColor = &HC0FFC0    End If End Sub Private Sub Command3_Click()    If Selected <> 0 Then        If X <> 4 Then results = results + 1        Selected = 0        Command1.BackColor = &H8000000F        Command2.BackColor = &H8000000F        Command3.BackColor = &H8000000F '        x = RndInInterval(1, 3)     one_more_time3:        X = RndInInterval(1, 5)                If X = 1 Or X = 5 Then GoTo one_more_time3                Exit Sub    End If    Selected = 4    If X = 2 Then ' 1        Command2.BackColor = &HC0FFC0    ElseIf X = 3 Then ' 2        Command1.BackColor = &HC0FFC0    ElseIf X = 4 Then ' 3        Command1.BackColor = &HC0FFC0    End If End Sub Private Sub Command4_Click() Dim i As Integer    For i = 1 To 30000        Call Command2_Click        Call Command2_Click '        If Command1.BackColor = &HC0FFC0 Then '            Call Command3_Click '        Else '            Call Command1_Click '        End If    Next    MsgBox "машин: " & results & " коз: " & 30000 - results    results = 0 End Sub Private Sub Form_Load() Dim d As Integer    Randomize        For d = 0 To 30000         one_more_time:        X = RndInInterval(1, 5)                If X = 1 Or X = 5 Then GoTo one_more_time                If X = 1 Then x1 = x1 + 1        If X = 2 Then x2 = x2 + 1        If X = 3 Then x3 = x3 + 1        If X = 4 Then x4 = x4 + 1        If X = 5 Then x5 = x5 + 1        Next    ' MsgBox x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5            Selected = 0 End Sub Private Function RndInInterval(LeftBorder As Integer, RightBorder As Integer) As Integer    RndInInterval = CInt(Rnd * (RightBorder - LeftBorder) + LeftBorder) End Function Function RndEx(Optional ByVal Min As Long = 0, Optional ByVal Max As _ Long = 1, Optional ByVal DoRound As Boolean = False, Optional _        DoRandomize As Boolean) As Single    Dim X As Single        If DoRandomize Then Randomize        X = Rnd * (Max - Min) + Min 'Zufallszahl berechnen    If DoRound Then X = Int(X + 0.5) 'Runden    RndEx = X End Function

Еще раз подчеркиваю, что это программа симуляции процессов, то есть она симулирует кликанье юзера (то есть написана она через ж... ). Но зато подтвержает правильность логической мысли.

Интуитивно кажется, что во-втором случае больше, но уверен что тут подвох

Цитата(cardinal @ 4.1.2005, 17:21)

Да, только одна из моделей в этом случае правильная.

Я думаю, что мы то с тобой знаем - нет абсолютно правильных моделей. Приведи результаты, скажем, миллиона опытов.

Цитата(neutrino @ 4.1.2005, 19:07)

Приведи результаты, скажем, миллиона опытов.

Ну я привел тебе результат 30000 опытов - помоему достаточно

Цитата(neutrino @ 4.1.2005, 19:07)

Я думаю, что мы то с тобой знаем - нет абсолютно правильных моделей.

Ну тогда скажу немного по другому: одна из моделей в этом случае абсолютно неправильная

Очевидно, что если моделировать процесс таким образом, получается именно 1/3 напротив 2/3.

Но попробуй смоделировать только с того места, где карту забрали (т.е. неизвестно, что забрали). Есть просто 2 карты: у тебя в руках и на столе. Тогда будет одинаковая вероятность.

Цитата(neutrino @ 4.1.2005, 19:45)

Но попробуй смоделировать только с того места, где карту забрали (т.е. неизвестно, что забрали). Есть просто 2 карты: у тебя в руках и на столе. Тогда будет одинаковая вероятность.

Да это ясно, но е мое не надо условия задачи под модель то подгонять Все нам известно по условиям задачи

Ладно. Вопрос исчерпан. Думаю решение понятно всем.

Цитата(cardinal @ 4.1.2005, 22:14)

Да это ясно, но е мое не надо условия задачи под модель то подгонять  Все нам известно по условиям задачи

А где в условиях задачи сказано, какую вероятность мы ищем - априорную или апостериорную?

Вот какую, а?
Добавлено @ 15:48

Цитата(neutrino @ 4.1.2005, 11:31)

Вопрос в том, какую модель вы используете, поэтому и то и другое решения верны.

В том-то и дело!

ИМХО флейм