% Download nine well-known signals, then plot them 
% on subplots to shown their respective aspects.

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; 

sig1=transients;
sig2=linchirp; 
sig3=tweet; 
sig4=sunspots; 
sig5=greasy;
sig6=caruso;
sig7=HochNMR; 
sig8=RaphNMR;
sig9=esca;

% Plot on subplots the signals by respecting their lengths, maxima, minima.

subplot(3,3,1);plot(sig1,'b','markersize',5);axis([1 length(sig1) min(sig1) max(sig1)]);
title(['Signal transients']);grid
subplot(3,3,2);plot(sig2,'b','markersize',5);axis([1 length(sig2) min(sig2) max(sig2)]);
title(['Signal linchirp']);grid
subplot(3,3,3);plot(sig3,'b','markersize',5);axis([1 length(sig3) min(sig3) max(sig3)]);
title(['Signal tweet']);grid
subplot(3,3,4);plot(sig4,'b','markersize',5);axis([1 length(sig4) min(sig4) max(sig4)]);
title(['Signal sunspots']);grid
subplot(3,3,5);plot(sig5,'b','markersize',5);axis([1 length(sig5) min(sig5) max(sig5)]);
title(['Signal greasy']);grid
subplot(3,3,6);plot(sig6,'b','markersize',5);axis([1 length(sig6) min(sig6) max(sig6)]);
title(['Signal caruso']);grid
subplot(3,3,7);plot(sig7,'b','markersize',5);axis([1 length(sig7) min(sig7) max(sig7)]);
title(['Signal HochNMR']);grid
subplot(3,3,8);plot(sig8,'b','markersize',5);axis([1 length(sig8) min(sig8) max(sig8)]);
title(['Signal RaphNMR']);grid
subplot(3,3,9);plot(sig9,'b','markersize',5);axis([1 length(sig9) min(sig9) max(sig9)]);
title(['Signal esca']);grid


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