vid = videoinput('winvideo'),
 for k=1:100,


obr = getsnapshot(vid);
obraz_szary=rgb2gray(obr);
figure(1); imshow(obraz_szary), title('Oryginalny');

obraz = imresize(obraz_szary, 0.2);
obr_sp=imnoise(obraz, 'salt & pepper');
obr_g = imnoise(obraz, 'gaussian');
obr_p=pasy(obraz, 1, 30, 'poziome');

% zaklocenia
figure(2),
subplot(1,3,1);imshow(mat2gray(obr_sp)), title('salt & pepper'),
subplot(1,3,2);imshow(mat2gray(obr_g)), title('gaussian'),
subplot(1,3,3);imshow(mat2gray(obr_p)),title('poziome'),

% filtracja
h_usr3=fspecial('average', 3); h_usr7=fspecial('average', 7);
h_g3=fspecial('gaussian', 3); h_g7=fspecial('gaussian', 7);

%usredniająca
obr_usr_sp=imfilter(obr_sp, h_usr3);
obr_usr_sp2=imfilter(obr_sp, h_usr7);

obr_usr_g=imfilter(obr_g, h_usr3);
obr_usr_g2=imfilter(obr_g, h_usr7);

obr_usr_p=imfilter(obr_p, h_usr3);
obr_usr_p2=imfilter(obr_p, h_usr7);

figure(3),
subplot(3,2,1);     imshow(mat2gray(obr_usr_sp)), title('usrednianie sp'),
subplot(3,2,2);     imshow(mat2gray(obr_usr_sp2)), title('usrednianie sp2'),
subplot(3,2,3);     imshow(mat2gray(obr_usr_g)), title('usrednianie g'),
subplot(3,2,4);     imshow(mat2gray(obr_usr_g2)), title('usrednianie g2'),
subplot(3,2,5);     imshow(mat2gray(obr_usr_p)), title('usrednianie p'),
subplot(3,2,6);     imshow(mat2gray(obr_usr_p2)), title('usrednianie p2'),

% gaussa
obr_g_sp=imfilter(obr_sp, h_g3);
obr_g_sp2=imfilter(obr_sp, h_g7);

obr_g_g=imfilter(obr_g, h_g3);
obr_g_g2=imfilter(obr_g, h_g7);

obr_g_p=imfilter(obr_p, h_g3);
obr_g_p2=imfilter(obr_p, h_g7);

figure(4);
subplot(4,2,1);imshow(mat2gray(obr_g_sp)),title('gaussa sp'),
subplot(4,2,2);imshow(mat2gray(obr_g_sp2)),title('gaussa sp2'),
subplot(4,2,3);imshow(mat2gray(obr_g_g)),title('gaussa g'),
subplot(4,2,4);imshow(mat2gray(obr_g_g2)),title('gaussa g2'),
subplot(4,2,5);imshow(mat2gray(obr_g_p)),title('gaussa p'),
subplot(4,2,6);imshow(mat2gray(obr_g_p2)),title('gaussa p2'),

%medianowa

obr_med_sp=medfilt2(obr_sp, [3 3]);
obr_med_sp2=medfilt2(obr_sp, [7 7]);

obr_med_g=medfilt2(obr_g, [3 3]);
obr_med_g2=medfilt2(obr_g, [7 7]);

obr_med_p=medfilt2(obr_p, [3 3]);
obr_med_p2=medfilt2(obr_p, [7 7]);

figure(5);
subplot(5,2,1);imshow(mat2gray(obr_med_sp)),title('medianowa sp'),
subplot(5,2,2);imshow(mat2gray(obr_med_sp2)),title('medianowa sp2'),
subplot(5,2,3);imshow(mat2gray(obr_med_g)),title('medianowa g'),
subplot(5,2,4);imshow(mat2gray(obr_med_g2)),title('medianowa g2'),
subplot(5,2,5);imshow(mat2gray(obr_med_p)),title('medianowa p'),
subplot(5,2,6);imshow(mat2gray(obr_med_p2)),title('medianowa p2'),

%detekcja krawędzi

%sobel
h_sobel1 = fspecial ('sobel'); h_sobel2 = -h_sobel1;
kraw_sob1 = filter2(h_sobel1, obraz), figure(6), imshow(mat2gray(kraw_sob1)); title('kraw_sob1'),
kraw_sob2 = filter2(h_sobel2, obraz), figure(7),  imshow(mat2gray(kraw_sob2)); title('kraw_sob2'),
kraw_sob_e=sqrt(kraw_sob1.^2+kraw_sob2.^2), figure(8),  imshow(mat2gray(kraw_sob_e)), title('kraw_sob_e'),
kraw_sob_m = abs(kraw_sob1)+abs(kraw_sob2), figure(9),  imshow(mat2gray(kraw_sob_m)), title('mat2gray(kraw_sob_m'),

%laplacian

h_lap = fspecial('laplacian');
kraw_lap = filter2(h_lap, obraz);
figure(10),
imshow(mat2gray(kraw_lap)); title('laplaciane'),

%filtr LOG
h_log = fspecial('log');
kraw_log = filter2(h_log, obraz);
figure(11),
imshow(mat2gray(kraw_log)); title('filtr LOG'),
end