Nazwa forum

adlex

Administrator

Dołączył: 2017-06-14

Liczba postów: 6

Moje programy

clear;
clc;
close all;

   
img = imread('lena1.bmp');
% R = img(:,:,1);
% G = img(:,:,2);
% B = img(:,:,3);

level = graythresh(img); % - obliczenie progu do binaryzacji
imgBIN =  im2bw(img,level); % cv.threshold(G,'Otsu','Method','Binary');

% Zadanie erozji
figure(1)
subplot(3,3,2);
colormap(gray(2))
image(erode(imgBIN)) % imerode(imgBIN,I); bwmorph(imgBIN,'erode'); cv.erode(imgBIN)
subplot(3,3,1);
image(imgBIN)

% Konwersja do odcieni szarości rgb2gray
%imgSzar = rgb2gray(img); %cv.ctvColor(img,'RGB2GRAY')
R = img(:,:,1) * 0.299;
G = img(:,:,2) * 0.587;
B = img(:,:,3) * 0.114;
imgSzar = R+G+B;

figure()
colormap(gray(256))
image(imgSzar)
title('Odcien szarosci')

figure()
colormap(gray(2))

imgBIN = im2bw(imgSzar,level); % cv.threshold(G,'Otsu','Method','Binary');
image(imgBIN)
title('Po binaryzacji szarego')

%Liczenie jedynek w obrazie zbinaryzowanym
wielk = size(img);
wielkoscObrazu.x = wielk(1);
wielkoscObrazu.y = wielk(2);
iloscPixeli = wielkoscObrazu.x*wielkoscObrazu.y;

licznikJedynek = 0;

for i=1:wielkoscObrazu.x
    for j=1:wielkoscObrazu.y
        if ( imgBIN(i,j) == 1)
            licznikJedynek = licznikJedynek + 1;
        end
    end
end
ileProcentJedynek = (licznikJedynek/iloscPixeli)*100
%%

imC = imread('B17.bmp');
R = imC(:,:,1);
G = imC(:,:,2);
B = imC(:,:,3);
% 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));

%%

imD = imread('kolo.bmp');
opened = proper_open(imD);
[cogX, cogY] = centerOfGravity(opened);
disp(['D: center of gravity: ', num2str(cogX), ' ', num2str(cogY)]);
figure()
colormap(gray(2))
image(imD)
hold on
plot(cogX,cogY,'o')

%%
% imE = imread('test.bmp');
% cleared = clearBorders(imE);
% percentage = areaPrec(cleared); %ile procent zajmuje ( funckja )
%
% colormap(gray(2));
% disp(['E: Percentage: ', num2str(percentage*100)]);
%
%
% figure()
% colormap(gray(2))
% image(imE)
%
% figure()
% colormap(gray(2))
% image(cleared)

%%

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