 clear all
 close all
 load C:\BESTAT\Test\Testdat\spid.dat

 
 afm = spid(1:2^13);
 afm=cumsum(afm);
 %afm = afm(3000-2047:3000);
 
 
 %%%%%%%%%%%%% figure setup %%%%%%%%%%%%%
 lw = 2;  
 set(0, 'DefaultAxesFontSize', 14);
 fs = 13;
 msize = 5;
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



  figure(1) %
  plot( (1:2^13), afm, '-')
 xlabel('index','fontweight','bold','fontsize',fs)
 ylabel('DNA RW','fontweight','bold','fontsize',fs)
 axis([0 2^13 -80 400])
 %print -depsc 'C:\Springer\Test\Testeps\DNArw.eps'
 %print -depsc 'C:\Brani\Courses\bmestatu\Spring2010\DNArw.eps'
 
    % figure(2)
    %  [a,aa] = spectra_slope(afm, 3, 'Haar', 1);
    %  plot((3:12), log2(a),'linewidth', lw)
    %      hold on
    %  plot((3:12), log2(a),'o','markersize', msize)
    %  plot((3:12), -2.24 * (3:12)+16, ':','linewidth', lw)
    %  text(6,-5, 'slope=-2.24','fontweight','bold','fontsize',fs)
    %  %print -depsc 'C:\Brani\Talks\Houches\DNArw2.eps'
