%initialize
clear all;

%define vars
path= 'C:\Users\Jakub Křivák\Desktop\mereni\1-1N\*.csv';
files=dir(path);

data= readtable(strcat(path(1:42), files(1).name));
rows= size(data, 1);
%loop through rows
for i=1:rows
    %maximal(k, 1)= -100;
    %maximalEduroam(k, 1)= -100;
    %loop through files
    for j=1:length(files);

        data= readtable(strcat(path(1:42), files(j).name));
        %test nacteni hodnot do velke matice
        mat(i, 1, j)= data.Point(i);
        mat(i, 2, j)= str2double(data.PointX(i));
        mat(i, 3, j)= str2double(data.PointY(i));
        mat(i, 4, j)= str2double(data.Signal(i));
        if(str2double(data.Signal(i))<-100)
            mat(i, 4, j)= mat(i, 4, j)/10;
        end
        mat(i, 5, j)= str2double(data.Channel(i));
        matStr(i, 1, j)= data.PHY(i);
        matStr(i, 2, j)= data.Security(i);
        %val= str2double(data.Signal(j));
        %if  strcmpi(files(i).name(1:7), 'eduroam');
        %    if  val >  maximalEduroam(j, 1)
        %        maximalEduroam(j, 1)= str2double(data.Signal(j));    %maximalní hodnoty ve vsech bodech skrz vsechny soubory
        %        maximalEduroam(j, 2)= i;       %cislo souboru
        %    end
        %else
        %    if  val >  maximal(j, 1)
        %        maximal(j, 1)= str2double(data.Signal(j));    %maximalní hodnoty ve vsech bodech skrz vsechny soubory
        %        maximal(j, 2)= i;       %cislo souboru
        %    end
        %end
    end
end

for i=1:length(files)
    isEduroam(1, 1, i)= strncmp(files(i).name, 'eduroam', 7);
end

for i=1:rows
    maximalEduroam(i, 1)= -100;           %osetreni pro NaN
    maximalOthers(i, 1)= -100;

    maximalEduroam(i, 1)= max(mat(i, 4, find(isEduroam)));   %najiti max hodnoty v bode napric soubory eduroam
    maximalOthers(i, 1)= max(mat(i, 4, find(~isEduroam)));
end

for i=1:rows;
    channel= 11;
    maximalEduroam(i, 1)= -100;           %osetreni pro NaN
    maximalOthers(i, 1)= -100;

    maximalEduroam(i, 1)= max(mat(i, 4, intersect(find(isEduroam), find(mat(17, 5, :)==channel))));   %najiti max hodnoty v bode napric soubory eduroam
    maximalOthers(i, 1)= max(mat(i, 4, intersect(find(~isEduroam), find(mat(17, 5, :)==channel))));
end