createConfig.m

%clear all
%close all
disp('Starting');
warning off
rng('default');

% Video to be processed
VideoFileSpec{1}='baseline/highway';
deltaFrame{1}=0;
numFrames{1}=1700;
InputSize{1}=[240 320];

VideoFileSpec{2}='baseline/office';
deltaFrame{2}=0;
numFrames{2}=2050;
InputSize{2}=[240 360];

VideoFileSpec{3}='baseline/pedestrians';
deltaFrame{3}=0;
numFrames{3}=1099;
InputSize{3}=[240 360];

VideoFileSpec{4}='baseline/PETS2006';
deltaFrame{4}=0;
numFrames{4}=1200;
InputSize{4}=[576 720];

VideoFileSpec{5}='cameraJitter/badminton';
deltaFrame{5}=0;
numFrames{5}=1150;
InputSize{5}=[480 720];

VideoFileSpec{6}='cameraJitter/boulevard';
deltaFrame{6}=0;
numFrames{6}=2500;
InputSize{6}=[240 352];

VideoFileSpec{7}='cameraJitter/sidewalk';
deltaFrame{7}=0;
numFrames{7}=1200;
InputSize{7}=[240 352];

VideoFileSpec{8}='cameraJitter/traffic';
deltaFrame{8}=0;
numFrames{8}=1570;
InputSize{8}=[240 320];

VideoFileSpec{9}='dynamicBackground/boats';
deltaFrame{9}=0;
numFrames{9}=7999;
InputSize{9}=[240 320];

VideoFileSpec{10}='dynamicBackground/canoe';
deltaFrame{10}=0;
numFrames{10}=1189;
InputSize{10}=[240 320];

VideoFileSpec{11}='dynamicBackground/fall';
deltaFrame{11}=0;
numFrames{11}=4000;
InputSize{11}=[480 720];

VideoFileSpec{12}='dynamicBackground/fountain01';
deltaFrame{12}=0;
numFrames{12}=1184;
InputSize{12}=[288 432];

VideoFileSpec{13}='dynamicBackground/fountain02';
deltaFrame{13}=0;
numFrames{13}=1499;
InputSize{13}=[288 432];

VideoFileSpec{14}='dynamicBackground/overpass';
deltaFrame{14}=0;
numFrames{14}=3000;
InputSize{14}=[240 320];

VideoFileSpec{15}='intermittentObjectMotion/abandonedBox';
deltaFrame{15}=0;
numFrames{15}=4500;
InputSize{15}=[288 432];

VideoFileSpec{16}='intermittentObjectMotion/parking';
deltaFrame{16}=0;
numFrames{16}=2500;
InputSize{16}=[240 320];

VideoFileSpec{17}='intermittentObjectMotion/sofa';
deltaFrame{17}=0;
numFrames{17}=2750;
InputSize{17}=[240 320];

VideoFileSpec{18}='intermittentObjectMotion/streetLight';
deltaFrame{18}=0;
numFrames{18}=3200;
InputSize{18}=[240 320];

VideoFileSpec{19}='intermittentObjectMotion/tramstop';
deltaFrame{19}=0;
numFrames{19}=3200;
InputSize{19}=[288 432];

VideoFileSpec{20}='intermittentObjectMotion/winterDriveway';
deltaFrame{20}=0;
numFrames{20}=2500;
InputSize{20}=[240 320];

VideoFileSpec{21}='shadow/backdoor';
deltaFrame{21}=0;
numFrames{21}=2000;
InputSize{21}=[240 320];

VideoFileSpec{22}='shadow/bungalows';
deltaFrame{22}=0;
numFrames{22}=1700;
InputSize{22}=[240 360];

VideoFileSpec{23}='shadow/busStation';
deltaFrame{23}=0;
numFrames{23}=1250;
InputSize{23}=[240 360];

VideoFileSpec{24}='shadow/copyMachine';
deltaFrame{24}=0;
numFrames{24}=3400;
InputSize{24}=[480 720];

VideoFileSpec{25}='shadow/cubicle';
deltaFrame{25}=0;
numFrames{25}=7400;
InputSize{25}=[240 352];

VideoFileSpec{26}='shadow/peopleInShade';
deltaFrame{26}=0;
numFrames{26}=1199;
InputSize{26}=[244 380];

