clear;clc

size=512;
block=8;
blockno=size/block;
LENGTH=size*size/64;?
Alpha1=0.02;??Alpha2=0.02;
T1=100;?
I=zeros（sizesize）;?
D=zeros（sizesize）;?
BW=zeros（sizesize）;?
block_dct1=zeros（blockblock）;


i=imread（‘watermark64by64.png‘）;
mark=reshape（i1LENGTH）;
figure;imshow（i）;title（‘水印‘）;
%subplot（321）;plot（mark）;title（‘水印‘）;?
%顯示原圖
figure;I=imread（‘lena512512.jpg‘）;???
I0=I;
imshow（I）;title（‘原始圖像‘）;

%?BW=edge（I‘canny‘）;figure;;imshow（BW）;
%?title（‘edge?of?origine?image‘）;
%嵌入水印
k=1;
for?m=1:blockno
for?n=1:blockno
??x=（m-1）*block+1;???y=（n-1）*block+1;
??block_dct1=I（x:x+block-1y:y+block-1）;
??block_dct1=dct2（block_dct1）;
BW_8_8=BW（x:x+block-1y:y+block-1）;
??if?m<=1|n<=1
????T=0;
??else
????T=sum（BW_8_8）;???T=sum（T）;
??end
??if?T>T1
????Alpha=Alpha2;
else
????Alpha=Alpha1;
end
block_dct1（11）=block_dct1（11）*（1+Alpha*mark（k））;?
block_dct1=idct2（block_dct1）;
D（x:x+block-1y:y+block-1）=block_dct1;?
??k=k+1;
end
end

figure;imshow（D[]）;title（‘嵌入水印后的圖像‘）;


%提取水印
k=1;
mark1=[];
for?m=1:blockno
for?n=1:blockno
??x=（m-1）*block+1;???y=（n-1）*block+1;
??block_dct1=D（x:x+block-1y:y+block-1）;
??block_dct0=I0（x:x+block-1y:y+block-1）;
??block_dct1=dct2（block_dct1）;
??block_dct0=dct2（block_dct0）;
BW_8_8=BW（x:x+block-1y:y+block-1）;
??if?m<=1|n<=1
????T=0;
??else
????T=sum（BW_8_8）;???T=sum（T）;
??end
??if?T>T1
????Alpha=Alpha2;
else
????Alpha=Alpha1;
??end


mark1（k）=（block_dct1（11）/block_dct0（11）-1）/Alpha;
??k=k+1;
end
end
mark1=reshape（mark16464）;
figure
imshow（mark1）
title（‘提取的水印‘）
msgbox（‘MATLAB編程答疑，請加QQ:?993878382‘‘MATLAB答疑‘‘help‘）
web?http://993878382.qzone.qq.com?-browser

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1737??2014-01-07?17:58??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\DCT_watermark.m

?????文件??????32567??2009-12-23?23:22??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\lena512512.jpg

?????文件????????119??2014-01-07?17:51??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\Read?Me.url

????..A.SH.?????14848??2014-01-07?17:59??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\Thumbs.db

?????文件????????353??2009-12-23?23:22??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\watermark64by64.png

?????文件??????77090??2014-01-05?22:04??28個實際問題建模MATLAB源程序代碼\MATLAB?DCT水印源程序代碼\聯系我們.pdf

?????文件???????4972??2013-02-28?22:14??28個實際問題建模MATLAB源程序代碼\MATLAB?GUI實現動態畫圖曲線的源程序代碼\net1.fig

?????文件??????15278??2014-01-09?14:44??28個實際問題建模MATLAB源程序代碼\MATLAB?GUI實現動態畫圖曲線的源程序代碼\net1.m

?????文件????????119??2014-01-07?17:51??28個實際問題建模MATLAB源程序代碼\MATLAB?GUI實現動態畫圖曲線的源程序代碼\Read?Me.url

?????文件??????81243??2014-01-09?14:10??28個實際問題建模MATLAB源程序代碼\MATLAB?GUI實現動態畫圖曲線的源程序代碼\聯系我們.pdf

?????文件????????554??2014-02-15?22:26??28個實際問題建模MATLAB源程序代碼\MATLAB中colorbar的設置?源程序代碼\chengxu.m

?????文件????????331??2014-01-07?20:20??28個實際問題建模MATLAB源程序代碼\MATLAB中colorbar的設置?源程序代碼\Read?Me.url

?????文件????????294??2014-02-06?11:28??28個實際問題建模MATLAB源程序代碼\MATLAB中colorbar的設置?源程序代碼\聯系我們.txt

?????文件????????208??2014-01-09?14:01??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\for_repetition.m

?????文件????????458??2014-01-09?14:02??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\global_plot.m

?????文件????????277??2014-01-09?14:02??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\if_else.m

?????文件????????119??2014-01-07?17:51??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\Read?Me.url

?????文件????????418??2014-01-09?14:03??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\son_function.m

?????文件????????366??2014-01-09?14:03??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\switch_case.m

?????文件????????257??2014-01-09?14:03??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\try_catch.m

?????文件????????207??2014-01-09?14:03??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\while_repetition.m

?????文件??????81243??2014-01-09?14:10??28個實際問題建模MATLAB源程序代碼\MATLAB中的基本語法和語句示例代碼\聯系我們.pdf

?????文件????????740??2014-02-15?22:28??28個實際問題建模MATLAB源程序代碼\MATLAB使用歐拉Euler法求解微分方程組?源程序代碼\chengxu.m

?????文件????????331??2014-01-07?20:20??28個實際問題建模MATLAB源程序代碼\MATLAB使用歐拉Euler法求解微分方程組?源程序代碼\Read?Me.url

?????文件????????294??2014-02-06?11:28??28個實際問題建模MATLAB源程序代碼\MATLAB使用歐拉Euler法求解微分方程組?源程序代碼\聯系我們.txt

?????文件???????2863??2014-01-08?14:49??28個實際問題建模MATLAB源程序代碼\MATLAB光通過三稜鏡色散動畫\optics_prism.m

?????文件????????119??2014-01-07?17:51??28個實際問題建模MATLAB源程序代碼\MATLAB光通過三稜鏡色散動畫\Read?Me.url

?????文件??????77090??2014-01-05?22:04??28個實際問題建模MATLAB源程序代碼\MATLAB光通過三稜鏡色散動畫\聯系我們.pdf

?????文件?????126981??2009-05-14?22:05??28個實際問題建模MATLAB源程序代碼\MATLAB圖像處理實現直線識別（擬合角平分線）\1.JPG

?????文件???????5250??2014-02-05?20:44??28個實際問題建模MATLAB源程序代碼\MATLAB圖像處理實現直線識別（擬合角平分線）\chengxu.m

............此處省略125個文件信息