clear;
p = which('superd_v2000.bmp');
filelist = dir([fileparts(p) filesep 'superd_v*.bmp']);
fileNames = {filelist.name}'
n = size(fileNames);
for i = 1:n(1)
a = imread(fileNames{i,1});
[r c p]= size(a);
r_sub = r/3;
c_sub = c/3;
v0 = a(1:r_sub,1:c_sub,:);
v7 = a(2*r_sub+1:3*r_sub,1*c_sub+1:2*c_sub,:);
a(1:r_sub,1:c_sub,:) = v7;
a(2*r_sub+1:3*r_sub,1*c_sub+1:2*c_sub,:) = v0;
imwrite(a,fileNames{i,1});
end