/* This program is used to process the realdata.
   It computes the fft of the data and then normalises it.
   The O/P is this data processed by using a hanning window */

a=2^14;b=a/2;
f=hanning(a);
WH=W(1:a) .*f;
S=fft(WH);
R=(S .*conj(S))/a;
FILE=20*log(R(1:a/8));
normdata
r=Z;
for i=1:N
	WH=W((1+i*(b/8)):(a+i*(b/8))) .*f;
	S=fft(WH);
	R=(S .*conj(S))/a;
	FILE=20*log(R(1:a/8));
	normdata
	r=[r Z];
end
