Daniel@0: % TEST_LAYOUT       Script to test some bayesian net layouts
Daniel@0: %
Daniel@0: 
Daniel@0: % Change History :
Daniel@0: % Date		Time		Prog	Note
Daniel@0: % 13-Apr-2000	10:40 PM	ATC	Created under MATLAB 5.3.1.29215a (R11.1)
Daniel@0: 
Daniel@0: % ATC = Ali Taylan Cemgil,
Daniel@0: % SNN - University of Nijmegen, Department of Medical Physics and Biophysics
Daniel@0: % e-mail : cemgil@mbfys.kun.nl 
Daniel@0: 
Daniel@0: %bnet = mk_asia_bnet;
Daniel@0: %draw_graph(bnet.dag);
Daniel@0: 
Daniel@0: % Make the following network (from Jensen (1996) p84 fig 4.17)
Daniel@0: %    1
Daniel@0: %  / | \
Daniel@0: % 2  3  4
Daniel@0: % |  |  |
Daniel@0: % 5  6  7
Daniel@0: %  \/ \/
Daniel@0: %  8   9
Daniel@0: % where all arcs point downwards
Daniel@0: 
Daniel@0: disp('plot directed')
Daniel@0: clf;
Daniel@0: 
Daniel@0: N = 9;
Daniel@0: dag = zeros(N,N);
Daniel@0: dag(1,2)=1; dag(1,3)=1; dag(1,4)=1;
Daniel@0: dag(2,5)=1; dag(3,6)=1; dag(4,7)=1;
Daniel@0: dag(5,8)=1; dag(6,8)=1; dag(6,9)=1; dag(7,9) = 1;
Daniel@0: 
Daniel@0: draw_graph(dag);
Daniel@0: 
Daniel@0: pause
Daniel@0: clf
Daniel@0: disp('plot undirected')
Daniel@0: udag = [dag+dag'];
Daniel@0: draw_graph(udag);
Daniel@0: 
Daniel@0: pause
Daniel@0: clf
Daniel@0: disp('plot mixed')
Daniel@0: mg = [dag];
Daniel@0: mg(2,1) = 1; mg(8,5) = 1;
Daniel@0: draw_graph(mg);
Daniel@0: 
Daniel@0: 
Daniel@0: