% Tests diag() operator for AOs.
%
% A Monsky 09-05-07
%
% $Id: test_diag.m,v 1.11 2009/02/02 15:20:38 hewitson Exp $
%
function test_diag()
  
  
  % make test data files
  testmat=[1 2 3; 4 5 6; 7 8 9];
  
  % Load data into analysis objects
  
  a1 = ao(testmat);
  a1 = a1.setName;
  
  % Create plist
  pl = plist('option', 1);
  
  % Calc diagonal
  a2 = diag(a1, pl);
  
  % Plot
  iplot(a1, a2)
  
end
% END