RNFolhas.m

function varargout = RNFolhas(varargin)
% RNFOLHAS MATLAB code for RNFolhas.fig
%      RNFOLHAS, by itself, creates a new RNFOLHAS or raises the existing
%      singleton*.
%
%      H = RNFOLHAS returns the handle to a new RNFOLHAS or the handle to
%      the existing singleton*.
%
%      RNFOLHAS('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in RNFOLHAS.M with the given input arguments.
%
%      RNFOLHAS('Property','Value',...) creates a new RNFOLHAS or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before RNFolhas_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to RNFolhas_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help RNFolhas

% Last Modified by GUIDE v2.5 08-Jul-2018 15:37:33

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @RNFolhas_OpeningFcn, ...
                   'gui_OutputFcn',  @RNFolhas_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before RNFolhas is made visible.
function RNFolhas_OpeningFcn(hObject, eventdata, handles, varargin)
addpath(genpath('./Functions'));
addpath(genpath('./Excell and Manipulation Function'));
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to RNFolhas (see VARARGIN)

% Choose default command line output for RNFolhas
handles.output = hObject;

%Variables
handles.scale = 175;
handles.path_to_files = './Tema 1 - RN/'; 
handles.data_file = '.\Tema 1 - RN\ClassificaçãoFolhas.xlsx';

%Train Variables
handles.currentTrainNN = 'EMPTY';

%Simulation Variables
handles.currentSimulationNN = 'EMPTY';
handles.hasData = 0;
handles.dataSetUsed = 'EMPTY';
handles.SimulationUsed = 'EMPTY';
handles.nrFolhas = 0;
handles.especiesCertas = 0;
handles.subEspeciesCertas = 0;
handles.time = 0;


%Classificaion Variable
handles.currentClassificationNN = 'EMPTY';
handles.currentImage = 'EMPTY';

handles.dataTable.ColumnName = {'Obtidas: Especie','SubEspecie', 'Targets: Especie','SubEspecie'};

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes RNFolhas wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = RNFolhas_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on button press in bt_useNN.
function bt_useNN_Callback(hObject, eventdata, handles)
% hObject    handle to bt_useNN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
[file,path] = uigetfile('*.mat');
try
    NN = load([path file]);
   NN = NN.NN;
catch exception
   NN = 'EMPTY';
   errordlg('Por favor carregue uma rede neuronal','NN not found');
end

if strcmp(NN, 'EMPTY') ~= 1
    handles.currentClassificationNN = NN;
    guidata(hObject, handles);
end




% --- Executes on button press in bt_loadImage.
function bt_loadImage_Callback(hObject, eventdata, handles)
% hObject    handle to bt_loadImage (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

if strcmp(handles.currentClassificationNN, 'EMPTY') == 1
   errordlg('Por favor carregue uma rede primeiro','NN not found');
else 
    [file, path]=uigetfile('*.jpg*','Specify an image file','on');
     image=fullfile(path,file);
     handles.currentImage = ConverterImagemParaMatrizBinaria([path file], handles.scale);
     guidata(hObject, handles);
     imshow(image); %not even calling axes and it works WTF????
end




% --- Executes on selection change in popupmenu1.
function popupmenu1_Callback(hObject, eventdata, handles)
% hObject    handle to popupmenu1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu1 contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popupmenu1


% --- Executes during object creation, after setting all properties.
function popupmenu1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popupmenu1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in bt_loadNN.
function bt_loadNN_Callback(hObject, eventdata, handles)
% hObject    handle to bt_loadNN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
[file,path] = uigetfile('*.mat');
try
   NN = load([path file]);
   NN = NN.NN;
catch exception
   NN = 'EMPTY';
   errordlg('Por favor carregue uma rede neuronal','NN not found');
end

if strcmp(NN, 'EMPTY') ~= 1
    handles.currentSimulationNN = NN;
end
    handles.hasData = 0;
    guidata(hObject, handles);

% --- Executes on selection change in pop_dataset.
function pop_dataset_Callback(hObject, eventdata, handles)
% hObject    handle to pop_dataset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns pop_dataset contents as cell array
%        contents{get(hObject,'Value')} returns selected item from pop_dataset


% --- Executes during object creation, after setting all properties.
function pop_dataset_CreateFcn(hObject, eventdata, handles)
% hObject    handle to pop_dataset (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in bt_simNN.
function bt_simNN_Callback(hObject, eventdata, handles)
% hObject    handle to bt_simNN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
if strcmp(handles.currentSimulationNN, 'EMPTY') == 1
   errordlg('Por favor carregue uma rede primeiro','NN not found');
   handles.hasData = 0;
else 
    
    set(handles.figure1, 'pointer', 'watch')
    drawnow;
    handles.hasData = 1; 
   
    NN = handles.currentSimulationNN;
    handles.SimulationUsed = NN;
    
    selectedDataset = get(handles.pop_dataset,'String');
    selectedDataset = selectedDataset(get(handles.pop_dataset,'Value'),:);
    
    selectedDataset = strcat(handles.path_to_files, selectedDataset);
    handles.dataSetUsed = selectedDataset;
    
    imagens = LoadImages(selectedDataset{1,1}, handles.scale);
    imagens = UpdateImages(imagens,handles.data_file, handles.scale);
    %- Input and Output Generation
    input = inputfromImageExtration(imagens, handles.scale);
    target = targetCodigoSubEspecie(imagens);
    tstart = tic;%timer
    output = NN(input);
    handles.time = toc(tstart);
    [species subSpecies codeSpecies codeSubEspecies connection] = ClassificationExtration(handles.data_file);
    
    count = size(input);
    count = count(1,2);
    handles.nrFolhas = count;
    
    Ecertas = 0;
    Eerradas = 0;
    
    Subcertas = 0;
    Suberradas = 0;
    
    colergen = @(color,text) ['<html><table border=0 width=400 bgcolor=',color,'><TR><TD>',text,'</TD></TR> </table></html>'];
   
    %output = nnOutputToSpecieCode (output, species);
    for i = 1 : count
        [REspecie RsubEspecie] = nnOutputToSpecieCode(output(:,i), subSpecies, connection);
        [TEspecie TsubEspecie] = nnOutputToSpecieCode(target(:,i), subSpecies, connection);
   
        
        if strcmp(RsubEspecie, TsubEspecie) == 1
             d{i, 2} = colergen('#9ACD32',RsubEspecie{1,1});
             d{i, 4} = colergen('#9ACD32',TsubEspecie{1,1}); 
             Subcertas = Subcertas + 1;
             
        else
            d{i, 2} = colergen('#FF4500',RsubEspecie{1,1});
            d{i, 4} = colergen('#FF4500',TsubEspecie{1,1});
            Suberradas = Suberradas + 1;
        end
        
        if strcmp(REspecie, TEspecie) == 1
             d{i, 1} = colergen('#9ACD32',REspecie{1,1});
             d{i, 3} = colergen('#9ACD32',TEspecie{1,1}); 
             Ecertas = Ecertas + 1;
             
        else
            d{i, 1} = colergen('#FF4500',REspecie{1,1});
            d{i, 3} = colergen('#FF4500',TEspecie{1,1});
            Eerradas = Eerradas + 1;
        end

    
    end
    
    handles.especiesCertas = Ecertas;
    handles.subEspeciesCertas = Subcertas;
  
    %display(d);
    handles.dataTable.Data = d;
    
    
    set(handles.text19, 'String', Ecertas);
    set(handles.text20, 'String', Eerradas);
    set(handles.text26, 'String', Subcertas);
    set(handles.text27, 'String', Suberradas);
    
    y = [Ecertas/count Eerradas/count ; Subcertas/count Suberradas/count ];
    b = bar(handles.axes5,y);
    set(handles.figure1, 'pointer', 'arrow')
    
    
end

guidata(hObject, handles);



% --- Executes on selection change in pop_topologia.
function pop_topologia_Callback(hObject, eventdata, handles)
% hObject    handle to pop_topologia (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns pop_topologia contents as cell array
%        contents{get(hObject,'Value')} returns selected item from pop_topologia


% --- Executes during object creation, after setting all properties.
function pop_topologia_CreateFcn(hObject, eventdata, handles)
% hObject    handle to pop_topologia (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in pop_fAtivacao.
function pop_fAtivacao_Callback(hObject, eventdata, handles)
% hObject    handle to pop_fAtivacao (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns pop_fAtivacao contents as cell array
%        contents{get(hObject,'Value')} returns selected item from pop_fAtivacao


% --- Executes during object creation, after setting all properties.
function pop_fAtivacao_CreateFcn(hObject, eventdata, handles)
% hObject    handle to pop_fAtivacao (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in bt_trainNN.
function bt_trainNN_Callback(hObject, eventdata, handles)
% hObject    handle to bt_trainNN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

%Loaded from GUI

set(handles.figure1, 'pointer', 'watch')
drawnow;


all_topologias = get(handles.pop_topologia,'String');
NNparam.topologia = all_topologias(get(handles.pop_topologia,'Value'),:);
NNparam.topologia = NNparam.topologia{1,1};


all_fAtivacao = get(handles.pop_fAtivacao,'String');
NNparam.fAtivacao = all_fAtivacao(get(handles.pop_fAtivacao,'Value'),:);
NNparam.fAtivacao = NNparam.fAtivacao{1,1};

all_fTreino = get(handles.pop_fTreino,'String');
NNparam.fTreino = all_fTreino(get(handles.pop_fTreino,'Value'),:);
NNparam.fTreino = NNparam.fTreino{1,1};

selectedDataset = get(handles.pop_trainData,'String');
selectedDataset = selectedDataset(get(handles.pop_trainData,'Value'),:);

selectedDataset = strcat(handles.path_to_files, selectedDataset);

hiddenLayers = get(handles.slider_layers,'Value');
hiddenLayers = floor(hiddenLayers)
neurons = get(handles.slider_neurons,'Value');
neurons = floor(neurons)


A(1:1,1:hiddenLayers) = neurons;

%Default param
NNparam.neuronios = A;
NNparam.trainRatio = 0.7;
NNparam.valRatio = 0.15;
NNparam.testRatio = 0.15;
NNparam.max_fail = 10;

imagens = LoadImages(selectedDataset{1,1}, handles.scale);
imagens = UpdateImages(imagens,handles.data_file, handles.scale);
    %- Input and Output Generation
input = inputfromImageExtration(imagens, handles.scale);
target = targetCodigoSubEspecie(imagens);

[currentTrainNN data pTotal pTeste] = NeuralNetwork(NNparam, input, target);

handles.currentTrainNN = currentTrainNN;

set(handles.txt_pTotal, 'String', pTotal);
set(handles.txt_pTeste, 'String', pTeste);

% your computation
set(handles.figure1, 'pointer', 'arrow')

% Update handles structure
guidata(hObject, handles);
%view(redeNeuronal);




% --- Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --- Executes during object creation, after setting all properties.
function edit1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called


% --- Executes during object creation, after setting all properties.
function edit2_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called


% --- Executes on selection change in pop_fTreino.
function pop_fTreino_Callback(hObject, eventdata, handles)
% hObject    handle to pop_fTreino (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns pop_fTreino contents as cell array
%        contents{get(hObject,'Value')} returns selected item from pop_fTreino


% --- Executes during object creation, after setting all properties.
function pop_fTreino_CreateFcn(hObject, eventdata, handles)
% hObject    handle to pop_fTreino (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in bt_saveNN.
function bt_saveNN_Callback(hObject, eventdata, handles)
% hObject    handle to bt_saveNN (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

if strcmp(handles.currentTrainNN, 'EMPTY') == 1
   errordlg('Por favor treine uma rede primeiro','NN not found');
else 
    old_dir = pwd;
    cd (handles.path_to_files);
    nr_files=dir(['*.mat']);
    nr_files=size(nr_files,1);
    nr_files=num2str(nr_files);
    name = {['NN', nr_files]};
    name = name{1,1};
    NN = handles.currentTrainNN;
    save(name,'NN');
    cd (old_dir);
end


% --- Executes on button press in bt_class.
function bt_class_Callback(hObject, eventdata, handles)
% hObject    handle to bt_class (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

if strcmp(handles.currentImage, 'EMPTY') == 1
   errordlg('Por favor carregue uma imagem primeiro','NN not found');
else 
   [species subSpecies codeSpecies codeSubEspecies connection] = ClassificationExtration(handles.data_file);
   net = handles.currentClassificationNN;
   %input = inputfromImageExtration(handles.currentImage, handles.scale);  
   
   %Image Extration of Features
   inputSize = net.inputs.size;
   inputSize = inputSize{1,1};
   
   
   points = detectHarrisFeatures(handles.currentImage);
    points = points.selectStrongest(inputSize/2).Location;

    points = points(:);
            
   output = net(points);
    [REspecie RsubEspecie] = nnOutputToSpecieCode(output, subSpecies, connection);
   set(handles.edit1, 'String', REspecie{1,1});
   set(handles.edit2, 'String', RsubEspecie{1,1});
   
   
   
end


% --- Executes during object creation, after setting all properties.
function imageDisplay_CreateFcn(hObject, eventdata, handles)
% hObject    handle to imageDisplay (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: place code in OpeningFcn to populate imageDisplay


% --- Executes on selection change in pop_trainData.
function pop_trainData_Callback(hObject, eventdata, handles)
% hObject    handle to pop_trainData (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns pop_trainData contents as cell array
%        contents{get(hObject,'Value')} returns selected item from pop_trainData


% --- Executes during object creation, after setting all properties.
function pop_trainData_CreateFcn(hObject, eventdata, handles)
% hObject    handle to pop_trainData (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on slider movement.
function slider_neurons_Callback(hObject, eventdata, handles)
% hObject    handle to slider_neurons (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'Value') returns position of slider
%        get(hObject,'Min') and get(hObject,'Max') to determine range of slider
set(handles.text33, 'String', floor(get(handles.slider_neurons,'Value')));

% --- Executes during object creation, after setting all properties.
function slider_neurons_CreateFcn(hObject, eventdata, handles)
% hObject    handle to slider_neurons (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor',[.9 .9 .9]);
end


% --- Executes on slider movement.
function slider_layers_Callback(hObject, eventdata, handles)
% hObject    handle to slider_layers (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'Value') returns position of slider
%        get(hObject,'Min') and get(hObject,'Max') to determine range of slider
  set(handles.text32, 'String', floor(get(handles.slider_layers,'Value')));

% --- Executes during object creation, after setting all properties.
function slider_layers_CreateFcn(hObject, eventdata, handles)
% hObject    handle to slider_layers (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: slider controls usually have a light gray background.
if isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor',[.9 .9 .9]);
end


% --- Executes on button press in btn_save.
function btn_save_Callback(hObject, eventdata, handles)
% hObject    handle to btn_save (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

if handles.hasData == 0
   errordlg('Verifique se os dados existem ou se ja foram gravados','NN not found');
else 
    handles.hasData = 0;
    savedData.dataSetUsed = handles.dataSetUsed;
    savedData.SimulationUsed = handles.SimulationUsed;
    savedData.nrFolhas = handles.nrFolhas;
    savedData.especiesCertas = handles.especiesCertas;
    savedData.subEspeciesCertas = handles.subEspeciesCertas;
    savedData.time = handles.time;

    writeData(savedData);
end


guidata(hObject, handles);