--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/test/test_ao_offset.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,24 @@
+% A simple test script to test the ao/offset method
+% 
+% M Hewitson
+% 
+% $Id: test_ao_offset.m,v 1.1 2008/12/03 08:15:34 hewitson Exp $
+% 
+
+mc
+
+%% Make AOs
+
+ts = ao(plist('tsfcn', 't.^2', 'fs', 10, 'nsecs', 1))
+xy = ao(plist('xyfcn', 'sqrt(x)', 'x', 1:10)) 
+fs = ao(plist('fsfcn', '1./f', 'f', logspace(-4,0,1000)))
+ca = ao(1:10)
+
+%% Scale all of them
+
+sts1 = ts.offset(plist('offset', 3))
+sts2 = ts.offset(plist('offset', 3))
+sts3 = ts.offset(2)
+
+tss = offset([sts1 sts2 sts3], plist('offset', 4))
+