r_info.m 3.58 KB
function r_info
% R_ROOT - Produces a .mat file with roots. With this function, you have to
% write the root only one time instead of writing it in each function. 
%
% Syntax:  r_info
%
% Inputs:
%    nbF - The number of floes
%   
%
% Example:
%          r_root
%
% Other m-files required: none
% Subfunctions: none
% MAT-files required: none
%
% See also: 

% Author: Marie-Pier Marquis, Dany Dumont
% UQAR/ISMER
% email: dany_dumont@uqar.ca
% Website: http://www.ismer.ca/dumont-dany
% January 2014
% ______________________________________________________________________
%%

nbF = 40;

info.createFloes = 2;   % 1 : r_create_floe
                        % 2 : r_createFloeCircle

info.fps = 5;
info.average = 4;       % 1 : mean 60 +5*tpms to 60 +15*tpms
                        % 2 : mean 75 +5*tpms to 75 +75*tpms
                        % 3 : mean 75 +5*tpms to 75 +30*tpms
                        % 4 : mean 100+5*tpms to 100+30*tpms
if info.average == 1
    info.int1 = 60;     % Mean begins at int1 + int3*tpms
    info.int2 = 60;     % Mean ends at int2 + int4*tpms
    info.int3 = 5;      % Mean begins at int1 + int3*tpms
    info.int4 = 15;     % Mean ends at int2 + int4*tpms
elseif info.average == 2
    info.int1 = 75;     % Mean begins at int1 + int3*tpms
    info.int2 = 75;     % Mean ends at int2 + int4*tpms
    info.int3 = 5;      % Mean begins at int1 + int3*tpms
    info.int4 = 75;     % Mean ends at int2 + int4*tpms
elseif info.average == 3
    info.int1 = 75;     % Mean begins at int1 + int3*tpms
    info.int2 = 75;     % Mean ends at int2 + int4*tpms
    info.int3 = 5;      % Mean begins at int1 + int3*tpms
    info.int4 = 30;     % Mean ends at int2 + int4*tpms
elseif info.average == 4
    info.int1 = 100;    % Mean begins at int1 + int3*tpms
    info.int2 = 100;    % Mean ends at int2 + int4*tpms
    info.int3 = 0;      % Mean begins at int1 + int3*tpms
    info.int4 = 70;     % Mean ends at int2 + int4*tpms

end

info.dt       = 1;   % Data between int1 + int3*tpms and int2 + int4*tpms
if info.dt == 1
    info.int1v = 60;   % Mean begins at int1 + int3*tpms
    info.int2v = 60;   % Mean ends at int2 + int4*tpms
    info.int3v = 5;    % Mean begins at int1 + int3*tpms
    info.int4v = 15;   % Mean ends at int2 + int4*tpms
elseif info.dt == 2
    info.int1v = 60;   % Mean begins at int1 + int3*tpms
    info.int2v = 60;   % Mean ends at int2 + int4*tpms
    info.int3v = 5;    % Mean begins at int1 + int3*tpms
    info.int4v = 15;   % Mean ends at int2 + int4*tpms
end

        
info.waveType    = 1;            % 1 if regular wave, 0 if irregular waves
rootdir =  r_root(nbF);
cd(rootdir)
info.data         = 'dataCircle_';   % r_isolateCircle, r_isolate, r_data_pos
info.interp       = '/interp'; %inter_25 for 25 fps
info.result       = '_results_c'; % _results for isolate and _results_c for isolateCircle
info.resultV      = '_results_v_c';
info.figsData     = '/figs_data_c_'; 
info.figsDataV    = '_figs_v_data_c';
info.sumResult    = '_summary_results_c';
info.sumResultV   = '_summary_results_v_c';
info.figsSummary  = '/figs_summary_c_' ;
info.xyTitle      = 'c_xy_';
info.dispTitle    = 'disp_';
info.dyNorm       = 'c_dy_norm_';
info.meanDy       = 'c_mean_dy_';
info.vTitle       = 'c_v';
info.TKETitle     = 'c_TKE_';
info.TkeDtTitle   = 'c_TKE_dt_';
info.expTkeTitle  = 'c_exp_TKE_';
info.expTkeDt     = 'c_exp_TKE_dt_';
info.SumTkeTitle  = 'c_TKE_norm_vs_T_';
info.meanTkeTitle = 'c_mean_tke_norm_vs_T_';
info.tkeNormDtTitle = 'c_TKE_norm_dt_vs_T_';
info.meanTkeDtTitle = 'c_mean_tke_norm_dt_vs_T_';


%% Saving data

disp('Saving info.mat ... ');
save([rootdir, '/info'], 'info', '-v7.3');


end