| Code Block |
|---|
clear all; close all; clc; |
...
threshold = 50; |
...
%% Ladataan kuva |
...
origimg = imread('regmodel.bmp'); |
...
figure; imshow(origimg); |
...
%% Kynnystetään kuva ja binarisoidaan kuva |
...
binimg = (origimg > threshold); |
...
figure; imshow(binimg); |
...
%% Täyteään reiät |
...
binimg = imfill(binimg,'holes'); |
...
%% mustat valkoisena |
...
KaanteinenKuva = origimg < threshold; |
...
figure;imshow(KaanteinenKuva); |
...
%% Tunnista rekisterin tummat alueet |
...
binimg2 = binimg.*KaanteinenKuva;%(origimg < threshold); |
...
figure; imshow(binimg2); |
...
%% numeroi alueet |
...
[labimg,n |
...
] = bwlabel(binimg2); |
...
%% Laske ominaisuuksia |
...
regprops = regionprops(labimg,'Area','Image'); |
...
%% Alueiden rajat |
...
arealim1 = |
...
2000; |
...
arealim2 = 6000; |
...
%% tutki, skaalaa ja näytä for i=1:n |
...
|
...
if (regprops(i) .Area > arealim1) && (regprops(i) .Area < arealim2) |
...
scaledimg = imresize(regprops(i) .Image, |
...
[100 60 |
...
],'bilinear'); % |
...
skaalaa |
...
kokoon |
...
100x60 figure;imshow(scaledimg); |
...
end end |