function W=wave(x,N)
%         Спектрально-временной анализ (СВАН)
%Вычисление амплитудного спектра в скольз?щем окне шириной N
%
%
%Вызов:  W=wave(x,N);
%
%    x - исходный р?д длины n;
%    N - длина подвыборки дл? FFT (N<n);
%
%
%
%

nw = 20;    %кол-во определений FFT (кол-во столбцов матрицы W)

n=length(x);
K=fix((n-N)/nw);    % длина сдвига по x
for k=1:nw,
   l1=(k-1)*K+1;
   l2=l1+N-1;
disp([k l1 l2])
   a=fft(x(l1:l2));
   W(:,k)=p_gramm(a,2);
end
