dct 好东东哦

好东东哦，希望大家来下载，是 我们本科毕业设计论文成果，基于dct域的数字水印技术

clear all; 
clc;
start_time=cputime;
%%%%%%%%%%%% 读取水印图像 %%%%%%%% 
I=imread（‘mark4.bmp‘）;
I=rgb2gray（I）;
I=double（I）/255; 
I=ceil（I）;
%%%%%%%%%%显示水印图像%%%%%%%%%%%%%
figure（1）;
subplot（231）;
imshow（I）title（‘水印图像‘）
dimI=size（I）;
rm=dimI（1）;cm=dimI（2）;
%%%%%%%%%读取载体图像%%%%%%%%%%%%%
a0=imread（‘lena.bmp‘）;
psnr_cover=double（a0）;
%%%%%%%%%显示载体图像%%%%%%%%%%%%%
subplot（232）;
imshow（a0[]）;
title（‘载体图像‘）;
%%%%%%%%%%%%%%%5  以下生成水印信息 %%
cda0=blkproc（a0[88]‘dct2‘）;
mark=I;
alpha=10;
k1=randn（18）;
k2=randn（18）;
[rc]=size（a0）;
%%%%%%%%%%%%%%%%%%%%% 嵌入 %%%%%%%%%%
cda1=cda0;   % cda1 = 256_256
for i=1:rm  % i=1:32
    for j=1:cm  % j=1:32
        x=（i-1）*8;y=（j-1）*8;
        if mark（ij）==1
        k=k1;
        else
        k=k2; 
        end
    cda1（x+1y+8

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      61952  2010-05-17 13:14  涂matlab运行结果\新建 Microsoft Word 文档 （2）.doc

     文件       6744  2010-05-17 14:14  涂matlab运行结果\tu\watermark.m

     文件     263222  2010-05-24 11:34  涂matlab运行结果\tu\withmark.bmp

     文件     263222  2010-05-17 14:10  涂matlab运行结果\tu\whitenoise.bmp

     文件       5174  2010-05-24 11:34  涂matlab运行结果\tu\getmark.bmp

     文件     263222  2010-05-17 14:12  涂matlab运行结果\tu\gaussian.bmp

     文件       6732  2010-05-12 20:32  涂matlab运行结果\tu\watermark.asv

     文件     263222  2010-05-06 09:45  涂matlab运行结果\tu\withmark1.bmp

     文件      12344  2010-05-06 10:05  涂matlab运行结果\tu\mark1.bmp

     文件      12344  2010-05-08 19:48  涂matlab运行结果\tu\mark2.bmp

     文件        454  2010-05-09 15:08  涂matlab运行结果\tu\nc.m

     文件        549  2010-05-09 15:09  涂matlab运行结果\tu\psnr.m

     文件       5176  2010-05-09 09:52  涂matlab运行结果\tu\mark0.bmp

     文件       5881  2010-05-11 10:14  涂matlab运行结果\tu\Untitled2.m

     文件      12342  2010-05-10 17:19  涂matlab运行结果\tu\mark3.bmp

     文件     263222  2006-05-26 20:33  涂matlab运行结果\tu\lena.bmp

     文件      30616  2010-05-24 11:33  涂matlab运行结果\tu\temp.jpg

     文件       6047  2010-05-11 10:06  涂matlab运行结果\tu\Untitled2.asv

     文件       5050  2010-05-13 19:38  涂matlab运行结果\tu\dct.m

     文件      12342  2010-05-11 10:34  涂matlab运行结果\tu\mark.bmp

     文件       5850  2010-05-11 16:31  涂matlab运行结果\tu\dct.asv

    ..A.SH.     49664  2010-05-26 11:24  涂matlab运行结果\tu\Thumbs.db

     文件       2110  2009-05-31 19:40  涂matlab运行结果\tu\xiao\test.bmp

     文件        860  2009-06-04 19:28  涂matlab运行结果\tu\xiao\watermark.m

     文件       1740  2009-06-04 19:32  涂matlab运行结果\tu\xiao\check.m

     文件        681  2009-06-04 15:55  涂matlab运行结果\tu\xiao\extraction.m

     文件    1049654  2009-05-31 20:20  涂matlab运行结果\tu\xiao\lenna.bmp

     文件     140622  2010-05-31 11:06  涂matlab运行结果\tu\xiao\temp.jpg

     文件       2858  2010-05-26 09:38  涂matlab运行结果\tu\xiao\gai.m

     文件    1049654  2010-05-26 09:59  涂matlab运行结果\tu\xiao\gaussian.bmp

............此处省略30个文件信息