Daniel@0: % TEST_LAYOUT_DBN		Script to test some DBN layouts
Daniel@0: %
Daniel@0: 
Daniel@0: % Change History :
Daniel@0: % Date		Time		Prog	Note
Daniel@0: % 17-Apr-2000	 2: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: disp('draw mhmm1')
Daniel@0: clf
Daniel@0: set(gcf, 'pos', [0   0   1024   600]);
Daniel@0: 
Daniel@0: intra = zeros(3);
Daniel@0: intra(1,[2 3]) = 1;
Daniel@0: intra(2,3) = 1;
Daniel@0: inter = zeros(3);
Daniel@0: inter(1,1) = 1;
Daniel@0: n = 3;
Daniel@0: dnodes = [1 2];
Daniel@0: isbox = zeros(n,1); isbox(dnodes) = 1;
Daniel@0: unfold = 4;
Daniel@0: draw_dbn(intra, inter, 0, unfold, {'Q', 'M', 'Y'}, isbox);
Daniel@0: 
Daniel@0: 
Daniel@0: pause
Daniel@0: clf
Daniel@0: disp('draw water1')
Daniel@0: bnet = mk_water_dbn;
Daniel@0: unfold = 3;
Daniel@0: flip = 1;
Daniel@0: [dummyx, dummyy, h] = draw_dbn(bnet.intra, bnet.inter, flip, unfold);
Daniel@0: 
Daniel@0: col = rand(size(h,1),3);
Daniel@0: for i=1:length(h),
Daniel@0:   col = rand(1,3);
Daniel@0:   % patches
Daniel@0:   set(h(i,2),'facecolor', col); drawnow;
Daniel@0:   % text
Daniel@0:   set(h(i,1),'color', 1-col); drawnow;
Daniel@0: end;
Daniel@0: 
Daniel@0: 
Daniel@0: pause
Daniel@0: clf
Daniel@0: disp('draw BAT static')
Daniel@0: % This requires BNT
Daniel@0: 
Daniel@0: %sz = get(0, 'ScreenSize');
Daniel@0: %sv = get(gcf, 'pos');
Daniel@0: %set(gcf, 'units','pix','pos', sz);
Daniel@0: [bnet, names] = mk_bat_dbn;
Daniel@0: N = size(bnet.intra,1);
Daniel@0: G = [bnet.intra bnet.inter;
Daniel@0:      zeros(N,N) bnet.intra];
Daniel@0: names2 = names;
Daniel@0: for i=1:N
Daniel@0:   names2{i} = sprintf('%s(1)', names{i});
Daniel@0:   names2{i+N} = sprintf('%s(2)', names{i});
Daniel@0: end
Daniel@0: draw_graph(G, names2);
Daniel@0: 
Daniel@0: pause
Daniel@0: disp('draw bat dbn')
Daniel@0: clf
Daniel@0: draw_dbn(bnet.intra, bnet.inter, 0, 2, names2);