% Load signal TWEET then, compute 
% Cohen time-Frequency Distrinution  
% for the signal scrolling point by point 
% (sample 512 / 8192) 

load tweet.asc;
sigFULL=tweet;
LMax=length(sigFULL);

for n=1:LMax-512;;
    M2=511+n; 
    M1=n;
    sig=sigFULL(M1:M2);
   pause(0.1);

r1=subplot(211);
l1=plot(sig,'b','markersize',5);
ylabel(['8192/ ', num2str(n)]);

axis([1 length(sig) min(sig) max(sig)]);
r2=subplot(212);cwd =CohenDist(sig,512);
set(r1,'position',[0.1 0.77 0.85 0.2]);
set(r2,'position',[0.1 0.1 0.85 0.66]);
end


% "Complex and Chaotic Nonlinear Dynamics. 
% Advances in Economics and Finance, 
% Mathematics and Statistics" 
% T.Vialar, Springer 2009.
% Copyright(c).
