QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2555|回复: 0
打印 上一主题 下一主题

MATLAB DCT水印源程序代码解析

[复制链接]
字体大小: 正常 放大

1186

主题

4

听众

2922

积分

该用户从未签到

跳转到指定楼层
1#
发表于 2023-11-16 11:50 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
离散余弦变换(Discrete Cosine Transform,DCT)是一种在信号处理和数据压缩领域广泛应用的数学变换方法。其核心思想是将一系列数据点通过一组余弦函数的加权和转换,从而将信号或图像从时域/空域表示转换为频域表示。DCT在信息编码和压缩中扮演着重要的角色,尤其在图像和音频领域,它通过能量集中的方式,更高效地表示信号的频率分量。. P, y: y7 E3 Q6 y" Q
DCT的原理包括以下几个关键点:
: g9 j2 @$ V( B7 K% `/ y+ [: D4 p. i0 m. @
1.变换域: DCT将输入的序列或图像分解为一组频率成分,每个分量对应不同频率,类似于傅里叶变换,但DCT的基函数是实数。# Q& |- K; O! ^
2.余弦函数: DCT使用一组余弦函数作为基函数,这些函数在不同频率上振荡,与傅里叶变换相似但更适合实际应用。; p7 P% A  M4 V5 s
3.变换步骤: 对于一维序列,DCT将N个数据点转换为N个频率分量。对于二维图像,DCT将图像分块并对每个块应用变换,得到每个块的频率分量。
/ j. i  T0 _! N2 t- v3 q7 [4.能量集中: 与傅里叶变换不同,DCT倾向于将信号或图像的能量集中在少数低频分量上,这在图像压缩中尤为有用。
1 C8 P% A- [& g- y$ O! h: s' w5.类型: 存在不同类型的DCT变换,其中类型II是最常用的,特别是在图像压缩中得到广泛应用。
# g' Z2 t5 l1 P/ s* a, g6 U; r: Q% \
DCT的应用广泛,其中包括:
, P2 M+ C  q$ d+ c! C0 g3 A5 h3 l5 O. c% o
6.图像压缩: JPEG图像压缩利用DCT将图像转换为频域表示,通过去除或量化高频分量,实现了高效的图像压缩。) k( r* {$ B7 f
7.音频处理: MP3等音频压缩格式使用DCT将音频信号转换为频域表示,以减小文件大小同时保留主要信息。9 _& P" g1 @( R# _" a0 g% @
8.信号处理: 在通信领域,DCT用于数据传输和信号处理,有助于分析信号的频率成分。! B" ~" ?/ F8 ~9 l
  g2 o6 {; \0 U5 R3 A, X5 ~1 x
总体而言,DCT是一种强大的数学工具,能够以更适合分析和处理的方式表示信号或图像,为多个领域提供了有力的支持。现在,我们将通过DCT的原理和应用,探讨如何将水印嵌入图像的具体过程。7 _: n* d' p9 m5 z" [

9 d- c- |4 C! w/ Q现在我们使用DCT将水印提案加到图片中. ~8 ~4 p' S0 X* j8 o
这段代码执行了图像水印嵌入的过程,以下是逐行代码的解释:
  1. clear;clc
    - c% u: c- m% r5 O$ \5 E* ?

  2. . p# r0 N& S\" B! j8 V* O7 }
  3. size=512;
    ; X  D# C* E5 h  t
  4. block=8;
    \" Y7 }' W\" H# [5 ?6 E! H3 g
  5. blockno=size/block;) n4 W. `& S7 o2 n; w
  6. LENGTH=size*size/64;
    ) l+ c, }' r$ c
  7. Alpha1=0.02;  Alpha2=0.02;
    6 t$ K& C: r\" j! [2 Y
  8. T1=100;
    - p4 I+ @. |* L2 r' U6 c
  9. I=zeros(size,size);
    - p( x2 H+ `2 ^$ A) ?% @  x
  10. D=zeros(size,size);
    # \& {; f3 W2 Y/ P. J( `% H
  11. BW=zeros(size,size);, K$ z* X& S& n* a( s5 h& I1 [
  12. block_dct1=zeros(block,block);
    0 b& x. P* y3 p8 K* B2 H+ c
  13. - g( V& x1 E* i; k
  14. i=imread('watermark64by64.png');6 J* d\" S1 d, a9 s& I2 |
  15. mark=reshape(i,1,LENGTH);* C) u8 _/ q1 _+ x9 q4 c
  16. figure;imshow(i);title('水印');
    & w4 g; c1 U2 n\" D
  17. %subplot(3,2,1);plot(mark);title('水印');0 T2 L8 u: j, _5 j8 Y
  18. %显示原图, D1 O* f3 z: J4 k& Q0 N4 J
  19. figure;I=imread('lena512512.jpg');
    9 k2 H5 q8 W2 c1 o, J8 A) p4 F+ G3 r

  20. $ D  E* z4 P7 L( {\" ~6 q. _
  21. I0=I;$ F4 g# Z4 f* ?+ w+ D/ z\" [! o\" y0 \
  22. imshow(I);title('原始图像');
    - k+ g; E  S) u( c2 ^& G: z

  23. / G& G0 R  J0 Y$ v) L5 H5 v
  24. % BW=edge(I,'canny');figure;;imshow(BW);/ G, ?3 o\" }! x3 U% \
  25. % title('edge of origine image');9 U9 D, Y\" ?$ c2 R6 w5 B
  26. %嵌入水印
    5 b' d+ L' |! T1 z. f1 y7 J8 {, X
  27. k=1;, m0 ?. m/ U: _/ p& p
  28. for m=1:blockno! t( n: `- z) D, M5 G7 c
  29. for n=1:blockno5 R7 S1 V9 i  U\" y
  30. x=(m-1)block+1;   y=(n-1)block+1;: v, Z9 R) s2 u, U% ~
  31. block_dct1=I(x:x+block-1,y:y+block-1);) B9 ]3 L# L  Z9 x/ l\" X3 x, O
  32. block_dct1=dct2(block_dct1);) }/ R) |; ~0 H3 {0 f5 Z
  33. BW_8_8=BW(x:x+block-1,y:y+block-1);0 n/ M2 @( j5 I# B, q0 t
  34. if m<=1|n<=15 `# H& z4 A- T! a) e$ ^/ t/ e# v
  35. T=0;
    * O, U$ @3 r: [3 p7 x8 h
  36. else% w9 L% C5 X\" z1 T
  37. T=sum(BW_8_8);   T=sum(T);
    . j( _$ s0 b4 T7 J- Y3 E7 \
  38. end
    $ {  A: o9 U0 v% B2 D, ]\" M
  39. if T>T18 ?' A% _8 e6 }) \! k
  40. Alpha=Alpha2;
    . y. u\" m1 L: y/ D  M& l! u. e1 [
  41. else
    ; \\" C8 t* F3 i7 V0 L
  42. Alpha=Alpha1;
    ; W- Y: _\" c, v4 I1 Y& O$ ]
  43. end6 k5 G2 ^+ [9 H2 j
  44. block_dct1(1,1)=block_dct1(1,1)(1+Alphamark(k));
    ' M% m! Z) Y1 S8 h
  45. block_dct1=idct2(block_dct1);
    ! [# X; Y, k& B1 k
  46. D(x:x+block-1,y:y+block-1)=block_dct1;
    ( z/ N' c5 F$ x- i2 T\" X
  47. k=k+1;5 ?* U6 Q2 ^3 O# L
  48. end
    + ~\" p- X6 `3 i  B) C6 Z
  49. end
    $ F0 s\" T- y5 D( Q6 I\" l
  50. / L\" U/ A2 L8 W* J: c
  51. figure;imshow(D,[]);title('嵌入水印后的图像');
复制代码
1.clear; clc;: 这两个命令清空了 MATLAB 的工作区和命令窗口,以确保在开始之前没有残留的变量或输出。  s$ A* {: m$ R; F5 v
2.size = 512; block = 8; blockno = size / block; LENGTH = size * size / 64; Alpha1 = 0.02; Alpha2 = 0.02; T1 = 100;: 这些是设置图像处理所需的变量和参数。size 定义了图像的尺寸,block 是用于分块的大小,blockno 是图像分块后的数量,LENGTH 是图像长度,Alpha1 和 Alpha2 是用于水印嵌入的参数,T1 是一个阈值。
% {9 o( ?7 L5 o( p" W2 D0 Q  [3.I = zeros(size, size); D = zeros(size, size); BW = zeros(size, size); block_dct1 = zeros(block, block);: 这些命令初始化了一些矩阵和数组,用于存储图像、水印、DCT 变换后的块等。, Y$ B2 Z' |* I  w
4.i = imread('watermark64by64.png'); mark = reshape(i, 1, LENGTH);: 从文件 'watermark64by64.png' 中读取水印图像,然后将其重新形状化为一个向量 mark。
% t* u" j/ H9 a7 D5.figure; imshow(i); title('水印');: 这段代码显示了读取的水印图像。
4 o- R0 y! z- Q. D$ {6.figure; I = imread('lena512512.jpg'); I0 = I; imshow(I); title('原始图像');: 从文件 'lena512512.jpg' 中读取原始图像,并显示它。: {3 A% M- e7 M! Y- y/ b
7.接下来的部分是对原始图像进行边缘检测,但是注释掉了:BW = edge(I, 'canny'); figure; imshow(BW); title('edge of origine image');。因为这部分代码被注释掉了,所以不会实际执行。
1 q& [- i  ]8 {, Z7 }8.for m = 1:blockno for n = 1:blockno ... end end: 这是一个嵌套循环,用于对图像进行分块处理和水印嵌入。
6 Q3 a  f6 o4 e  A9 G# f. J6 X9.在嵌入水印的循环中,它首先将图像按照设定的块大小进行处理,对每个块应用 DCT 变换,然后根据水印像素的值和设定的阈值 T1 进行水印嵌入的处理。1 h6 W& z- s0 ]
10.最后,它显示了嵌入水印后的图像:figure; imshow(D, []); title('嵌入水印后的图像');。
  1. %提取水印
    # O1 P: y! v$ E1 {5 G
  2. k=1;
    5 i5 v) B/ J# d
  3. mark1=[];7 E, M0 u% D. q' t) Q9 L/ Q
  4. for m=1:blockno
    $ F# u: j2 A( z( [4 @7 F- s
  5. for n=1:blockno
    7 s; t6 J# h! t
  6. x=(m-1)*block+1;   y=(n-1)*block+1;
    8 ?, V+ T7 z& c& O5 T' i
  7. block_dct1=D(x:x+block-1,y:y+block-1);% N. w/ z/ S6 g6 D5 L
  8. block_dct0=I0(x:x+block-1,y:y+block-1);5 d/ Z- R+ s9 }0 `; o2 j
  9. block_dct1=dct2(block_dct1);
    ) `4 F8 x9 R* Z, D
  10. block_dct0=dct2(block_dct0);8 N7 U, M( i; A# j2 @4 w
  11. BW_8_8=BW(x:x+block-1,y:y+block-1);- D% K, |. A5 Q. ?/ w
  12. if m<=1|n<=1
    & O. `: D- E\" X+ C
  13. T=0;# z1 E# H! t7 ]
  14. else
    2 P+ ^$ G: E7 M# L& s( f: }\" k' d
  15. T=sum(BW_8_8);   T=sum(T);, K, R# }* N  Y, ]8 `' @0 G* j: x: {
  16. end
    * J; w6 f& s, O$ P% i( U
  17. if T>T1: _  Q$ A* h3 C& o+ b& T
  18. Alpha=Alpha2;
    3 S' i! g! y\" F3 t* D
  19. else
    . z) ^\" |7 `- A. i) B6 b
  20. Alpha=Alpha1;, \! F* k) v. X6 u( O- D
  21. end/ V7 i0 a- h: |! K. @  {$ Y& S
  22. * P8 ~  b2 D! b5 j  e% c8 \! A
  23. mark1(k)=(block_dct1(1,1)/block_dct0(1,1)-1)/Alpha;\" |4 o6 O7 I1 C. U- G\" R, _+ y
  24. k=k+1;
    / ~3 @1 M8 C+ H! l  B. f
  25. end5 R$ D; l1 n* d
  26. end; g+ k\" l6 ?4 L) X% F1 m' t4 [
  27. mark1=reshape(mark1,64,64);6 R+ h2 p4 D# s# X8 k3 J7 d
  28. figure
    1 {\" S# }+ O2 w) I' u, S
  29. imshow(mark1). m9 J8 B% g8 |/ X* W% H\" G
  30. title('提取的水印')
复制代码
这部分代码是关于从嵌有水印的图像中提取水印信息的过程。让我为你解释一下:
$ w( Q# j! Y$ B% u# W+ I/ ]9 h
1 ^" w% W  I% M1.k=1; mark1=[];: 这两个语句初始化了一个索引变量 k 和一个空数组 mark1,用于存储提取的水印信息。
; t( s* f8 x# b7 T' D3 X. w2.for m=1:blockno for n=1:blockno ... end end: 这是一个嵌套循环,用于遍历图像的分块。9 _9 X- P* T1 s
3.在循环内部,它首先确定当前块的位置 x 和 y,然后分别从嵌有水印的图像 D 和原始图像 I0 中提取对应的块。$ @! e8 h  z6 d: ?
4.对提取的块应用 DCT 变换:block_dct1 = dct2(block_dct1); block_dct0 = dct2(block_dct0);。这里对嵌有水印的块和原始图像的块都进行了 DCT 变换。
: C, K/ ]- I0 f0 e6 N; S9 U! L6 Y5.计算了当前块的边缘信息 BW_8_8。
; M0 G4 ~3 t6 n" ]6.根据设定的阈值 T1,确定 Alpha 值。这与嵌入水印的过程中相似。( Q$ u4 e" b9 \% {  n3 g% i$ c
7.接下来的代码是用于从嵌有水印图像和原始图像中提取水印信息的关键步骤:2 U( N4 `/ ~5 @; c* W4 o

% c* n4 o8 a" p   mark1(k) = (block_dct1(1,1) / block_dct0(1,1) - 1) / Alpha;& R0 X0 D5 h. u) z( d
* O+ C, d" ~6 W: t
这个式子计算了水印信息,并将其存储到 mark1 数组中。
( z! x; ~, P  R% ^. ~
8 ~1 d- A& K& c8.循环结束后,mark1 存储了提取出的水印信息。接下来,代码对 mark1 进行重新形状化为 64x64 的矩阵,并显示提取的水印图像。
* X  L8 A3 C1 J, K" `
7 J' r8 j2 f& R7 H# H最后的 imshow(mark1) 代码会显示提取出的水印图像。请确保之前的嵌入过程已经执行,并且使用相同的图像来提取水印,以获取正确的结果。5 ^, b8 D2 \* V& V6 t; p3 z3 ^

5 t. C: f& X2 z9 Z, k3 v( a& ]; X1 F3 _
2 G1 F# z, R1 W8 Q: o$ j

MATLAB DCT水印源程序代码.rar

43.72 KB, 下载次数: 0, 下载积分: 体力 -2 点

售价: 2 点体力  [记录]  [购买]

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-4-14 14:54 , Processed in 0.412933 second(s), 55 queries .

回顶部