prob i1i2i1: 1
Alarm <- i1 & ~i2 & i1i2none
prob i1i2none: 0
+
+% P(Gibbons calls | Alarm)
+Gibbons <- Alarm & GibbonsWhenAlarm
+prob GibbonsWhenAlarm: 0.99
+Gibbons <- ~Alarm & GibbonsWhenNoAlarm
+prob GibbonsWhenNoAlarm: 0.04
+
+% P(Watson calls | Alarm)
+Watson <- Alarm & WatsonWhenAlarm
+prob WatsonWhenAlarm: 0.8
+Watson <- ~Alarm & WatsonWhenNoAlarm
+prob WatsonWhenNoAlarm: 0.4
+
+% P(Radio | earthquake)
+Radio <- earthquake & RadioWhenEarthquake
+prob RadioWhenEarthquake: 0.9998
+Radio <- ~earthquake & RadioWhenNoEarthquake
+prob RadioWhenNoEarthquake: 0.0002