function test_ao_index()

% TEST_AO_INDEX tests the index() method of the AO class.
% 
% M Hewitson 02-05-07
% 
% $Id: test_ao_index.m,v 1.4 2008/09/19 14:03:50 ingo Exp $
% 


a1 =  ao(plist('tsfcn', 'randn(size(t))', 'fs', 100, 'nsecs', 10));
% Make a filter
f1 = miir(plist('type', 'highpass', 'fc', 20));


% Filter the input data
[a2, f1] = filter(a1, plist('filter', f1));



aos = cpsd([a1 a2]);

%% index output matrix of AOs

a11 = index(aos, 1,2)

% return
iplot(a11)
plot(a11.hist)


%% Save to .m file
type(a11, 'test.m');
% edit 'test.m'

%% Recreate from history

% now run it
mc

a1 = test()

iplot(a1)
plot(a1.hist)