+
−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')