[問題] 浮水印程式修改已回收

看板MATLAB作者 (懶惰蟲)時間16年前 (2009/05/07 23:47), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/1
clear clc close all codeword= 222; %密碼 pic=imread('s.bmp');%取圖片 [x,y]=size(pic) % x,y為圖片座標值 for i=1:x-1 %1到像素最大值 for j=1:y-1 %1到像素最大值 code(i,j)=bitshift((i-1),16)+(j-1); %左移位元 xorcode(i,j)=bitxor(code(i,j),codeword); %每點跟密碼xor piccode(i,j)=pic(bitshift(xorcode(i,j),-16)+1,bitand(xorcode(i,j),65535)+1); % 右移-16+and一個0000得ffff end end dctF1=dct2(piccode); imshow(log(abs(dctF1)),[]); [m,n]=size(dctF1); waterMark1=imread('aa'); [Y0,I0]=sort(waterMark1); A=dctF1(:); [Y1,I1]=sort(A); x=m*n; k=2500; M= zeros(x,1); for i=1:x if k>=1 M(x)=Y1(x)*(1+1*Y0(k)); k=k-1; else M(x)=Y1(x); end x=x-1; end N=zeros(x,1); for i=1:x N=(I1(i))= M(i); end a=1; for j=1:n for i=1:m dctF2(i,j)=N(a); a=a+1; end end idctF1=idctF2(dctF2); imshow(idctF1,[]); 這是我修改完的程式,我想要把圖像浮水印加進去,可是感覺裡面有些程式 怪怪的,希望高手能幫我解答謝謝,我的基礎不好,如果能給予教學 我一定會教會更多人謝謝。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.21.84.181
文章代碼(AID): #1A0mAkXB (MATLAB)
文章代碼(AID): #1A0mAkXB (MATLAB)