city example.

2011-07-02 09:49:12 +01:00
parent 49b3f4e7b6
commit 21050891ee
3 changed files with 120 additions and 0 deletions
--- a/packages/CLPBN/examples/City/db_128.yap
+++ b/packages/CLPBN/examples/City/db_128.yap
@@ -0,0 +1,25 @@
+
+%conservative_city(nyc, t).
+
+hair_color(joe, t).
+
+car_color(joe, t).
+
+shoe_size(joe, f).
+
+/* Steps:
+
+1. generate N facts lives(I, nyc), 0 <= I < N.
+
+2. generate evidence on descn for N people, *** except for 1 ***
+
+3. Run query ?- guilty(joe, Guilty), witness(joe, t), descn(2,t), descn(3, f), descn(4, f).
+
+query(Guilty) :-
+    guilty(joe, Guilty), 
+    witness(joe, t),
+    descn(2,t),
+    descn(3,f), 
+    descn(4,f), ....
+
+*/