% make some test objects



fs  = 10;

pl1 = plist();
pl1 = append(pl1, param('fs', fs));
pl1 = append(pl1, param('nsecs', 1));
pl1 = append(pl1, param('waveform', 'sine wave'));
pl1 = append(pl1, param('f', 1.23));
pl1 = append(pl1, param('phi', 30));

% tsdata
a1 = ao(pl1);

% fsdata
f  = 1:10;
xx = randn(size(f));
a2 = ao(fsdata(f,xx,fs));

% xydata
x = 1:10;
y = exp(x.^.5/2);

a3 = ao(xydata(x,y));

% cdata
a4 = ao([1 -2 3; 4  5 -6; -7 8  9]);

a5 = ao(plist('tsfcn', 'randn(size(t))', 'nsecs', 1, 'fs', fs));
a6 = ao(plist('tsfcn', 'randn(size(t))', 'nsecs', 1, 'fs', fs));


% specwin
s = specwin('Hanning', 100);

% pzmodel
pzm = pzmodel(1, pz(1), pz(10));

% mfir
firf = mfir(plist('type', 'highpass', 'gain', 2, 'fs', 100, 'fc', 1));

% miir
iirf = miir(plist('type', 'highpass', 'gain', 2, 'fs', 100, 'fc', 1));

% time
t = time('2007-06-06 14:00:05.000');

% timespan
ts = timespan('14:00:00.000', '14:00:05.000');
