invert horver

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

%Questao 4: Inversão da imagem (Horizontal e Vertical)
function img_in= img_inv(nome_entrada,nome_saida,tipo);
%Leitura da imagem
[img_in]=imread(nome_entrada,tipo);
img_invert=img_in;
%Leitura das dimensoes da imagem
[lin,col,can]=size(img_invert);
%Interação
display('Bem-vindo à inversão de imagem!');
display('Escolha uma das opções de inversão:');
in=input('(1)Horizontal (2)Vertical -> ');
if in==1
 %Aplicação da inversão Horizontal
 for i=1:col
 img_invert(:,i,:)=img_in(:,col-i+1,:);
 end
 %Escrevendo a imagem
 imwrite(uint8(img_invert),nome_saida,tipo);
 %Plotando
 subplot(1,2,1); imshow(nome_entrada); title('Imagem Original');
 subplot(1,2,2); imshow(nome_saida); title('Inversão Horizontal');
else
 if in==2
 %Filtro de extracao de bordas: Prewitt
 for i=1:lin
 img_invert(i,:,:)=img_in(lin-i+1,:,:);
 end
 
 %Escrevendo a imagem
 imwrite(uint8(img_invert),nome_saida,tipo);
 %Plotando
 subplot(1,2,1); imshow(nome_entrada); title('Imagem Original');
 subplot(1,2,2); imshow(nome_saida); title('Inversão Vertical');
 else
 if in~=1&&2
 display('Opcao inexistente!');
 end
 end
end
clc;
return
for i=1:col
 img_invert(:,i,:)=img_in(:,col-i+1,:);
end