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

update burglary-alarm

Browse Source
This commit is contained in:
Tiago Gomes 2012-06-18 23:10:18 +01:00
parent 63739c6e31
commit 942bc8041e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/CLPBN/examples/burglary-alarm.yap
View File

@ -7,17 +7,17 @@
:- yap_flag(write_strings, off). :- yap_flag(write_strings, off).
bayes burglary::[b1,b2] ; [0.001, 0.999] ; []. bayes burglary::[t,f] ; [0.001, 0.999] ; [].
bayes earthquake::[e1,e2] ; [0.002, 0.998]; []. bayes earthquake::[t,f] ; [0.002, 0.998]; [].
bayes alarm::[a1,a2], burglary, earthquake ; bayes alarm::[t,f], burglary, earthquake ;
[0.95, 0.94, 0.29, 0.001, 0.05, 0.06, 0.71, 0.999] ; [0.95, 0.94, 0.29, 0.001, 0.05, 0.06, 0.71, 0.999] ;
[]. [].
bayes john_calls::[j1,j2], alarm ; [0.9, 0.05, 0.1, 0.95] ; []. bayes john_calls::[t,f], alarm ; [0.9, 0.05, 0.1, 0.95] ; [].
bayes mary_calls::[m1,m2], alarm ; [0.7, 0.01, 0.3, 0.99] ; []. bayes mary_calls::[t,f], alarm ; [0.7, 0.01, 0.3, 0.99] ; [].
% ?- john_calls(J), mary_calls(m1). % ?- john_calls(J), mary_calls(m1).