Untitled

                Never    
A = imread('lena_color_256.tif');


%Wyświetlenie obrazu
subplot(5,5,1)
imshow(A);
title('Oryginalny')

%Średnia jasność obrazu.
meanval = (A)

%Kontrast obrazu
contrast = std2(A);

%Informację o pliku
imageinfo;  

%Wyświetlenie atrybutów obrazu
whos A;                   
                     
%Histogram obrazu bez modyfikacji           
subplot(5,5,2);
imhist(A);
title('Histogram bez modyfikacji');


%Przyciemnienie obrazu               
darker = A/5;
subplot(5,5,3);
imshow(darker)  
title('Obraz po przyciemnieniu');
%Histogram 
subplot(5,5,4);
imhist(darker)  
title('Histogram po przyciemnieniu');

%Przeksztalcenie liniowe poziomu jasnosci obrazu
tform = maketform('affine',[1 0 0; .5 1 0; 0 0 1]);
H = imtransform(A, tform);
subplot(5,5,5)
image(H)
title('Przekształcenie liniowe')

c =imadjust(A,[0.05 0.8],[0 1]);
subplot(5,5,6)
imshowpair(A,c, 'montage');
title('Intensywniejsze kolory')

%Zwiększenie kontrastu funkcją histeq
G = histeq(A)
subplot(5,5,7)
imshowpair(A,G,'montage')
title('Większy kontrast')
axis off

%Zmiana jasności jednego punktu
A(1,1) = A(1,1)*1.5;
subplot(5,5,8)
imshow(A)
title('Jeden punkt jaśniejszy')

%Negatyw
neg = imadjust(A,[0 1],[1 0]);
subplot(5,5,9)
imshow(neg);
title('Negatyw');
 
%Negatyw przez barwe dopełniającą
negv2 = imcomplement(A);
subplot(5,5,10)
imshow(negv2);
title('Imcomplement negatyw')

%Cieplejsze barwy
warmer= imadjust(A,[0.5 0.75],[0 1]);
subplot(5,5,11)
imshow(warmer);
title('Cieplejsze barwy');
   

%Poprawianie kontrastu obrazu - funkcja stretchlim
bettercont=imadjust(A,stretchlim(A),[]);
subplot(5,5,12)
imshow(bettercont);
title('Stretchlim')
 
  
w=fspecial('laplacian',0); %maska nakladana na obraz
replicate = imfilter(A,w,'replicate'); %nalozenie filtru z maską
subplot(5,5,13)
imshow(replicate)
title('Laplacian')

convReplicate = imfilter(A,w,'conv','replicate'); %nalozenie filtru z maską
subplot(5,5,14)
imshow(convReplicate)
title('Konwolucja')


%obrot o 90 stopni
rotate=imrotate(A,90);
subplot(5,5,15)
imshow(rotate);
title('Obrot 90')


%wyswietlenie bialego obrazu
w=ones(31); 
gd=imfilter(A,w); %nałozenie jedynek na obraz
subplot(5,5,16)
imshow(gd);
title('Nalozenie bialego')
   
%blur
h = fspecial('motion', 50, 45);
filteredRGB = imfilter(A, h);
subplot(5,5,17)
imshow(filteredRGB)
title('Blur')

w=fspecial('laplacian',0); %maska nakladana na obraz
f2=im2double(A);%konwersja do double
g2=imfilter(f2,w,'replicate');
subplot(5,5,18)
imshow(g2);
title('Laplacian')
g=f2-g2;
subplot(5,5,19)
imshow(g);
title('Oryginał minus Laplacian')
 
%wyostrzanie obrazu
w4=fspecial('laplacian',0);
w8=[1 1 1; 1 -8 1; 1 1 1];
f= im2double(A);
g4=f-imfilter(f,w4,'replicate'); %slabsze 
g8= f-imfilter(f,w8,'replicate'); %mocniejsze 
subplot(5,5,20)
imshow (f);
title('Skonwertowany do double')
subplot(5,5,21)
imshow(g4);
title('Zmiana ostrości')
subplot(5,5,22)
imshow(g8);
title('Zmiana ostrości')

Raw Text