% A simple test script to test the ao/scale method
% 
% M Hewitson
% 
% $Id: test_ao_scale.m,v 1.2 2009/02/02 15:20:39 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.scale(plist('factor', 3))
sts2 = ts.scale(plist('factor', 3, 'yunits', 'Hz'))
sts3 = ts.scale(2, plist('yunits', 'Hz'))

tss = scale([sts1 sts2 sts3], plist('factor', 4))