function x=xnormal(J)

%XNORMAL(J)		xnormal(J) - analisi de proces normal
%					amb longitud 2^J

%--------------------------------------------------------
%      Author: J. M. Aroca
%
%      e-mail: jomaroca@mat.upc.es
%--------------------------------------------------------


if  J<15
   x=randn(1,2^J);
   [h,g,hr,gr]=daub(2);
   xt=wt(x,hr,gr,J);
   figure, plot(abs(xt)), title('Transformada wavelet de proces normal incorrelat')
else disp('ha de ser J<15')
end
return
