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	enderton	1.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;