load transients.asc; load linchirp.asc; load tweet.asc; load sunspots.asc; 
load greasy.asc; load caruso.asc; load HochNMR.asc; load RaphNMR.asc; 
load esca.asc; %load laser.asc; 
L1=length(transients);
L2=length(linchirp);
L3=length(tweet);
L4=length(sunspots);
L5=length(greasy);
L6=length(caruso);
L7=length(HochNMR);
L8=length(RaphNMR);
L9=length(esca);

sig1=transients;a1=sig1(2:L1);a2=sig1(1:L1-1);
sig2=linchirp; b1=sig2(2:L2);b2=sig2(1:L2-1);
sig3=tweet; c1=sig3(2:L3);c2=sig3(1:L3-1);
sig4=sunspots; d1=sig4(2:L4);d2=sig4(1:L4-1);
sig5=greasy;e1=sig5(2:L5);e2=sig5(1:L5-1);
sig6=caruso;f1=sig6(2:L6);f2=sig6(1:L6-1);
sig7=HochNMR; g1=sig7(2:L7);g2=sig7(1:L7-1);
sig8=RaphNMR;h1=sig8(2:L8);h2=sig8(1:L8-1);
sig9=esca;i1=sig9(2:L9);i2=sig9(1:L9-1);
%sig11=laser; 

subplot(3,3,1);plot(a1,a2,'.b','markersize',4);
axis([min(a1) max(a1) min(a2) max(a2)]);
title(['Signal transients']);grid
subplot(3,3,2);plot(b1,b2,'.b','markersize',4);
%axis([min(a1) max(a1) min(a2) max(a2)]);
axis([-1 1 -1 1]);
title(['Signal linchirp']);grid
subplot(3,3,3);plot(c1,c2,'.b','markersize',4);
axis([min(c1) max(c1) min(c2) max(c2)]);
title(['Signal tweet']);grid
subplot(3,3,4);plot(d1,d2,'.b','markersize',4);
axis([min(d1) max(d1) min(d2) max(d2)]);
title(['Signal sunspots']);grid
subplot(3,3,5);plot(e1,e2,'.b','markersize',4);
axis([min(e1) max(e1) min(e2) max(e2)]);
title(['Signal greasy']);grid
subplot(3,3,6);plot(f1,f2,'.b','markersize',4);
axis([min(f1) max(f1) min(f2) max(f2)]);
title(['Signal caruso']);grid
subplot(3,3,7);plot(g1,g2,'.b','markersize',4);
title(['Signal HochNMR']);grid
subplot(3,3,8);plot(h1,h2,'.b','markersize',4);
axis([min(h1) max(h1) min(h2) max(h2)]);
title(['Signal RaphNMR']);grid
subplot(3,3,9);plot(i1,i2,'.b','markersize',4);
axis([min(i1) max(i1) min(i2) max(i2)]);
title(['Signal esca']);grid
%print -dpsc FRMsignals


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