A list,



Ii. Source code

clc
clear all
close all
[s,fs]=wavread('C7_1_y.wav');
winlen=256;
win=hamming(winlen);
overlap=100;
f=enframe(s,win,overlap);
fn=Filpframe_LinearA(f,win,overlap);
subplot(211)
plot(s/max(abs(s)))
xlabel('points')
ylabel('幅度')
title('(a) Original signal ')
subplot(212)
plot(fn/max(abs(fn)))
xlabel('points') function frameout=enframe(x,win,inc) nx=length(x(:)); Nwin =length(win); % windowif (nwin == 1) % Check whether the window length is1If, for1, that is, len = win is not set; % is, frame length =winelselen = nwin; % No, frame length = window length endif (nargin < 3) % If there are only two parameters, set frame inc= frame length inc= len; end nf = fix((nx-len+inc)/inc); % FrameOut =zeros(NF,len); Indf = inc*(0:(nf- 1)). '; % Set the displacement position of each frame in x inds = (1:len); % Corresponds to each frame1:len
frameout(:) = x(indf(:,ones(1,len))+inds(ones(nf,1), :)); % Frames the dataif (nwin > 1If the argument includes a window function, multiply each frame by the window function w = win(:)'; % convert WIN to row dataCopy the code

3. Operation results

Fourth, note

Version: 2014a complete code or write plus 1564658423