一个基于离散余弦变换的水印算法的matlab程序（嵌入、提取）

				%SC.m
				function S=SC(I,J)
				% SC(I,J) returns the relation between the structural contents of I 
				% and J.
				% The SC value is useful to quantitize the distortions on an image.
				
				if (size(I)~=size(J))
				   error('Las imagenes deben tener el mismo tama駉')
				end
				if (~isrgb(I) & ~isrgb(J))
				   [m n] = size(I);
				   A=double(I);
				   B=double(J);
				   sumaICuad=0;
				   sumaJCuad=0;
				   for u=1:m
				      for v=1:n
				         sumaJCuad = sumaJCuad + B(u,v)*B(u,v);
				         sumaICuad=sumaICuad + A(u,v)*A(u,v);
				      end
				   end
				   if (sumaJCuad==0) 
				      sumaJCuad=1;
				   end
				   S=sumaICuad/sumaJCuad;
				else 
				   error('Las imagenes no pueden ser en color')
				end