function test_xydata_class()

% TEST_XYDATA_CLASS tests various features of xydata class.
% 
% M Hewitson 06-05-07
% 
% $Id: test_xydata_class.m,v 1.10 2008/07/29 15:11:44 ingo Exp $
% 

% empty constructor
xy = xydata()

% with data
xy = xydata(randn(1000,1))

%% with XY data
xy = xydata(1:1000, randn(1000,1))

%% Make XYdata AO
a = ao(xy)

iplot(a)
plot(a.hist)

%% Test operators

a = ao(xydata(1:1000, randn(1000,1)))
b = ao(xydata(1:1000, randn(1000,1)))

c = a.*b;

iplot(c)
plot(c.hist)

d = sqrt(c)

iplot(d)
plot(d.hist)

% END