function x=xnormalc(R,J)

%XNORMALC(R,J)		x=xnormalC(J) - analisi de proces normal
%						amb correlacio R i longitud 2^J

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


if  J<15
   f=exp(-R*[-8:8].^2);
   x=conv(f,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. R=',num2str(R)])
else disp('ha de ser J<15')
end
return
