when identification=1, the only morris options allowed remain

morris 1 or 2.
time-shift
Marco Ratto 2012-06-08 15:27:41 +02:00
parent 69d015a777
commit 6b908a38eb
3 changed files with 22 additions and 9 deletions

View File

@ -79,6 +79,11 @@ if options_gsa.identification,
options_gsa = set_default_option(options_gsa,'ar',1);
options_gsa = set_default_option(options_gsa,'useautocorr',0);
options_.ar = options_gsa.ar;
if options_gsa.morris==0,
disp('The option morris = 0 is no longer supported (Type I errors)')
disp('This option is reset at morris = 2 (local identification analysis).')
options_gsa.morris=2;
end
if options_gsa.morris==2,
if isfield(options_,'options_ident'),
options_.options_ident.load_ident_files = options_gsa.load_ident_files;
@ -122,7 +127,13 @@ if options_gsa.redform,
options_gsa.ppost=0;
end
if options_gsa.morris==1 || options_gsa.morris==3,
if options_gsa.morris>2,
disp('The option morris = 3 is no longer supported')
disp('the option is reset at morris = 1 .')
options_gsa.morris=1;
end
if options_gsa.morris==1,
if ~options_gsa.identification,
options_gsa.redform=1;
end
@ -134,12 +145,12 @@ if options_gsa.morris==1 || options_gsa.morris==3,
options_gsa.load_rmse=0;
options_gsa.alpha2_stab=1;
options_gsa.ksstat=1;
if options_gsa.morris==3,
options_gsa = set_default_option(options_gsa,'Nsam',256);
OutputDirectoryName = CheckPath('gsa/identif',M_.dname);
else
% if options_gsa.morris==3,
% options_gsa = set_default_option(options_gsa,'Nsam',256);
% OutputDirectoryName = CheckPath('gsa/identif',M_.dname);
% else
OutputDirectoryName = CheckPath('gsa/screen',M_.dname);
end
% end
else
OutputDirectoryName = CheckPath('gsa',M_.dname);
end

View File

@ -768,6 +768,8 @@ if opt_gsa.morris==1,
% eval(['print -dpdf ' OutputDirectoryName '/' fname_ '_morris_redform']);
elseif opt_gsa.morris==3,
return
np=estim_params_.np;
na=(4*np+1)*opt_gsa.Nsam;
for j=1:j0,

View File

@ -122,9 +122,9 @@ if fload==0,
Nsam=size(lpmat,1);
lpmat0 = lpmat(:,1:nshock);
lpmat = lpmat(:,nshock+1:end);
elseif opt_gsa.morris==3,
lpmat = prep_ide(Nsam,np,5);
Nsam=size(lpmat,1);
% elseif opt_gsa.morris==3,
% lpmat = prep_ide(Nsam,np,5);
% Nsam=size(lpmat,1);
else
if np<52 & ilptau>0,
[lpmat] = qmc_sequence(np, int64(0), 0, Nsam)';