1/*
    2Throwing a coin with uncertainty on its fairness, from
    3J. Vennekens, S. Verbaeten, and M. Bruynooghe. Logic programs with annotated
    4disjunctions. In International Conference on Logic Programming,
    5volume 3131 of LNCS, pages 195-209. Springer, 2004.
    6
    7*/
    8:- use_module(library(pita)).    9
   10:- if(current_predicate(use_rendering/1)).   11:- use_rendering(c3).   12:- use_rendering(graphviz).   13:- use_rendering(table,[header(['Multivalued variable index','Rule index','Grounding substitution'])]).   14:- endif.   15
   16:- pita.   17
   18
   19:- begin_lpad.   20
   21heads(Coin): 1/2; tails(Coin) : 1/2:-toss(Coin),\+biased(Coin).
   22% if we toss a Coin that is not biased then it lands heads with probability 1/2
   23% and tails with probability 1/2
   24heads(Coin): 0.6 ; tails(Coin) : 0.4:-toss(Coin),biased(Coin).
   25% if we toss a Coin that is biased then it lands heads with probability 0.6
   26% % and tails with probability 0.4
   27fair(Coin):0.9 ; biased(Coin):0.1.
   28% a Coin is fair with probability 0.9 and biased with probability 0.1
   29toss(coin).
   30% coin is certainly tossed
   31
   32:- end_lpad.

?- prob(heads(coin),Prob). % what is the probability that coin lands heads? % expected result 0.51 ?- prob(tails(coin),Prob). % what is the probability that coin lands tails? % expected result 0.49 ?- prob(heads(coin),Prob),bar1(Prob,C). % draw a bar representing % the probability that coin lands heads ?- prob(heads(coin),Prob),bar(Prob,C). % draw two bars representing % the probabilities that coin lands heads and that it doesn't land heads ?- prob(tails(coin),Prob),bar1(Prob,C). % draw a bar representing % the probability that coin lands tails

?- prob(heads(coin),biased(coin),Prob). % what is the probability that coin lands heads given the coin is biased? % expected result 0.6

?- bdd_dot_string(heads(coin),BDD,Var). % What is the BDD for query heads(coin)? % A solid edge indicates a 1-child, a dashed edge indicates a 0-child and % a dotted % edge indicates a negated 0-child. % The table Var contains the associations between the rule groundings and the % multivalued variables.

?- mpe(heads(coin),Prob,Exp). Prob = 0.45, Exp = [rule(2, fair(coin), [fair(coin):0.9, biased(coin):0.1], []), rule(0, heads(coin), [heads(coin):0.5, tails(coin):0.5], [toss(coin), \+biased(coin)])]. */