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