wolffd@0: % TEST_LAYOUT_DBN		Script to test some DBN layouts
wolffd@0: %
wolffd@0: 
wolffd@0: % Change History :
wolffd@0: % Date		Time		Prog	Note
wolffd@0: % 17-Apr-2000	 2:40 PM	ATC	Created under MATLAB 5.3.1.29215a (R11.1)
wolffd@0: 
wolffd@0: % ATC = Ali Taylan Cemgil,
wolffd@0: % SNN - University of Nijmegen, Department of Medical Physics and Biophysics
wolffd@0: % e-mail : cemgil@mbfys.kun.nl 
wolffd@0: 
wolffd@0: disp('draw mhmm1')
wolffd@0: clf
wolffd@0: set(gcf, 'pos', [0   0   1024   600]);
wolffd@0: 
wolffd@0: intra = zeros(3);
wolffd@0: intra(1,[2 3]) = 1;
wolffd@0: intra(2,3) = 1;
wolffd@0: inter = zeros(3);
wolffd@0: inter(1,1) = 1;
wolffd@0: n = 3;
wolffd@0: dnodes = [1 2];
wolffd@0: isbox = zeros(n,1); isbox(dnodes) = 1;
wolffd@0: unfold = 4;
wolffd@0: draw_dbn(intra, inter, 0, unfold, {'Q', 'M', 'Y'}, isbox);
wolffd@0: 
wolffd@0: 
wolffd@0: pause
wolffd@0: clf
wolffd@0: disp('draw water1')
wolffd@0: bnet = mk_water_dbn;
wolffd@0: unfold = 3;
wolffd@0: flip = 1;
wolffd@0: [dummyx, dummyy, h] = draw_dbn(bnet.intra, bnet.inter, flip, unfold);
wolffd@0: 
wolffd@0: col = rand(size(h,1),3);
wolffd@0: for i=1:length(h),
wolffd@0:   col = rand(1,3);
wolffd@0:   % patches
wolffd@0:   set(h(i,2),'facecolor', col); drawnow;
wolffd@0:   % text
wolffd@0:   set(h(i,1),'color', 1-col); drawnow;
wolffd@0: end;
wolffd@0: 
wolffd@0: 
wolffd@0: pause
wolffd@0: clf
wolffd@0: disp('draw BAT static')
wolffd@0: % This requires BNT
wolffd@0: 
wolffd@0: %sz = get(0, 'ScreenSize');
wolffd@0: %sv = get(gcf, 'pos');
wolffd@0: %set(gcf, 'units','pix','pos', sz);
wolffd@0: [bnet, names] = mk_bat_dbn;
wolffd@0: N = size(bnet.intra,1);
wolffd@0: G = [bnet.intra bnet.inter;
wolffd@0:      zeros(N,N) bnet.intra];
wolffd@0: names2 = names;
wolffd@0: for i=1:N
wolffd@0:   names2{i} = sprintf('%s(1)', names{i});
wolffd@0:   names2{i+N} = sprintf('%s(2)', names{i});
wolffd@0: end
wolffd@0: draw_graph(G, names2);
wolffd@0: 
wolffd@0: pause
wolffd@0: disp('draw bat dbn')
wolffd@0: clf
wolffd@0: draw_dbn(bnet.intra, bnet.inter, 0, 2, names2);