function tsdemo(loadfile)

%
% create a white noise series
%

a=normrnd(0,1,[100000 1]);

size(a)

tsa_plot(a',100, 'iid normal white noise', 16, 1);

% temp=load(loadfile);
% file=temp(:,2);