sonify.m

来自「老外写的小波变换的工具箱」· M 代码 · 共 31 行

function sonify(frac)
% sonfiy -- Called by WLBrowser
%  Usage
%    sonfiy(frac)
%
global PlotFig HC n
tmp = get(PlotFig,'UserData');
%n
%disp(tmp(1:10))
s = length(tmp);
x = tmp(4:s);
m = round(frac*n);
panel = tmp(3);
lo = m - panel + 1;
hi = m + panel ;
lo = max(1,min(lo,n-2*panel));
hi = min(n,max(hi,2*panel+1));
%[lo hi panel]
r = lo:hi;
sound(x(r),8192);
    
    
 
 
%
%  Part of Wavelab Version 850
%  Built Tue Jan  3 13:20:39 EST 2006
%  This is Copyrighted Material
%  For Copying permissions see COPYING.m
%  Comments? e-mail [e-mail]