1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
| global menu_vitesse_rotation menu_ponderation menu_nb_pt menu_overlap ...
menu_padding menu_format menu_amplitude menu_disparam menu_sensibilite ...
strlistvitesse strlistpond listnbpt listoverlap listpadd strlistformat ...
strlistamplitude listdisparam listsensib valeur_fmin valeur_fmax nchan capt
% duree listduree menu_duree
if ~exist('varargin')
error('Cette procedure est réservée aux fonctions autosp, crossp, matsp');
end
% vérification échantillonage
if class(ech)~= 'double' | length(ech) > 1
error('Le premier argument doit etre la fréquence d''echantillonage (scalaire)');
end
% Initialisation des variables
vit = cell2mat(strlistvitesse(get(menu_vitesse_rotation,'Value')));
win = strlistpond(get(menu_ponderation,'Value'));
np = listnbpt(get(menu_nb_pt,'Value'));
% duree = listduree(get(menu_duree,'Value'));
overlap = listoverlap(get(menu_overlap,'Value'));
zpad = listpadd(get(menu_padding,'Value'));
format = strlistformat(get(menu_format,'Value'));
amplitude = strlistamplitude(get(menu_amplitude,'Value'));
disparam = listdisparam(get(menu_disparam,'Value'));
sensib = listsensib(get(menu_sensibilite,'Value'));
frange = [str2double(get(valeur_fmin,'String')),str2double(get(valeur_fmax,'String'))];
% récupération des parametres passés dans varargin
for i = 1:2:length(varargin)
if isstr(varargin{i})
switch varargin{i}
case 'win'
win = varargin{i+1};
if ~isstr(win) error('Erreur fenetre de pondération'); end
case 'duree'
duree = varargin{i+1};
if ~isnumeric(duree) error('Erreur durée de fenetre temporelle'); end
case 'np'
np = varargin{i+1};
if ~isnumeric(np) error('Erreur nombre de points'); end
case 'disparam'
disparam = varargin{i+1};
if disparam ~= 0 && disparam ~= 1 error('Erreur : disparam = 0 ou 1'); end
case 'overlap'
overlap = varargin{i+1};
if overlap > 99 || overlap < 0 error('Erreur : 0 < overlap < 99'); end
case 'amplitude'
amplitude = varargin{i+1};
if ~isstr(amplitude) error('Erreur amplitude'); end
case 'format'
format = varargin{i+1};
if ~isstr(formout) error('Erreur format'); end
case 'zpad'
zpad = varargin{i+1};
if ~isnumeric(zpad) error('Erreur zero-padding'); end
case 'sensib'
sensib = varargin{i+1};
if ~isnumeric(sensib) error('Erreur de sensibilité'); end
% case 'capt'
%capt = varargin{i+1};
case 'frange'
frange = varargin{i+1};
if ~isnumeric(frange) error('Erreur : frange incorrect');
elseif length(frange) ~= 2 error('Erreur : frange incorrect'); end
otherwise
error(['Parametre ' varargin{i} ' inconnu. Parametres connus : ''capt'',''np'', ''duree'', ''win'', ''overlap'', ''amplitude'', ''disparam'', ''sensib'', ''frange'', ''zpad''']);
end |
Partager