wizja lab3

clear all
clc

n=3;
m=7;

vid=videoinput('winvideo')
%preview(vid);
for  i=1:400,
obr = getsnapshot(vid);
obraz_sz=rgb2gray(obr);
figure(1);
%subplot(2,2,1);
imshow(obraz_sz);
title('Obraz kamery');

obraz=imresize(obraz_sz,0.25);
figure(2);
obraz_g=imnoise(obraz_sz,'gaussian');
 subplot(2,3,1);
imshow(obraz_g)
obraz_p=pasy(obraz_sz, 1, 30,'poziome');
 subplot(2,3,2);
imshow(obraz_p)
obraz_sp=imnoise(obraz_sz,'salt & pepper');
 subplot(2,3,3);
imshow(obraz_sp)
% 1) FILTRACJA
obraz_z = obraz_g;
obraz_z = obraz_p;
obraz_z = obraz_sp;

% filtr gaussa
h_gauss = fspecial('gaussian', [3 7]);
obraz_f = imfilter(obraz_z, h_gauss);
 subplot(2,3,4);
imshow(obraz_f)
title('filtr qaussa');
% filtr uśredniający
h_usr = fspecial ('average', [n m]);
obraz_f = imfilter (obraz_z, h_usr);
 subplot(2,3,5);
imshow(obraz_f);
title('filtr usredniajacy');
% filtr medianowy
obraz_f = medfilt2 (obraz_z, [n m]);
  subplot(2,3,6);
imshow(obraz_f);
title('filtr medianowy');


figure(3);
%operator Sobela
h_sob1 = fspecial ('sobel');
h_sob2 = - h_sob1';

kraw_sob1 = filter2 (h_sob1, obraz_sz);
kraw_sob2 = filter2 (h_sob2, obraz_sz);

subplot(2,3,1);
imshow(mat2gray (kraw_sob1));
 title('operator Sobela');
subplot(2,3,2);
imshow(mat2gray (kraw_sob2));

kraw_sob_e= sqrt(kraw_sob1.^2 + kraw_sob2.^2);

subplot(2,3,3);
imshow(mat2gray (kraw_sob_e));

% operator     lapleaca

h_lap= fspecial('laplacian');
kraw_lap = filter2(h_lap, obraz_sz);

subplot(2,3,4);
imshow(mat2gray(kraw_lap));
 title('operator lapleaca');
% operator log

h_log = fspecial('log');
kraw_log = filter2 (h_log, obraz_sz);

subplot(2,3,5);
imshow(mat2gray (kraw_log));

title('operator LOG');

end