Add a more complex example to be used by unit tests

2013-03-18 11:33:27 +00:00
parent bc04d28092
commit 07dba92406
2 changed files with 216 additions and 0 deletions
--- a/packages/CLPBN/examples/complex.pfl
+++ b/packages/CLPBN/examples/complex.pfl
@@ -0,0 +1,79 @@
+:- use_module(library(pfl)).
+
+%:- set_solver(ve).
+%:- set_solver(hve).
+%:- set_solver(jt).
+%:- set_solver(bdd).
+%:- set_solver(bp).
+%:- set_solver(cbp).
+%:- set_solver(gibbs).
+%:- set_solver(lve).
+%:- set_solver(lkc).
+%:- set_solver(lbp).
+
+/*
+
+ v01     v02
+   \     /
+    \   /
+     \ /
+     v03  v04  v05
+     / \   |   / \
+    /   \  |  /   \
+   /     \ | /     \
+ v06      v07      v08
+  |        |       
+  |        |
+  |        |
+ v09      v10
+
+*/
+
+markov v01::[a,b] ; table1 ; [].
+
+markov v02::[a,b,c] ; table2 ; [].
+
+markov v03::[a,b], v01, v02 ; table3 ; [].
+
+markov v04::[a,b,c] ; table4 ; [].
+
+markov v05::[a,b,c] ; table5 ; [].
+
+markov v06::[a,b,c,d], v03 ; table6 ; [].
+
+markov v07::[a,b], v03, v04, v05 ; table7 ; [].
+
+markov v08::[a,b], v05 ; table8 ; [].
+
+markov v09::[a,b], v06 ; table9 ; [].
+
+markov v10::[a,b], v07 ; table10 ; [].
+
+table1([ 0.74, 0.14 ]).
+
+table2([ 0.032, 0.028, 0.24 ]).
+
+table3([
+  0.15, 0.44, 1.29, 2.21, 0.5, 0.36,
+  0.55, 0.14, 3.29, 5.71, 1.75, 1.56
+]).
+
+table4([ 0.1, 0.58, 0.74 ]).
+
+table5([ 3.2, 0.28, 1.24 ]).
+
+table6([ 0.11, 0.41, 0.59, 2.11, 0.15, 1.06, 0.124, 0.929 ]).
+
+table7([
+  0.11, 0.14, 0.29, 0.1, 0.23, 0.42, 0.11, 0.32, 0.14,
+  0.41, 0.54, 0.15, 1.21, 0.65, 0.67, 0.8, 0.99, 0.45,
+  1.11, 0.24, 1.29, 0.17, 0.24, 0.124, 0.41, 0.12, 0.55,
+  0.12, 1.4, 1.24, 1.1, 0.05, 0.078, 0.71, 0.69, 0.1
+]).
+
+table8([ 0.19, 0.49, 2.1, 3.1, 1.5, 2.8 ]).
+
+table9([ 0.61, 1.4, 0.09, 1.4, 0.61, 0.24, 0.19, 0.6 ]).
+
+table10([ 1.02, 0.88, 0.87, 0.45 ]).
+