function test_mtimes()
% A test script for the AO mtimes.
% 
% M Hewitson 16-03-07
% 
% $Id: test_mtimes.m,v 1.3 2008/09/19 14:03:50 ingo Exp $
% 

%% make test data files
make_test_ascii_file('data1', 1, 1000);
make_test_ascii_file('data2', 1, 1000);

%% Load data into analysis objects

a1 = ao(randn(123,1),12);
a2 = a1.';


%% add and plot
a3  = a2*a1
a3.data

iplot(a3)
plot(a3.hist)


%% Reproduce from history

% Write an m-file from AO
ao2m(a3, 'test.m');

%% now run it
clear
a1 = test

iplot(a1)
plot(a1.hist)

delete('test.m')