MATLAB产生变换图片

function Result=main_create()
close all
clc
tic

Result=[];
for cnt =1:1
ldpath = sprintf(‘02Images/%d.png’,cnt);

% [I,map]=imread(ldpath);
% imshow(I,map);
%

f=imread(ldpath);
imshow(f);

cnt

% %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rotation
% %rotation transformation,from -90°to 90°,at 10° apart,excluding 0°
%
for angle=0
fr=imrotate(f,angle);
filename=strcat(‘Image/’,num2str(cnt),‘r’,num2str(angle),’.jpg’);
imwrite(fr,filename);

end
for angle=-90:10:-10
fr=imrotate(f,angle);
filename=strcat(‘Image/’,num2str(cnt),‘r’,num2str(angle),’.jpg’);
imwrite(fr,filename);

end
for angle=10:10:90
fr=imrotate(f,angle);
filename=strcat(‘Image/’,num2str(cnt),‘r’,num2str(angle),’.jpg’);
imwrite(fr,filename);

end

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% scaling
%%uniform and nonuniform scaling transformation,x from 0.5 to 2.0,at 0.1 apart,y from 0.5
%%to 2.0,at 0.1 apart,excluding x=y

for scale_x=0.5:0.1:2.0
for scale_y=0.5:0.1:2.0
if scale_x~=1 ||scale_y~=1
T = maketform(‘affine’,[scale_x 0 0; 0 scale_y 0; 0 0 1]);
fu= imtransform(f,T);
filename=strcat(‘Image/’,num2str(cnt),‘s’,num2str(scale_x),’_’,num2str(scale_y),’.jpg’);
imwrite(fu,filename);
end
end
end

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Affine
%combined(affine) transformation,angles range form -30°to -30°;x,y from
%0.8 to 1.2,at 0.1 apart,y from 0.8 to 1.2,at 0.1 apart,excluding x=y

angle_array=[-30 -20 -10 10 20 30 ];
for i=1:6
angle=angle_array(i);
for scale_x=0.8:0.1:1.2
for scale_y=0.8:0.1:1.2
if abs(scale_x-scale_y)>1e-3
if scale_x~=1 ||scale_y~=1
T = maketform(‘affine’,[scale_x 0 0; 0 scale_y 0; 0 0 1]);
fr=imrotate(f,angle);
fu= imtransform(fr,T);

                filename=strcat('Image/',num2str(cnt),'_a_',num2str(angle),'_',num2str(scale_x),'_',num2str(scale_y),'.jpg');
                imwrite(fu,filename);
            end
        end
    end
end

end

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Jpeg
%%Jpeg lossy compression ,quality factors range from 5 to 100,at 5 apart

for quality_factor=5:5:100
filename=strcat(‘Image/’,num2str(cnt),‘j’,num2str(quality_factor),’.jpg’);
imwrite(f,filename,‘Quality’,quality_factor,‘mode’,‘lossy’);
end

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Gaussian
%gaussian white noise, range from0.005 to 0.05,at 0.005 apart

for noise=0.005:0.005:0.05
fi=imnoise(f,‘Gaussian’,noise);
filename=strcat(‘Image/’,num2str(cnt),‘n’,num2str(noise),’.jpg’);
imwrite(fi,filename);

end

end