Mercurial > hg > camir-ismir2012
annotate toolboxes/FullBNT-1.0.7/bnt/examples/static/Models/mk_car_bnet.m @ 0:cc4b1211e677 tip
initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"
| author | Daniel Wolff |
|---|---|
| date | Fri, 19 Aug 2016 13:07:06 +0200 |
| parents | |
| children |
| rev | line source |
|---|---|
| Daniel@0 | 1 function bnet = mk_car_bnet() |
| Daniel@0 | 2 % MK_CAR_BNET Make the car trouble-shooter bayes net. |
| Daniel@0 | 3 % |
| Daniel@0 | 4 % This network is from p13 of "Troubleshooting under uncertainty", Heckerman, Breese and |
| Daniel@0 | 5 % Rommelse, Microsoft Research Tech Report 1994. |
| Daniel@0 | 6 |
| Daniel@0 | 7 |
| Daniel@0 | 8 BatteryAge = 1; |
| Daniel@0 | 9 Battery = 2; |
| Daniel@0 | 10 Starter = 3; |
| Daniel@0 | 11 Lights = 4; |
| Daniel@0 | 12 TurnsOver = 5; |
| Daniel@0 | 13 FuelPump = 6; |
| Daniel@0 | 14 FuelLine = 7; |
| Daniel@0 | 15 FuelSubsys =8; |
| Daniel@0 | 16 Fuel = 9; |
| Daniel@0 | 17 Spark = 10; |
| Daniel@0 | 18 Starts = 11; |
| Daniel@0 | 19 Gauge = 12; |
| Daniel@0 | 20 |
| Daniel@0 | 21 n = 12; |
| Daniel@0 | 22 dag = zeros(n); |
| Daniel@0 | 23 dag(1,2) = 1; |
| Daniel@0 | 24 dag(2,[4 5])=1; |
| Daniel@0 | 25 dag(3,5) = 1; |
| Daniel@0 | 26 dag(6,8) = 1; |
| Daniel@0 | 27 dag(7,8) = 1; |
| Daniel@0 | 28 dag(8,11) = 1; |
| Daniel@0 | 29 dag(9,12) = 1; |
| Daniel@0 | 30 dag(10,11) = 1; |
| Daniel@0 | 31 |
| Daniel@0 | 32 arity = 2; |
| Daniel@0 | 33 ns = arity*ones(1,n); |
| Daniel@0 | 34 bnet = mk_bnet(dag, ns); |
| Daniel@0 | 35 for i=1:n |
| Daniel@0 | 36 bnet.CPD{i} = tabular_CPD(bnet, i); |
| Daniel@0 | 37 end |
| Daniel@0 | 38 |
| Daniel@0 | 39 |