enderton/Diagnostics/DiagPlotSetSubplot.m

% DiagPlotSetSubplot is called by DiagPlot and cannot be used seperately.


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                        Initialize subplot in figure                     %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Determine number of plot rows, columns, xi, yi, dx, dy.
if ismember(cmp,{'Sep','OvE','OvC','Dif'})
    nrows = nsp;
    ncols = 1;
    dx = 1-dxl-dxr;
    dy = (1-dyb-dyt-(nrows-1)*dym)/nrows;
    xi = dxl;
    yi = 1-dyt-isp*dy-(isp-1)*dym;
elseif isequal(cmp,'Sbs')
    nrows = nsp/2;
    ncols = 2;
    dx = (1-dxl-dxr-dxm)/2;
    dy = (1-dyb-dyt-(nrows-1)*dym)/nrows;
    xi = dxl + mod((isp-1),2)*(dx+dxm);
    yi = 1-dyt-ceil(isp/2)*dy-(ceil(isp/2)-1)*dym;
else
    error(['Undefined comparison type:  ',cmp]);
end
cxi = xi+dx-dxcb;


% Initiate subplot.
subplot(nrows,ncols,isp);
set(gca,'position',[xi,yi,dx,dy]);
set(gca,'fontsize',fs_tick);
hold on;
1	% DiagPlotSetSubplot is called by DiagPlot and cannot be used seperately.
2
3
4	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5	% Initialize subplot in figure %
6	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7
8
9	% Determine number of plot rows, columns, xi, yi, dx, dy.
10	if ismember(cmp,{'Sep','OvE','OvC','Dif'})
11	nrows = nsp;
12	ncols = 1;
13	dx = 1-dxl-dxr;
14	dy = (1-dyb-dyt-(nrows-1)*dym)/nrows;
15	xi = dxl;
16	yi = 1-dyt-ispdy-(isp-1)dym;
17	elseif isequal(cmp,'Sbs')
18	nrows = nsp/2;
19	ncols = 2;
20	dx = (1-dxl-dxr-dxm)/2;
21	dy = (1-dyb-dyt-(nrows-1)*dym)/nrows;
22	xi = dxl + mod((isp-1),2)*(dx+dxm);
23	yi = 1-dyt-ceil(isp/2)dy-(ceil(isp/2)-1)dym;
24	else
25	error(['Undefined comparison type: ',cmp]);
26	end
27	cxi = xi+dx-dxcb;
28
29
30	% Initiate subplot.
31	subplot(nrows,ncols,isp);
32	set(gca,'position',[xi,yi,dx,dy]);
33	set(gca,'fontsize',fs_tick);
34	hold on;