% Testing features of 'recreate from history'.
%
% M Hewitson 16-03-07
%
% $Id: test_recreate_1.m,v 1.16 2009/02/02 15:20:38 hewitson Exp $
%
function test_recreate_1()
  
  % Create constant AO
  
  a1 = ao(2:20);
  d = a1.data;
  disp(['vals = ' num2str(d.y)])
  iplot(a1)
  plot(a1.hist)
  
  % Create from plist
  a2 = ao(plist('fcn', 'complex(randn(100,1), randn(100,1))'));
  d = a2.data;
  d.y;
  iplot(a2)
  plot(a2.hist)
  
  
  % Reproduce from history
  a_out = rebuild(a1);
  iplot(a_out)
  plot(a_out.hist)
  a_out = rebuild(a2);
  iplot(a_out)
  plot(a_out.hist)
  
end
% END