Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function [cechy, obiekt] = obr2cechy(obraz, tlo)
- obr_r = imabsdiff(obraz, tlo);
- obr_bw = im2bw(obr_r, graythresh(obr_r));
- [obr_ind, il_ob] = bwlabel(obr_bw);
- pow_max = bwarea(obr_ind == 1);
- idx_max = 1;
- for i = 2 : il_ob
- pow = bwarea(obr_ind == i);
- if pow > pow_max
- pow_max = pow;
- idx_max = i;
- end
- end
- obiekt = (obr_ind == idx_max);
- cechy = [niezm1(obiekt),niezm2(obiekt),niezm3(obiekt),niezm4(obiekt),niezm5(obiekt),niezm6(obiekt),niezm7(obiekt)];
- end
- info = imaqhwinfo('winvideo');
- vid = videoinput('winvideo');
- preview(vid);
- set(vid, 'TriggerRepeat', Inf);
- set(vid,'ReturnedColorSpace','rgb');
- triggerconfig(vid, 'Immediate');
- skala = 1;
- input('Nacisnij <ENTER> aby zapisac obraz tla');
- tlo = getsnapshot(vid);
- tlo = imresize(tlo, skala);
- imwrite(tlo, 'tlo.bmp');
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 1');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy1, obiekt] = obr2cechy(obr, tlo);
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 2');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy2, obiekt] = obr2cechy(obr, tlo);
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 3');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy3, obiekt] = obr2cechy(obr, tlo);
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 4');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy4, obiekt] = obr2cechy(obr, tlo);
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 5');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy5, obiekt] = obr2cechy(obr, tlo);
- input('Nacisnij <ENTER> aby zapisac obraz obiektu 6');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy6, obiekt] = obr2cechy(obr, tlo);
- baza = [
- 1, cechy1
- 1, cechy2
- 1, cechy3
- 2, cechy4
- 2, cechy5
- 2, cechy6];
- for a = 1 : 4
- input('Nacisnij <ENTER> aby zapisac obraz obiektu');
- obr = getsnapshot(vid);
- obr = imresize(obr, skala);
- imwrite(obr, 'obiekt.bmp');
- [cechy, obraz] = obr2cechy(obr, tlo);
- klasa = KlasyfikKNN(baza, cechy)
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement