ファイル名：Subplot0.m

function Handle = subplot0(N)
% 隙間の無い複数の縦方向のみのプロット枠を作成する

clf
if nargin ~= 1
    error('You must input one argument. Ex.) Handle = subplot0(5);');
end
Rect   = get(gcf,'DefaultAxesPosition');
Handle = zeros(N,1);
for c0 = 1:N
   Handle(c0,1) = axes('Position',[Rect(1,1) Rect(1,2) Rect(1,4)*(N-c0)/N Rect(1,3) Rect(1,4)/N]);
   if c0~=1
       set(Handle(c0,1),'XTickLabel',[]);
   end
end
set(Handle,'Box','on');