应用混沌序列对水印信息进行置乱源代码

论文的程序，与大家分享

应用混沌序列对水印信息进行置乱源代码

% designed by 李立宗

% lilizong@gmail.com

%t430.m

x=zeros(1,40000);

x(1)=0.9

for i=2:40000

x(i)=1-2*x(i-1)*x(i-1);

end

xa=zeros(200,200);

n=1;

for i=1:200

for j=1:200

xa(i,j)=x(n);

end

end

x1=sort(x);

y=zeros(1,40000);

for i=1:40000

for j=1:40000

if(x(i)==x1(j))

y(i)=j;

end

end

end

%

% ya=zeros(200,200);

% n=1;

% for i=1:200

% for j=1:200

% ya(i,j)=y(n);

% n=n+1;

% end

% end

% % subplot(2,2,2),imshow(ya),title('混沌序列图像');

ta=imread('e:\logo.bmp');

subplot(1,3,1),imshow(ta),title('原始水印图像');

aa=zeros(1,40000);

n=1;

for i=1:200

for j=1:200

aa(n)=ta(i,j);

n=n+1;

end

end

bb=zeros(1,40000);

for i=1:40000

for j=1:40000

if(i==y(j))

bb(i)=aa(j);

end

end

end

bba=zeros(200,200);

n=1;

for i=1:200

for j=1:200

bba(i,j)=bb(n);

n=n+1;

end

end

subplot(1,3,2),imshow(bba),title('置乱后水印图像');

cc=zeros(1,40000);

for i=1:40000

cc(i)=bb(y(i));

end

cca=zeros(200,200);

n=1;

for i=1:200

for j=1:200

cca(i,j)=cc(n);

n=n+1;

end

end

subplot(1,3,3),imshow(cca),title('恢复后水印图像');