%
%
%
%
EDIT After clarifying comments.
Here is another example with subplots. I didn't do 80, but I think you can adapt this to your needs. As before, there is a pause in there so that you can first look at the four figures before they are destroyed. Notice the color order is preserved. Once you are done looking, simply hit return at the command line to see the new figure.
C = {'r';'b';'k';'g'}; % Colors for plots
% Make some figures...
figure
for ii = 1:4
subplot(2,2,ii)
plot((1:10).^(1+(ii-1)/4),C{ii});
end
figure
for ii = 1:4
subplot(2,2,ii)
plot((1:10).^(2+(ii-1)/4),C{ii});
end
figure
for ii = 1:4
subplot(2,2,ii)
plot((1:10).^(3+(ii-1)/4),C{ii});
end
figure
for ii = 1:4
subplot(2,2,ii)
plot((1:10).^(4+(ii-1)/4),C{ii});
end
pause % Wait for user to hit return...
fh = figure;
for ii = 1:16
subplot(4,4,ii)
P{ii} = get(gca,'pos');
end
clf(fh)
set(fh,'handlevis','callback')
% SUBPLOT goes by rows, so we must rearrainge...
POS = [1 2 5 6;3 4 7 8;9 10 13 14;11 12 15 16];
F = flipud(findobj('type','figure'));
for jj = 1:length(F)
ax = flipud(findobj(F(jj),'type','axes'));
for ii = 1:length(ax)
set(ax(ii),'parent',fh,'pos',P{POS(jj,ii)})
pause(.2)
end
close(F(jj))
end
