run1.m

hilbert时频识别（力学领域）Michael feldman编写（自由振动、强迫振动）

m2 = menu('Choose a System',...
'Linear',...
'Duffing',...
'Backlash + Dry friction',...
'Back to the "Signal"',...
'Quit & Close');

if     m2==1, eval(['load      linfr' stype '.mat;']); eval(['[y1,A,f,f0,h]=' pn '(y,1000,200,stype);']); run1;
elseif m2==2, eval(['load      duffr' stype '.mat;']); eval(['[y1,A,f,f0,h]=' pn '(y,1000,200,stype);']); run1;
elseif m2==3, eval(['load dry_backfr' stype '.mat;']); eval(['[y1,A,f,f0,h]=' pn '(y,1000,200,stype);']); run1;
elseif m2==4, run;
elseif m2==5, close all; return;
end