dctdwt)圖像數字水印的方案畢業(yè)論文基于dct和dwt的算法有詳細程序-閱讀頁
2024-12-07 16:53本頁面
【正文】 ,3)。 N=dct2(I(:,:,3))。 M=(NM)/Q。 Y=mat2gray(B)。 title(39。) 運行結果： ④ 水印全過程（經空域壓縮檢測水?。? 程序源代碼 %水印加入程序 Q=input(39。) P=input(39。) subplot(3,3,1) RGB=imread(39。,39。)。 title(39。)。 title(39。)。 imshow(log(abs(N)),[]),colorbar。B 分量能量分布 39。 subplot(3,3,4) I=imread(39。,39。)。 title(39。)。 imshow(log(abs(M)),[]),colorbar。水印能量分布 39。 subplot(3,3,7) J=M(1:128,1:128)。 J=rot90(J)。 J(365:600,401:750)=0。 J=rot90(J)。 K=idct2(N)。 imshow(RGB)。加入水印后圖像 39。 subplot(3,3,8) I=imresize(RGB,P,39。)。 title(39。)。nearest39。 imshow(J)。再放大 P 倍還原圖像 39。浙江臺州學院 39。jpg39。 N=dct2(J(:,:,3))。 M=(NM)/Q。 Y=mat2gray(B)。 title(39。)： 運行結果： 圖像水印的 dwt 算法 %以下是水印提取算法 clear all。 %保存時間 start_time=cputime。 %讀出原始圖像 subplot(1,2,1)。39。 imshow(input)。原始圖像 39。 %讀出水印圖像 subplot(1,2,2)。39。 imshow(watermarked_image,[])。水印圖像 39。 %三色分離 input=double(input)。 inputr=input(:,:,1)。 inputg=input(:,:,2)。 inputb=input(:,:,3)。 %水印圖像 R的分解 [Cwr,Swr]=WAVEDEC2(watermarked_imager,2,39。)。haar39。 %水印圖像 G的分解 [Cwg,Swg]=WAVEDEC2(watermarked_imageg,2,39。)。haar39。 %水印圖像 B的分解 [Cwb,Swb]=WAVEDEC2(watermarked_imageb,2,39。)。haar39。 %提取水印小波系數 %提取水印 R的小波系數 r=。 wvr(k+1,:)=Cwr(1+size(Cwr,2)/2+k*size(Cwr,2)/16:... size(Cwr,2)/2+(k+1)*size(Cwr,2)/16)... Cr(1+size(Cr,2)/2+k*size(Cr,2)/16:... size(Cr,2)/2+(k+1)*size(Cr,2)/16)。 end whr=(whr(1,:)+whr(2,:)+whr(3,:)+whr(4,:))/(4*r)。 wdr=(wdr(1,:)+wdr(2,:)+wdr(3,:)+wdr(4,:))/(4*r)。 %提取水印小波系數 %提取水印 G的小波系數 g=。 wvg(k+1,:)=Cwg(1+size(Cwg,2)/2+k*size(Cwg,2)/16:... size(Cwg,2)/2+(k+1)*size(Cwg,2)/16)... Cg(1+size(Cg,2)/2+k*size(Cg,2)/16:... size(Cg,2)/2+(k+1)*size(Cg,2)/16)。 end whg=(whg(1,:)+whg(2,:)+whg(3,:)+whg(4,:))/(4*g)。 wdg=(wdg(1,:)+wdg(2,:)+wdg(3,:)+wdg(4))/(4*g)。 %提取水印小波系數 %提取水印 B的小波系數 b=。 wvb(k+1,:)=Cwb(1+size(Cwb,2)/2+k*size(Cwb,2)/16:... size(Cwb,2)/2+(k+1)*size(Cwb,2)/16)... Cb(1+size(Cb,2)/2+k*size(Cb,2)/16:... size(Cb,2)/2+(k+1)*size(Cb,2)/16)。 end whb=(whb(1,:)+whb(2,:)+whb(3,:)+whb(4,:))/(4*b)。 wdb=(wdb(1,:)+wdb(2,:)+wdb(3,:)+wdb(4,:))/(4*b)。 %重構水印圖像 cwr=[war,whr,wvr,wdr]。 swr(:,2)=[sqrt(size(war,2)),sqrt(size(war,2)),2*sqrt(size(war,2))]。haar39。 cwg=[wag,whg,wvg,wdg]。 swg(:,2)=[sqrt(size(wag,2)),sqrt(size(wag,2)),2*sqrt(size(wag,2))]。haar39。 cwb=[wab,whb,wvb,wdb]。 swb(:,2)=[sqrt(size(wab,2)),sqrt(size(wab,2)),2*sqrt(size(wab,2))]。haar39。 %將 R， G， B疊加 temp=size(wr)。 for i=1:temp(1)。 pic(i,j,1)=wr(i,j)。 pic(i,j,3)=wb(i,j)。 %轉化為 uint8 watermark_image_uint8=uint8(output)。39。bmp39。 figure(2)。 title(39。
環(huán)評公示相關推薦
鄂ICP備17016276號-1