1:- use_module(library(pita)). 2:- if(current_predicate(use_rendering/1)). 3:- use_rendering(c3). 4:- use_rendering(graphviz). 5:- use_rendering(table,[header(['Multivalued variable index','Rule index','Grounding substitution'])]). 6:- endif. 7
8:- pita. 9
10:- begin_lpad. 11
12eruption : 0.6; earthquake : 0.3 :- sudden_energy_release, fault_rupture(_).
13sudden_energy_release : 0.7.
14map_query fault_rupture(southwest_northeast) : 0.5.
15map_query fault_rupture(east_west): 0.4.
16
17ev :- eruption.
18
19:- end_lpad.
?-
map(ev,P,Exp)
. P = 0.588, Exp = [rule(1, sudden_energy_release, [sudden_energy_release:0.7, '':0.30000000000000004], true)
].