% Test script for ao/cov
%
% M Hewitson 09-10-08
%
% $Id: test_ao_cov.m,v 1.2 2008/12/11 08:25:15 hewitson Exp $
%

function test_ao_cov
  
  %% Make AOs
  
  fs =  10;
  nsecs = 1000;
  pl = plist('tsfcn', 'randn(size(t))', 'fs', fs, 'nsecs', nsecs);
  
  a = ao(pl);
  b = ao(pl);
  c = ao(pl);
  
  %% Make cov
  
  cv = cov(a,b,c);
  
  vr = cov(a,a,a);
  
  
end