Mercurial > hg > camir-aes2014
annotate 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 |
rev | line source |
---|---|
wolffd@0 | 1 function bnet = mk_car_bnet() |
wolffd@0 | 2 % MK_CAR_BNET Make the car trouble-shooter bayes net. |
wolffd@0 | 3 % |
wolffd@0 | 4 % This network is from p13 of "Troubleshooting under uncertainty", Heckerman, Breese and |
wolffd@0 | 5 % Rommelse, Microsoft Research Tech Report 1994. |
wolffd@0 | 6 |
wolffd@0 | 7 |
wolffd@0 | 8 BatteryAge = 1; |
wolffd@0 | 9 Battery = 2; |
wolffd@0 | 10 Starter = 3; |
wolffd@0 | 11 Lights = 4; |
wolffd@0 | 12 TurnsOver = 5; |
wolffd@0 | 13 FuelPump = 6; |
wolffd@0 | 14 FuelLine = 7; |
wolffd@0 | 15 FuelSubsys =8; |
wolffd@0 | 16 Fuel = 9; |
wolffd@0 | 17 Spark = 10; |
wolffd@0 | 18 Starts = 11; |
wolffd@0 | 19 Gauge = 12; |
wolffd@0 | 20 |
wolffd@0 | 21 n = 12; |
wolffd@0 | 22 dag = zeros(n); |
wolffd@0 | 23 dag(1,2) = 1; |
wolffd@0 | 24 dag(2,[4 5])=1; |
wolffd@0 | 25 dag(3,5) = 1; |
wolffd@0 | 26 dag(6,8) = 1; |
wolffd@0 | 27 dag(7,8) = 1; |
wolffd@0 | 28 dag(8,11) = 1; |
wolffd@0 | 29 dag(9,12) = 1; |
wolffd@0 | 30 dag(10,11) = 1; |
wolffd@0 | 31 |
wolffd@0 | 32 arity = 2; |
wolffd@0 | 33 ns = arity*ones(1,n); |
wolffd@0 | 34 bnet = mk_bnet(dag, ns); |
wolffd@0 | 35 for i=1:n |
wolffd@0 | 36 bnet.CPD{i} = tabular_CPD(bnet, i); |
wolffd@0 | 37 end |
wolffd@0 | 38 |
wolffd@0 | 39 |