wolffd@0: #|
wolffd@0: The following code represents the burglar alarm Bayes network from
wolffd@0: Chapter 14 of Russell & Norvig, 2nd Edition.  This network representation
wolffd@0: is used in the corresponding Bayes net code found in this directory.
wolffd@0: 
wolffd@0: The conditional probability tables consist of the values listed here
wolffd@0: (along with the probabilities of the corresponding complementary events):
wolffd@0: 
wolffd@0: P(Burglary = true) = 0.001    (=> P(Burglary = false) = 0.999)
wolffd@0: P(Earthquake = true) = 0.002  (=> P(Earthquake = false) = 0.998)
wolffd@0: 
wolffd@0: P(Alarm = true | Burglary = true, Earthquake = true) = 0.95
wolffd@0: P(Alarm = true | Burglary = true, Earthquake = false) = 0.94
wolffd@0: P(Alarm = true | Burglary = false, Earthquake = true) = 0.29
wolffd@0: P(Alarm = true | Burglary = false, Earthquake = false) = 0.001
wolffd@0: 
wolffd@0: P(JohnCalls = true | Alarm = true) = 0.90
wolffd@0: P(JohnCalls = true | Alarm = false) = 0.05
wolffd@0: 
wolffd@0: P(MaryCalls = true | Alarm = true) = 0.70
wolffd@0: P(MaryCalls = true | Alarm = false) = 0.01
wolffd@0: |#
wolffd@0: 
wolffd@0: (setf *burglar-alarm-net*
wolffd@0:       '((MaryCalls (true false)
wolffd@0: 		   (Alarm)
wolffd@0: 		   ((true) 0.70 0.30)
wolffd@0: 		   ((false) 0.01 0.99))
wolffd@0: 	(JohnCalls (true false)
wolffd@0: 		   (Alarm)
wolffd@0: 		   ((true) 0.90 0.10)
wolffd@0: 		   ((false) 0.05 0.95))
wolffd@0: 	(Alarm (true false)
wolffd@0: 	       (Burglary Earthquake)
wolffd@0: 	       ((true true) 0.95 0.05)
wolffd@0: 	       ((true false) 0.94 0.06)
wolffd@0: 	       ((false true) 0.29 0.71)
wolffd@0: 	       ((false false) 0.001 0.999))
wolffd@0: 	(Burglary (true false)
wolffd@0: 		  ()
wolffd@0: 		  (0.001 0.999))
wolffd@0: 	(Earthquake (true false)
wolffd@0: 		    ()
wolffd@0: 		    (0.002 0.998))
wolffd@0: 	))