function x=xuniforme(R,J)

%XUNIFORME(R,J)	xuniforme(J) - analisi de x amb transformada
%						wavelet (D_4) uniforme o exponencial (R)
%						amb longitud 2^J

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


if  J<15 & R>0 & R<=1
   damp=1;
   for k=1:J damp=[damp,ones(1,2^(k-1))*R^k]; end
   [h,g,hr,gr]=daub(4);
   %xt=(ones(1,2^J)+0.2*rand(1,2^J)).*damp;
   xt=(1-2*rand(1,2^J)).*damp;
   x=iwt(xt,hr,gr,J);
   figure, multiscaleplot(x), 
   %title(['Proces amb transformada wavelet amb caiguda R=',num2str(R)])
else disp('ha de ser J<15')
end
return