VideoFileSpec{27}='thermal/corridor';
deltaFrame{27}=0;
numFrames{27}=5400;
InputSize{27}=[240 320];

VideoFileSpec{28}='thermal/diningRoom';
deltaFrame{28}=0;
numFrames{28}=3700;
InputSize{28}=[240 320];

VideoFileSpec{29}='thermal/lakeSide';
deltaFrame{29}=0;
numFrames{29}=6500;
InputSize{29}=[240 320];

VideoFileSpec{30}='thermal/library';
deltaFrame{30}=0;
numFrames{30}=4900;
InputSize{30}=[240 320];

VideoFileSpec{31}='thermal/park';
deltaFrame{31}=0;
numFrames{31}=600;
InputSize{31}=[288 352];


VideoFileSpec{32}='badWeather/blizzard';
deltaFrame{32}=0;
numFrames{32}=7000;
InputSize{32}=[480 720];

VideoFileSpec{33}='badWeather/skating';
deltaFrame{33}=0;
numFrames{33}=3900;
InputSize{33}=[360 540];

VideoFileSpec{34}='badWeather/snowFall';
numFrames{34}=6500;
deltaFrame{34}=0;
InputSize{34}=[480 720];

VideoFileSpec{35}='badWeather/wetSnow';
deltaFrame{35}=0;
numFrames{35}=3500;
InputSize{35}=[540 720];

VideoFileSpec{36}='lowFramerate/port_0_17fps';
deltaFrame{36}=0;
numFrames{36}=3000;
InputSize{36}=[480 640];

VideoFileSpec{37}='lowFramerate/tramCrossroad_1fps';
deltaFrame{37}=0;
numFrames{37}=900;
InputSize{37}=[350 640];

VideoFileSpec{38}='lowFramerate/tunnelExit_0_35fps';
deltaFrame{38}=0;
numFrames{38}=4000;
InputSize{38}=[440 700];

VideoFileSpec{39}='lowFramerate/turnpike_0_5fps';
deltaFrame{39}=0;
numFrames{39}=1500;
InputSize{39}=[240 320];

VideoFileSpec{40}='nightVideos/bridgeEntry';
deltaFrame{40}=0;
numFrames{40}=2500;
InputSize{40}=[430 630];

VideoFileSpec{41}='nightVideos/busyBoulvard';
deltaFrame{41}=0;
numFrames{41}=2760;
InputSize{41}=[364 640];

VideoFileSpec{42}='nightVideos/fluidHighway';
deltaFrame{42}=0;
numFrames{42}=1364;
InputSize{42}=[450 700];

VideoFileSpec{43}='nightVideos/streetCornerAtNight';
deltaFrame{43}=0;
numFrames{43}=5200;
InputSize{43}=[245 595];

VideoFileSpec{44}='nightVideos/tramStation';
deltaFrame{44}=0;
numFrames{44}=3000;
InputSize{44}=[295 480];

VideoFileSpec{45}='nightVideos/winterStreet';
deltaFrame{45}=0;
numFrames{45}=1785;
InputSize{45}=[420 624];

VideoFileSpec{46}='PTZ/continuousPan';
deltaFrame{46}=0;
numFrames{46}=1700;
InputSize{46}=[480 704];

VideoFileSpec{47}='PTZ/intermittentPan';
deltaFrame{47}=0;
numFrames{47}=3500;
InputSize{47}=[368 560];

VideoFileSpec{48}='PTZ/twoPositionPTZCam';
deltaFrame{48}=0;
numFrames{48}=2300;
InputSize{48}=[340 570];

VideoFileSpec{49}='PTZ/zoomInZoomOut';
deltaFrame{49}=0;
numFrames{49}=1130;
InputSize{49}=[240 320];

VideoFileSpec{50}='turbulence/turbulence0';
deltaFrame{50}=0;
numFrames{50}=5000;
InputSize{50}=[480 720];

VideoFileSpec{51}='turbulence/turbulence1';
deltaFrame{51}=0;
numFrames{51}=4000;
InputSize{51}=[480 720];

VideoFileSpec{52}='turbulence/turbulence2';
deltaFrame{52}=0;
numFrames{52}=4500;
InputSize{52}=[315 645];

VideoFileSpec{53}='turbulence/turbulence3';
deltaFrame{53}=0;
numFrames{53}=2200;
InputSize{53}=[486 720];

