% Cohen Time-Frequency Distribution of Topologist's sine curve.

clear all;
t=0.0001:0.0001:0.1;
sig=sin(pi./t);

fg=figure;
r1=subplot(211);
l1=plot(sig,'b','markersize',5);
axis([1 length(sig) min(sig) max(sig)]);
title('Topologist sine curve');
r2=subplot(212);
cwd =CohenDist(sig,10000);
set(r1,'position',[0.1 0.77 0.85 0.2]);
set(r2,'position',[0.1 0.1 0.85 0.66]);

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