O Gerar Matriz

%%Essa cadeia será visível no workspace.

A = ls;

%%Posteriormente utilizando a função 'size' que retorna as dimensões da

%%matriz. Utilizando 'size(A,1)', se terá como retorno o número de linhas

%%da cadeia A.

n = size(A,1);

%%Após determinar o número de linhas, se cria outra cadeia também

%%denominada de A, que exclui as duas linhas iniciais da antiga cadeia, que

%%são '.' e '..', que não é interessante.

A = A(3:n,:);

%%Utilizando novamente a função 'size' determina-se o número de linhas

%%dessa nova cadeia.

n2 = size(A,1);

%%Utilizou-se a função 'for' para criar uma matriz X para cada diferente

%%tipo de tratamento dado as imagens. Essa matriz contém as informações

%%de todas amostras.

%-------------------------------------------------------------------------%

%-------------------------------------------------------------------------%

% 1) MODELO RGB + HSI + gray

%-------------------------------------------------------------------------%

%%Aplicando filtro, corte, extração de histogramas e construção da matriz

%%principal X.

%# Construção da matriz X

%--------------------------------Matriz X---------------------------------%

h = fspecial('unsharp');

for i=1:n2;

v = genvarname(A(i,:));

eval([v ' = imread(A(i,:));']);

b = eval([v]);

b = b(2186:2750,1080:1585,:); %RPD = 3, RMSEP = 2,72

e = rgb2gray(b); %converter para escala cinza

b = imfilter(b,h);

HSI = convertionRgb2Hsi(b); %converter para HSI

H = imhist(HSI(:,:,1));

S = imhist(HSI(:,:,2));

I = imhist(HSI(:,:,3));

e = imhist(e);

c = b;

d = c;

b = imhist(b(:,:,1));

c = imhist(c(:,:,2));

d = imhist(d(:,:,3));

b = [b' c'