Nazwa forum

adlex

Administrator

Dołączył: 2017-06-14

Liczba postów: 6

Pomocnicze od innych :)

Witam ponizej przedstawiam skrypt do analizy obrazów w matlabie znaleziony w internecie. Polecam

clear; clc;
%% Zadanie A

im1 = imread('A27.bmp');
mh = [1, 1; 0, 0];
mv = [1, 0; 1, 0];

eroded = erode5x5(im1);
dc1 = sum(sum(imdiff(im1, eroded)));
disp(['A: Changed: ', num2str(dc1)]);

%% Zadanie B

imB = imread('B02.bmp');
grayed = rgb2gray(imB);
otsu = graythresh(grayed); % MATLAB Builtin
bw = im2bw(grayed,otsu);   % to tez
percent = areaPrec(bw) * 100;
disp(['B: percentage: ', num2str(percent)]);

%% Zadanie C

imC = imread('B07.bmp');
R = imC(:,:,1);
G = imC(:,:,2);
B = imC(:,:,3);
rR = reduceGray(R, 32);
% reduced = reduceRGB(imC, 32, 128, 16);

rR = reduceGray(R, 31);
c = countColors(rR);
powyzej100 = sum(c > 100);
disp(['C: R>100: ',num2str(powyzej100)]);

rG = reduceGray(G, 127);
c = countColors(rG);
powyzej100 = sum(c > 100);
disp(['C: G>100: ',num2str(powyzej100)]);

rB = reduceGray(B, 15);
c = countColors(rB);
powyzej100 = sum(c > 100);
disp(['C: B>100: ',num2str(powyzej100)]);

% image(rR);
% colormap(gray(256));

%% Zadanie D

% imD = imread('A12.bmp');
% opened = proper_open(imD);
% [cogX, cogY] = centerOfGravity(opened);
% disp(['D: center of gravity: ', num2str(cogX), ' ', num2str(cogY)]);

%% Zadanie E
%
% imE = imread('E17.bmp');
% cleared = clearBorders(imE);
% percentage = areaPrec(cleared);
% image(cleared);
% colormap(gray(2));
% disp(['E: Percentage: ', num2str(percentage*100)]);

%% Zadanie F

% imF = imread('T22.bmp');
% gray = rgb2gray(imF);
% ent = entropy(gray); % Wbudowane w MATLAB
% disp(['F: entropy: ', num2str(ent)]);