yap-6.3/packages/CLPBN/clpbn/bp/examples/smokers.yap

:- use_module(library(pfl)).

:- clpbn_horus:set_solver(fove).
%:- clpbn_horus:set_solver(hve).
%:- clpbn_horus:set_solver(bp).
%:- clpbn_horus:set_solver(cbp).

:- yap_flag(write_strings, off).


friends(P1, P2) :-
    people(P1),
    people(P2),
    P1 @< P2.

people @ 3.

markov smokes(P)::[t,f], cancer(P)::[t,f] ; [0.1, 0.2, 0.3, 0.4] ; [people(P)].

markov friend(P1,P2)::[t,f], smokes(P1)::[t,f], smokes(P2)::[t,f] ;
    [0.5, 0.6, 0.7, 0.8, 0.5, 0.6, 0.7, 0.8] ; [friends(P1, P2)].

% ?- smokes(p1, t), smokes(p2, f), friend(p1, p2, X).
new example. 2012-04-03 16:23:26 +01:00			`:- use_module(library(pfl)).`

refactor the city benchmarks and introduce set_solver/1 2012-04-11 19:15:52 +01:00			`:- clpbn_horus:set_solver(fove).`
			`%:- clpbn_horus:set_solver(hve).`
			`%:- clpbn_horus:set_solver(bp).`
			`%:- clpbn_horus:set_solver(cbp).`
new example. 2012-04-03 16:23:26 +01:00
			`:- yap_flag(write_strings, off).`

rework the examples and erase the city network in the old format 2012-04-11 15:36:50 +01:00
Add support to markov networks 2012-04-05 18:38:56 +01:00			`friends(P1, P2) :-`
improvements on benchmarkings 2012-04-11 23:48:59 +01:00			`people(P1),`
			`people(P2),`
update examples 2012-04-18 02:57:24 +01:00			`P1 @< P2.`
rework the examples and erase the city network in the old format 2012-04-11 15:36:50 +01:00
improvements on benchmarkings 2012-04-11 23:48:59 +01:00			`people @ 3.`
new example. 2012-04-03 16:23:26 +01:00
improvements on benchmarkings 2012-04-11 23:48:59 +01:00			`markov smokes(P)::[t,f], cancer(P)::[t,f] ; [0.1, 0.2, 0.3, 0.4] ; [people(P)].`
new example. 2012-04-03 16:23:26 +01:00
improvements on benchmarkings 2012-04-11 23:48:59 +01:00			`markov friend(P1,P2)::[t,f], smokes(P1)::[t,f], smokes(P2)::[t,f] ;`
			`[0.5, 0.6, 0.7, 0.8, 0.5, 0.6, 0.7, 0.8] ; [friends(P1, P2)].`
new example. 2012-04-03 16:23:26 +01:00
improvements on benchmarkings 2012-04-11 23:48:59 +01:00			`% ?- smokes(p1, t), smokes(p2, f), friend(p1, p2, X).`
Add support to markov networks 2012-04-05 18:38:56 +01:00