cp2im.m

ICA watermarking. Blind, fragile, robust

function [Imo]=cp2im(bckm,sm,Cpir,Cpig,Cpib)

%Copyright murillo 2001
%Please cite:
%F.J. Gonz醠ez-Serrano, H.Y. Molina-Bulla, J.J. Murillo-Fuentes "Independent component analysis applied to digital image watermarking". IEEE Int. Conf. on Acoustics, Speech and Signal Processing (ICASSP'2001). IEEE. Salt Lake City (EEUU). 
% and/or
%JJ Murillo-Fuentes "Independent component analisis in the blind
%watermarking of digital images" Neurocomputing Volume 70 ,  Issue 16-18
%(October 2007) Pages 2881-2890  


[bmn,mn]=size(Cpir);
bckn=bmn/bckm;
sn=mn/sm;

if nargin==5
%Se obtienen las se馻les para cada elemento bckmXbckn
for k1=1:bckm
   for k2=1:bckn
      Imo(k1:bckm:sm*bckm,k2:bckn:sn*bckn,1)=reshape(Cpir((k2-1)*bckm+k1,:),sm,sn);
      Imo(k1:bckm:sm*bckm,k2:bckn:sn*bckn,2)=reshape(Cpig((k2-1)*bckm+k1,:),sm,sn);
      Imo(k1:bckm:sm*bckm,k2:bckn:sn*bckn,3)=reshape(Cpib((k2-1)*bckm+k1,:),sm,sn);
   end
end


else
for k1=1:bckm
   for k2=1:bckn
      Imo(k1:bckm:sm*bckm,k2:bckn:sn*bckn)=reshape(Cpir((k2-1)*bckm+k1,:),sm,sn);
   end
end

end