function f=R2etoile(x);

%                      f=R2etoile(x);
%
% Action de l'opérateur adjoint de R2 sur un signal digital ligne x. 

N=length(x);
H=zeros(1,4);
H(1)=.48296;
H(2)=.83652;
H(3)=.22414;
H(4)=-.12941;
ff=zeros(1,2*N+2);
for k=5:2*N,
	if (mod(k,2) == 1)
		ff(k)=H(1)*x((k-1)/2)+H(3)*x((k-3)/2);
	else
		ff(k)=H(2)*x((k-2)/2)+H(4)*x((k-4)/2);
	end;
end;
tt=1:2*N-3;
f(tt)=ff(tt+5);