0001 function check_mh(fname) 0002 eval(['load ' fname]); 0003 nb = size(x3,3); 0004 np = size(x2,2); 0005 nr = size(x2,1); 0006 0007 j1 = ceil(0.5*nr); 0008 x = [j1:100:nr]; 0009 z = []; 0010 for i=1:np 0011 y1 = zeros(size(x),nb); 0012 for k=1:nb 0013 for j=1:length(x) 0014 y1(j,k) = mean(x2(1:x(j),i,k)); 0015 end 0016 end 0017 my_subplot(i,np,4,5,'MH convergence'); 0018 plot([y1]) 0019 xmin = min(min(x2(:,i,:))); 0020 xmax = max(max(x2(:,i,:))); 0021 z = [z; [i sum(sum(x3(:,i,:) < xmin))/nr sum(sum(x3(:,i) > xmax))/nr]]; 0022 end 0023 disp(z) 0024