xp_dmat_parametersettings_12c

L. Bottemanne

·

Follow

2 min read

·

May 17, 2018

--

Listen

Share

function [a v Ter] = xp_dmat_parametersettings_12c(modele) if strcmp(modele, 'null_model')
    v   = ones(12,1);
    Ter = ones(12,1);
    a   = ones(12,1);
    %     null.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);
end;
%       A vary between PAY %     cd(expath);
if strcmp(modele, 'aPay')
    v   = ones(12,1);
    Ter = ones(12,1);
    a = [1 0 ; 1 0 ; 1 0 ;...
        0 1 ; 0 1 ; 0 1 ; ...
        1 0 ; 1 0 ; 1 0; ...
        0 1 ; 0 1 ; 0 1];   % aPay
end;
%    aPay.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%       A vary between BEN %     cd(expath);
if strcmp(modele, 'aBen')
    v   = ones(12,1);
    Ter = ones(12,1);
    a = [1 0 ; 1 0 ; 1 0 ; ...
        1 0 ; 1 0 ; 1 0;  ...
        0 1 ; 0 1 ; 0 1 ; ...
        0 1 ; 0 1 ; 0 1];   % aBen
end; % aBen.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);
%       V vary between BEN %     cd(expath);

if strcmp(modele, 'vCoh')
    v   =   [1 0 0; 0 1 0;  0 0 1; ...
             1 0 0; 0 1 0;  0 0 1; ...
             1 0 0; 0 1 0;  0 0 1; ...
             1 0 0; 0 1 0;  0 0 1];   % vBen
    Ter = ones(12,1);
    a   = ones(12,1);
end;% vBen.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%       V vary between PAY %     cd(expath);
if strcmp(modele, 'vPay')
    v   =  [1 0 ; 1 0 ; 1 0 ;...
        0 1 ; 0 1 ; 0 1 ; ...
        1 0 ; 1 0 ; 1 0; ...
        0 1 ; 0 1 ; 0 1];   % vPay
    Ter = ones(12,1);
    a   = ones(12,1);
end;%  vPay.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%       V vary between BEN %     cd(expath);
if strcmp(modele, 'vBen')
    v   = [1 0 ; 1 0 ; 1 0 ; ...
        1 0 ; 1 0 ; 1 0;  ...
        0 1 ; 0 1 ; 0 1 ; ...
        0 1 ; 0 1 ; 0 1];   % vBen
    Ter = ones(12,1);
    a   = ones(12,1);
end;% vBen.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%     full model %     cd(expath);
if strcmp(modele, 'full_model')
    v   = eye(12);
    Ter = eye(12);
    a   = eye(12);
end; % full.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%Without considering Ter as a parameter
if strcmp(modele, 'TerFix')
    v   = eye(12);
    Ter = ones(12,1);
    a   =  eye(12);
end; % TerFix.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

%Without considering Ter as a parameter
if strcmp(modele, 'TerFree')
    v   = ones(12,1);
    Ter =  eye(12);
    a   = ones(12,1);
end; %  TerFree.S(f).dmat = do_dmat12c (datadmat, a, v, Ter);

disp('Recovered a v Ter parameters settings are :');
disp([a v Ter]);