基于Gold码的扩频数字水印算法的研究

clc;
clear;
k=8;
alpha=10;
mark=imread（‘shuiyin.bmp‘）;
figure（1）; 
imshow（mark）;
title（‘水印图像‘）;
imwrite（mark‘shuiyin.bmp‘）;
M=size（mark1）;	               
N=size（mark2）; 
mark=logical（mark）;         %返回一个数组，可以用于逻辑索引或逻辑测试。
mark=reshape（mark1M*N）;
for i=1:length（mark）    
if mark（:i）==1 
        mark1（:i）=-1; 
        else 
        mark1（:i）=1;  
end 
end
%对水印信息用平衡Gold码进行扩频
   mark=reshape（mark13232）;
   for i=1:32
        c=gold（i）;
        c=[c1];
       for k=1:32
       for j=1:4
       f（i4*（k-1）+j）=mark（ik）*c（:4*（k-1）+j）;
       end
       end
   end
   f=f‘;
   mark=reshape（f1128*32）;
file_name=‘lena.bmp‘;
I=imread（file_name）;
figure（2）;
imshow（I）;
title（‘原始载体图像‘）;
imwrite（I‘原始载体图像.bmp‘）;
[rmcm]=size（I）; 
II=blkproc（I[88]‘dc