function test_ao_delay

% Test function for the ao/delay method
% 
% M Hewitson 08-04-08
% 
% $Id: test_ao_delay.m,v 1.1 2008/04/08 09:27:01 hewitson Exp $
% 

clear all;

a = ao(plist('waveform', 'noise', 'fs', 100, 'nsecs', 1000, 'f', .1));

b = delay(a, plist('N', 30));

iplot(a,b, plist('Markers', {'x', 'o'}))

spl = plist('split_type', 'times', 'times', [0 900]);

c = ltpda_tfe(split(b, spl), split(a, spl), plist('Nfft', 1000, 'win', specwin('BH92', 10)));


iplot(c(1,2));