% params
% CompressionFactor = 0.125; % {0.875, 0.75, 0.625, 0.5, 0.375, 0.25, 0.125}
% TypeCompression = 1; % {1,2} -- 'imresize', 'imfilter'
% typeImresize = 1; % {1,2,3} -- only works for typeCompression='imresize' -- 'nearest' 'bicubic' 'bilinear'

Method = [1 2 3]; % {mfbm, cl-vid, fsom}
TypeDownsampling = [1 2 3 4]; % {imresize ('nearest', 'bicubic', 'bilinear'), imfilter}
ResizeFactor = [0.875, 0.75, 0.625, 0.5, 0.375, 0.25, 0.125];
TypeUpsampling = [1 2]; % {imresize ('bicubic'), SR}

%%% seleccionar videos para el estudio !!!!!!!!!!!

NumVideos = 31; % las categorias del cdnet 2012
NumMethods = numel(Method);
NumTypeDownsamplings = numel(TypeDownsampling);
NumResizeFactors = numel(ResizeFactor);
NumTypeUpsamplings = numel(TypeUpsampling);

numConfigs=NumVideos * NumMethods * NumResizeFactors * NumTypeDownsamplings * NumTypeUpsamplings;

MyArrayID=getenv('SLURM_ARRAY_TASK_ID');
if isunix
    %if exist('MyArrayID','var')
	if ~isempty(MyArrayID)
        ArrayIDNumber=sscanf(MyArrayID,'%d');
        if(size(ArrayIDNumber,1)>0) %picasso
            fprintf('\r\nTask %d starting.\r\n',ArrayIDNumber);
            IsPicasso=1;
            params.MatlabProjectsDirectory = '/mnt/scratch/users/tic_163_uma/miguelangel/unidad_z/proyectos_matlab/';
        else
            ArrayIDNumber=1;
            IsPicasso=0;        
            %params.MatlabProjectsDirectory = '/home/icai21/proyectos_matlab/';
            params.MatlabProjectsDirectory = '/mnt/scratch/users/tic_163_uma/miguelangel/unidad_z/proyectos_matlab/';
        end
        
    else
        ArrayIDNumber=1;
        IsPicasso=0;        
        %params.MatlabProjectsDirectory = '/home/icai21/proyectos_matlab/';
        params.MatlabProjectsDirectory = '/mnt/scratch/users/tic_163_uma/miguelangel/unidad_z/proyectos_matlab/';
    end
elseif ispc
    ArrayIDNumber=1;
    IsPicasso=0;
    params.MatlabProjectsDirectory = 'C:/proyectos_matlab/';    
end

%ArrayIDNumber=911;
%ArrayIDNumber=1;

ArrayIDNumber = mod(ArrayIDNumber,numConfigs);
if ArrayIDNumber == 0
    ArrayIDNumber = numConfigs;
end

%ArrayIDNumber = 731; % NdxVideo =3; NdxResizeFactor = 1; NdxTypeDownsampling=5;
%%%NdxVideo =11; NdxResizeFactor = 1; NdxTypeDownsampling=5;
%%%sub2ind([NumVideos NumResizeFactors NumTypeDownsamplings NumTypeUpsamplings NumMethods],NdxVideo,NdxResizeFactor,NdxTypeDownsampling)

[NdxVideo,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling,NdxMethod]=ind2sub([NumVideos NumResizeFactors NumTypeDownsamplings NumTypeUpsamplings NumMethods],ArrayIDNumber);

%NdxVideo = 11; NdxResizeFactor = 1; NdxTypeDownsampling=4; NdxTypeUpsampling=1;

pwdPath = strsplit(pwd,'/');
%st = dbstack(1); % name of the file that call createConfig.m file
%disp(st.name);

if strcmp(pwdPath{size(pwdPath,2)},'mfbm')
    NdxMethod = 1;
elseif strcmp(pwdPath{size(pwdPath,2)},'clvid')
    NdxMethod = 2;
elseif strcmp(pwdPath{size(pwdPath,2)},'fsom')
    NdxMethod = 3;
%elseif strcmp(st.name,'upsamplingSegmentation')
elseif exist('isUpsampling','var') % hay que cambiarlo cuando se ejecuta el upsampling y las stats
    NdxMethod = 11; % hay que cambiarlo manualmente para cada metodo!!!!
	NdxTypeUpsampling = 1; % hay que cambiarlo manualmente para cada metodo, primero NdxTypeUpsampling = 2 y luego NdxTypeUpsampling = 1!!!!
