Mercurial > hg > camir-aes2014
comparison toolboxes/FullBNT-1.0.7/bnt/examples/static/Models/mk_car_bnet.m @ 0:e9a9cd732c1e tip
first hg version after svn
author | wolffd |
---|---|
date | Tue, 10 Feb 2015 15:05:51 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:e9a9cd732c1e |
---|---|
1 function bnet = mk_car_bnet() | |
2 % MK_CAR_BNET Make the car trouble-shooter bayes net. | |
3 % | |
4 % This network is from p13 of "Troubleshooting under uncertainty", Heckerman, Breese and | |
5 % Rommelse, Microsoft Research Tech Report 1994. | |
6 | |
7 | |
8 BatteryAge = 1; | |
9 Battery = 2; | |
10 Starter = 3; | |
11 Lights = 4; | |
12 TurnsOver = 5; | |
13 FuelPump = 6; | |
14 FuelLine = 7; | |
15 FuelSubsys =8; | |
16 Fuel = 9; | |
17 Spark = 10; | |
18 Starts = 11; | |
19 Gauge = 12; | |
20 | |
21 n = 12; | |
22 dag = zeros(n); | |
23 dag(1,2) = 1; | |
24 dag(2,[4 5])=1; | |
25 dag(3,5) = 1; | |
26 dag(6,8) = 1; | |
27 dag(7,8) = 1; | |
28 dag(8,11) = 1; | |
29 dag(9,12) = 1; | |
30 dag(10,11) = 1; | |
31 | |
32 arity = 2; | |
33 ns = arity*ones(1,n); | |
34 bnet = mk_bnet(dag, ns); | |
35 for i=1:n | |
36 bnet.CPD{i} = tabular_CPD(bnet, i); | |
37 end | |
38 | |
39 |