diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

improve examples.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-22 19:09:31 +00:00
parent 172f59cee5
commit 7d4f83ca40
3 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/CLPBN/clpbn/bp/examples/fail2.yap
View File

@ -10,6 +10,7 @@ t(dave).
bayes p(X)::[t,f] ; [0.1, 0.3] ; [t(X)]. bayes p(X)::[t,f] ; [0.1, 0.3] ; [t(X)].
?- p(ann,X), p(ann,f). % use standard Prolog queries: provide evidence first.
?- p(ann,f), p(ann,X).

2
packages/CLPBN/clpbn/bp/examples/fail3.yap
View File

@ -9,10 +9,8 @@ t(dave).
bayes p(X)::[t,f] ; [0.1, 0.3] ; [t(X)]. bayes p(X)::[t,f] ; [0.1, 0.3] ; [t(X)].
p(ann,t). p(ann,t).
?- p(dave,X). ?- p(dave,X).

23
packages/CLPBN/clpbn/bp/examples/markov.yap Normal file
View File

@ -0,0 +1,23 @@
:- use_module(library(pfl)).
:- set_clpbn_flag(solver,fove).
t(ann).
t(dave).
t(lucy).
t(john).
t(kristian).
t(sriraam).
markov p(X)::[t,f] ; [0.1, 0.3] ; [t(X)].
markov q(X)::[t,f], r(X)::[t,f] ; [0.9, 0.5, 0.5, 0.1] ; [t(X)].
markov q(X)::[t,f], p(X)::[t,f] ; [0.9, 0.5, 0.5, 0.1] ; [t(X)].
p(ann,t).
?- p(dave,X).