8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
28 lines
389 B
Plaintext
28 lines
389 B
Plaintext
/*
|
|
?- s([hiv(a)],P).
|
|
P = 0.154 ?
|
|
yes
|
|
?- s([hiv(b)],P).
|
|
P = 0.154 ?
|
|
yes
|
|
?- s([hiv(b),hiv(a)],P).
|
|
P = 0.118 ?
|
|
yes
|
|
?- s([\+ hiv(b),\+ hiv(a)],P).
|
|
P = 0.81 ?
|
|
yes
|
|
?- s([ hiv(b),\+ hiv(a)],P).
|
|
P = 0.036 ?
|
|
yes
|
|
?- s([\+ hiv(b),hiv(a)],P).
|
|
P = 0.036 ?
|
|
yes
|
|
*/
|
|
|
|
(hiv(a) : 0.1).
|
|
(hiv(b) : 0.1).
|
|
(hiv(a) : 0.6) :- hiv(b).
|
|
(hiv(b) : 0.6) :- hiv(a).
|
|
hiv(a) :- hiv(a).
|
|
hiv(b) :- hiv(b).
|