В мастерской на трех станках изготавливаются однотипные детали.
Вероятность безотказной работы первого станка равна 0,8, второго – 0,7, третьего – 0,9.
Вероятность изготовления бракованной детали на первом станке равна 0,2, на втором – 0,3, на третьем – 0,1.
Найти вероятность того, что наугад выбранная деталь окажется стандартной.

задан 10 Сен '14 21:25

изменен 11 Сен '14 15:48

%D0%92%D0%B8%D1%82%D0%B0%D0%BB%D0%B8%D0%BD%D0%B0's gravatar image


9917

@Елена KOLONTAEVA, Если вы получили исчерпывающий ответ, отметьте его как принятый.

(11 Сен '14 15:48) Виталина
10|600 символов нужно символов осталось
0

Здесь необходимо привести задачу к применению формулы Байеса. С учетом надежности станков можно утверждать, что первый станок выпускает 8/24 всех деталей, второй 7/24, а третий 9/24. А теперь применять формулу Байеса.
Искомая вероятность будет: $%p=(8/240,8)/(8/240,8+7/240,7+9/240,9)$%.

ссылка

отвечен 11 Сен '14 10:19

изменен 11 Сен '14 16:49

%D0%92%D0%B8%D1%82%D0%B0%D0%BB%D0%B8%D0%BD%D0%B0's gravatar image


9917

1

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

(11 Сен '14 16:25) falcao
10|600 символов нужно символов осталось
0

Как подсчитать в VB6 вероятность нормальной величины если известных мат.ожидание и среднеквадратичное отклонение

ссылка

отвечен 1 Дек '20 13:44

1

@Vlad_nep, вопросы надо задавать с главной страницы, а не в чужих топиках шестилетней давности...

(1 Дек '20 13:58) all_exist

@Vlad_nep: прежде чем что-то вычислять программе, неплохо было бы освоить грамотное использование терминологии. Здесь подразумевалась не вероятность величины (это нонсенс), а вероятность попадания нормально распределённой случайной величины в заданный промежуток [a,b]. Для этого имеется готовая формула, которая вероятность выражает через интеграл от плотности. Такая формула есть в учебниках или в Википедии. Проблема в том, что там интеграл "неберущийся", и тогда всё зависит от того, есть ли в стандартном пакете VB6 функция erf. Если встроенной процедуры нет, то надо считать приближённо.

(1 Дек '20 17:02) falcao
1

Встроенной процедуры нет, но эксперты предлагают такую реализацию:
Private Function erf(ByVal z As Variant) As Variant

Dim t As Variant
Dim ans As Variant
Dim result As Variant

t = CDec(1 / (1 + (0.5 * Abs(z))))
ans = CDec(1 - (t * Exp(((-1 * z) * z) - 1.26551223 + t * (1.00002368 + t * (0.37409196 + t * (0.09678418 + t * (-0.18628806 + t * (0.27886807 + t * (-1.13520398 + t * (1.48851587 + t * (-0.82215223 + t * (0.17087277))))))))))))

If z >= 0 Then
    result = ans
Else
    result = CDec(-1 * ans)
End If

erf = result
End Function
(1 Дек '20 18:02) spades
10|600 символов нужно символов осталось
Ваш ответ

Если вы не нашли ответ, задайте вопрос.

Здравствуйте

Математика - это совместно редактируемый форум вопросов и ответов для начинающих и опытных математиков, с особенным акцентом на компьютерные науки.

Присоединяйтесь!

отмечен:

×3,222

задан
10 Сен '14 21:25

показан
3782 раза

обновлен
1 Дек '20 18:06

Отслеживать вопрос

по почте:

Зарегистрировавшись, вы сможете подписаться на любые обновления

по RSS:

Ответы

Ответы и Комментарии

Дизайн сайта/логотип © «Сеть Знаний». Контент распространяется под лицензией cc by-sa 3.0 с обязательным указанием авторства.
Рейтинг@Mail.ru