run.m

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

m1 = menu('Choose a signal',...
'Free vibration, Displacement',...
'Free vibration,         Velocity',...
'Free vibration, Acceleration',...
'Forced vibration, Displacement',...
'Forced vibration,         Velocity',...
'Forced vibration, Acceleration',...
'Quit & Close');

if     m1==1, pn='freevib'; stype='d'; run1;
elseif m1==2, pn='freevib'; stype='v'; run1;
elseif m1==3, pn='freevib'; stype='a'; run1;
elseif m1==4, pn='forcevib';stype='d'; run2;
elseif m1==5, pn='forcevib';stype='v'; run2;
elseif m1==6, pn='forcevib';stype='a'; run2;
elseif m1==7, close all; return;
end