37 lines
512 B
Prolog
37 lines
512 B
Prolog
|
|
:- use_module(library(clpbn)).
|
|
|
|
:- set_clpbn_flag(solver, bp).
|
|
|
|
|
|
% B F
|
|
% \ /
|
|
% \ /
|
|
% A
|
|
|
|
|
|
a(A) :-
|
|
b(B),
|
|
f(F),
|
|
a_table(ADist),
|
|
{ A = a with p([a1, a2, a3], ADist, [B, F]) }.
|
|
|
|
|
|
|
|
b(B) :-
|
|
b_table(BDist),
|
|
{ B = b with p([b1, b2], BDist) }.
|
|
|
|
f(F) :-
|
|
f_table(FDist),
|
|
{ F = f with p([f1, f2], FDist) }.
|
|
|
|
b_table([0.005, 0.995]).
|
|
|
|
f_table([0.03, 0.97]).
|
|
|
|
a_table([0.992, 0.99, 0.2, 0.003,
|
|
0.008, 0.01, 0.8, 0.997,
|
|
0.018, 0.21, 0.2, 0.927]).
|
|
|