На склад поступило 1000 подшипников.Из них 200 изготовлены на 1-ом заводе,460 - на 2-ом и 340 - на 3-ем.Вероятность того что подшипник окажеться нестандартным,для 1-го завода равна 0,03,для 2-го -0,02,для 3-го - 0,01.Взятый наудачу подшибник оказался нестандартным.Какова вероятность того,что он изготовлен 1-ым заводом?
Swi prolog:
p_woman(Woman,P):- Woman=xy, P=0.75; Woman=xx, P=0.25.
p_gen(Woman,Gen,P):-
Woman=xx,Gen=y,P=0;
Woman=xx,Gen=x,P=1;
Woman=xy,Gen=x,P=0.5;
Woman=xy,Gen=y,P=0.5.
p(P):-
p_woman(xx,PW1),p_woman(xy,PW2),
p_gen(xx,x,PXXX),
p_gen(xy,x,PXYX),
p_gen(xx,y,PXXY),
p_gen(xy,y,PXYY),
P is (PW1*PXXX+PW2*PXYX)/(PW1*PXXX+PW1*PXXY+PW2*PXYX+PW2*PXYY).
?-p(P), write(P).
|
Главная
Каталог файлов
