This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/CLPBN/examples/social_domain1.pfl

39 lines
739 B
Plaintext
Raw Normal View History

2012-05-23 14:56:01 +01:00
:- use_module(library(pfl)).
2012-12-11 23:06:09 +00:00
:- set_solver(hve).
%:- set_solver(ve).
%:- set_solver(jt).
%:- set_solver(bdd).
2012-05-23 14:56:01 +01:00
%:- set_solver(bp).
%:- set_solver(cbp).
2012-12-11 23:06:09 +00:00
%:- set_solver(gibbs).
%:- set_solver(lve).
%:- set_solver(lkc).
%:- set_solver(lbp).
2012-05-23 14:56:01 +01:00
:- multifile people/1.
people @ 5.
people(X,Y) :-
people(X),
people(Y),
X \== Y.
2012-12-11 23:06:09 +00:00
markov smokes(X) ; [1.0, 4.0552]; [people(X)].
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov cancer(X) ; [1.0, 9.9742]; [people(X)].
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov friends(X,Y) ; [1.0, 99.48432] ; [people(X,Y)].
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov smokes(X), cancer(X) ;
[4.48169, 4.48169, 1.0, 4.48169] ;
[people(X)].
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov friends(X,Y), smokes(X), smokes(Y) ;
[3.004166, 3.004166, 3.004166, 3.004166, 3.004166, 1.0, 1.0, 3.004166] ;
[people(X,Y)].
2012-05-23 14:56:01 +01:00
% ?- friends(p1,p2,X).