wolffd@0: function bnet = mk_uffe_dbn()
wolffd@0: 
wolffd@0: % Make the Uffe DBN from fig 3.4 p55 of my thesis
wolffd@0: 
wolffd@0: ss = 4;
wolffd@0: intra = zeros(ss,ss);
wolffd@0: intra(1,[2 3])=1;
wolffd@0: intra(2,3)=1;
wolffd@0: intra(3,4)=1;
wolffd@0: inter = zeros(ss,ss);
wolffd@0: inter(1,1)=1;
wolffd@0: inter(4,4)=1;
wolffd@0: ns = 2*ones(1,ss);
wolffd@0: bnet = mk_dbn(intra, inter, ns);