end

%%ResizeFactor = 0.75;
%%TypeDownsampling = imresize bicubic
%%Method = mfbm
%%TypeUpsampling = imresize bicubic
%%Video = dynamicBackground/canoe
%NdxResizeFactor = 2;
%NdxTypeDownsampling = 2;
%NdxMethod = 2;
%NdxTypeUpsampling = 1;
%NdxVideo = 10;


params.IsPicasso = IsPicasso;
params.VideoFileSpec = strcat(params.MatlabProjectsDirectory,'datasets/dataset2014/dataset/',VideoFileSpec{NdxVideo},'/input/in%06d.jpg');
params.PathDatasetGT = strcat(params.MatlabProjectsDirectory,'datasets/dataset2014/dataset/',VideoFileSpec{NdxVideo},'/groundtruth/gt%06d.png');
params.PathDatasetVideoROI = strcat(params.MatlabProjectsDirectory,'datasets/dataset2014/dataset/',VideoFileSpec{NdxVideo},'/temporalROI.txt');
params.PathDatasetResized = strcat(params.MatlabProjectsDirectory,'resizeStudy/datasetResized/',sprintf('%d-%d/',NdxResizeFactor,NdxTypeDownsampling),VideoFileSpec{NdxVideo},'/input/');
params.PathDatasetSegmented = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'segmentation/',VideoFileSpec{NdxVideo},'/bin%06d.png');
params.PathDatasetUpsampled = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'upsampling/',VideoFileSpec{NdxVideo},'/bin%06d.png');
params.PathDatasetResults = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'results/',VideoFileSpec{NdxVideo});
params.PathDatasetSegmentation = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'segmentation/',VideoFileSpec{NdxVideo});
params.PathDatasetUpsampling = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'upsampling/',VideoFileSpec{NdxVideo});
params.pathConfigFile = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),sprintf('config_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.PathResultsDownsamplingFile = strcat(params.PathDatasetResized,'..',sprintf('/resultsDownsampling_%d_%d_%d.mat',NdxVideo,NdxResizeFactor,NdxTypeDownsampling));
params.PathResultsSegmentationFile = strcat(params.PathDatasetResults,sprintf('/resultsSegmentation_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.PathResultsUpsamplingFile = strcat(params.PathDatasetResults,sprintf('/resultsUpsampling_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.PathResultsStatsFile = strcat(params.PathDatasetResults,sprintf('/resultsStats_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
if exist('isUpsampling','var')
    params.PathDatasetResults = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,1),'results/',VideoFileSpec{NdxVideo});
    params.PathDatasetSegmented = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,1),'segmentation/',VideoFileSpec{NdxVideo},'/bin%06d.png');
    params.PathResultsSegmentationFile = strcat(params.PathDatasetResults,sprintf('/resultsSegmentation_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,1));    
    params.PathDatasetResults = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling),'results/',VideoFileSpec{NdxVideo});
    params.PathResultsUpsamplingFile = strcat(params.PathDatasetResults,sprintf('/resultsUpsampling_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
    params.PathDatasetSegmentation = strcat(params.MatlabProjectsDirectory,'resizeStudy/methods/',sprintf('%d-%d-%d-%d/',NdxMethod,NdxResizeFactor,NdxTypeDownsampling,1),'segmentation/',VideoFileSpec{NdxVideo});
end
params.PathCodeResultsDownsamplingFile = strcat(params.MatlabProjectsDirectory,'resizeStudy/',sprintf('resultsDownsampling_%d_%d_%d.mat',NdxVideo,NdxResizeFactor,NdxTypeDownsampling));
params.PathCodeResultsSegmentationFile = strcat(params.MatlabProjectsDirectory,'resizeStudy/',sprintf('resultsSegmentation_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.PathCodeResultsUpsamplingFile = strcat(params.MatlabProjectsDirectory,'resizeStudy/',sprintf('resultsUpsampling_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.PathCodeResultsStatsFile = strcat(params.MatlabProjectsDirectory,'resizeStudy/',sprintf('resultsStats_%d_%d_%d_%d_%d.mat',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling));
params.videoSelected = VideoFileSpec{NdxVideo};
params.deltaFrame=deltaFrame{NdxVideo};
params.numFrames=numFrames{NdxVideo};
params.InputSize=InputSize{NdxVideo};
params.NdxVideo = NdxVideo;
params.NdxMethod = NdxMethod;
params.NdxResizeFactor = NdxResizeFactor;
params.NdxTypeDownsampling = NdxTypeDownsampling;
params.NdxTypeUpsampling = NdxTypeUpsampling;

params.ResizeFactor = ResizeFactor(NdxResizeFactor);
params.TypeDownsampling = TypeDownsampling(NdxTypeDownsampling);
params.TypeUpsampling = TypeUpsampling(NdxTypeUpsampling);

fprintf('\r\nConfiguration %d-%d-%d-%d-%d starting.\r\n',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling);

statsFile = strcat(params.PathDatasetResults,sprintf('/stats_%d_%d_%d_%d_%d.mat',params.NdxVideo,params.NdxMethod,params.NdxResizeFactor,params.NdxTypeDownsampling,params.NdxTypeUpsampling));

if exist(statsFile) == 2 %file exists
    fprintf('\r\nConfiguration %d-%d-%d-%d-%d already done.\r\n',NdxVideo,NdxMethod,NdxResizeFactor,NdxTypeDownsampling,NdxTypeUpsampling);
else
    
    % Para que no se apelotonen los procesos en el servidor de licencias
    % ListToolBoxes={'Image_Toolbox','Signal_Toolbox','Wavelet_Toolbox','Statistics_Toolbox'};
    % ListToolBoxes={'Image_Toolbox','Signal_Toolbox','Wavelet_Toolbox'};
    ListToolBoxes={'Image_Toolbox'};
    for NdxTool=1:numel(ListToolBoxes)
        while ( license('checkout',ListToolBoxes{NdxTool}) ~= 1 )
            fprintf('License for %s not found.\r\n',ListToolBoxes{NdxTool});
            pause(rand(1)*60);
        end
        fprintf('License for %s found.\r\n',ListToolBoxes{NdxTool});
        %pause(rand(1)*60);
    end   
    
    
    % Create the directory where we write the config file, resized dataset
    % and the results if they do not exist
    if exist(params.PathDatasetResized) ~= 7 %folder does not exist
        disp(params.PathDatasetResized);
        mkdir(params.PathDatasetResized);
    end
    if exist(params.PathDatasetResults) ~= 7 %folder does not exist
        mkdir(params.PathDatasetResults);
    end    
    if exist(params.PathDatasetSegmentation) ~= 7 %folder does not exist
        mkdir(params.PathDatasetSegmentation);
    end 
    if exist(params.PathDatasetUpsampling) ~= 7 %folder does not exist
        mkdir(params.PathDatasetUpsampling);
    end       

	% create segmentation method call
    switch params.NdxMethod
        case 1 %mfbm
            SelectedFeatures{11}=[1 2 3];
            epsilon=[0.0001 0.0005 0.001 0.005 0.01];
            NdxFeatureSort=11;
            NdxEpsilon=4;
            params.SelectedFeatures = SelectedFeatures{NdxFeatureSort};
            params.epsilon = epsilon(NdxEpsilon);
            addpath('./mfbm');
            commandMethod = strcat('matlab -r addpath(''./mfbm'');AutomatedTestBM(''' , params.pathConfigFile, ''') &');
        case 2 %cl-vid            
            params.NumNeurons = 6;
            params.CoefWinner = 0.05;
            params.CoefAll = 0.0001;
            params.DistanceThreshold = 0.01;
            addpath('./clvid');
            commandMethod = strcat('matlab -r addpath(''./clvid'');cl_vid(''' , params.pathConfigFile, ''') &');
        case 3 %fsom
            addpath('./fsom');
            commandMethod = strcat('matlab -r addpath(''./fsom'');fsom(''' , params.pathConfigFile, ''') &');
    end	
    
    % save config file    
    if exist(params.pathConfigFile) ~= 2 %folder does not exist
        save(params.pathConfigFile,'params');
        fprintf('Configuration %d-%d-%d-%d-%d: Config file created...\r\n',params.NdxVideo,params.NdxMethod,params.NdxResizeFactor,params.NdxTypeDownsampling,params.NdxTypeUpsampling);
    end    

end