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/comp_workshops.pfl

47 lines
685 B
Plaintext
Raw Normal View History

2013-01-07 14:59:51 +00:00
/*
Model from the paper "Lifted Probabilistic
Inference with Counting Formulas"
*/
2012-05-23 14:56:01 +01:00
:- use_module(library(pfl)).
2012-12-11 23:06:09 +00:00
%:- set_solver(ve).
2013-01-10 23:02:34 +00:00
%:- set_solver(hve).
2012-12-11 23:06:09 +00:00
%:- set_solver(jt).
2013-01-10 23:02:34 +00:00
%:- 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
2013-01-07 14:59:51 +00:00
:- multifile reg/2.
reg(p1,w1).
reg(p1,w2).
reg(p1,w3).
reg(p2,w1).
reg(p2,w2).
reg(p2,w3).
reg(p3,w1).
reg(p3,w2).
reg(p3,w3).
reg(p4,w1).
reg(p4,w2).
reg(p4,w3).
reg(p5,w1).
reg(p5,w2).
reg(p5,w3).
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov attends(P), hot(W) ;
2013-01-07 14:59:51 +00:00
[0.2, 0.8, 0.8, 0.8] ;
[reg(P,W)].
2012-05-23 14:56:01 +01:00
2012-12-11 23:06:09 +00:00
markov attends(P), series ;
2013-01-07 14:59:51 +00:00
[0.501, 0.499, 0.499, 0.499] ;
[reg(P,_)].
2012-05-23 14:56:01 +01:00
2013-01-07 14:59:51 +00:00
% ?- series(X).
2012-05-23 14:56:01 +01:00