wolffd@0: function bnet = mk_car_bnet()
wolffd@0: % MK_CAR_BNET Make the car trouble-shooter bayes net.
wolffd@0: %
wolffd@0: % This network is from p13 of "Troubleshooting under uncertainty", Heckerman, Breese and
wolffd@0: % Rommelse, Microsoft Research Tech Report 1994.
wolffd@0: 
wolffd@0: 
wolffd@0: BatteryAge = 1;
wolffd@0: Battery = 2;
wolffd@0: Starter = 3;
wolffd@0: Lights = 4;
wolffd@0: TurnsOver = 5;
wolffd@0: FuelPump = 6;
wolffd@0: FuelLine = 7;
wolffd@0: FuelSubsys =8;
wolffd@0: Fuel = 9;
wolffd@0: Spark = 10;
wolffd@0: Starts = 11;
wolffd@0: Gauge = 12;
wolffd@0: 
wolffd@0: n = 12;
wolffd@0: dag = zeros(n);
wolffd@0: dag(1,2) = 1;
wolffd@0: dag(2,[4 5])=1;
wolffd@0: dag(3,5) = 1;
wolffd@0: dag(6,8) = 1;
wolffd@0: dag(7,8) = 1;
wolffd@0: dag(8,11) = 1;
wolffd@0: dag(9,12) = 1;
wolffd@0: dag(10,11) = 1;
wolffd@0: 
wolffd@0: arity = 2;
wolffd@0: ns = arity*ones(1,n);
wolffd@0: bnet = mk_bnet(dag, ns);
wolffd@0: for i=1:n
wolffd@0:   bnet.CPD{i} = tabular_CPD(bnet, i);
wolffd@0: end
wolffd@0: 
wolffd@0: