clc
tic;
X=imread（‘lena.tiff‘）;
X1=double（X）;
[CS]=wavedec2（X13‘haar‘）;
cA3=appcoef2（CS‘haar‘3）;
cccA3=cA3;
ccA3=cA3;
[cH3cV3cD3]?=?detcoef2（‘all‘CS3）;
[cH2cV2cD2]?=?detcoef2（‘all‘CS2）;
[cH1cV1cD1]?=?detcoef2（‘all‘CS1）;
A=sort（cA3）;
B=sort（A2）;
for?i=1:3600
B=sort（B）;
B=sort（B2）;???
K=max（B）;
P（1i）=max（K）;
B（6464）=0;
end
[mn]=size（cA3）;
for?j=1:m
???for?k=1:n
???????if?cA3（jk）>=P（13600）
??????????N（jk）=1;
???????else
??????????N（jk）=0;
???????end
???end
end
for?i=1:64
????for?j=1:64
????????a（ij）=1+（1/256）*ccA3（ij）;
????end
end
b=0.16;
for?i=1:64
????for?j=1:64
????????e1（ij）=ccA3（ij）*ccA3（ij）;
????????e2（ij）=cH3（ij）*cH3（ij）;
????????e3（ij）=cV3（ij）*cV3（ij）;
????????e4（ij）=cD3（ij）*cD3（ij）;
????????e5（ij）=

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

?????文件?????249438??2007-05-27?12:50??HVS_watermarking\lena.tiff

?????文件????????542??2010-05-30?11:04??HVS_watermarking\123.bmp

?????文件???????2621??2010-06-02?05:22??HVS_watermarking\shuiyin.m

?????文件?????263222??2010-06-02?05:22??HVS_watermarking\bb.bmp

?????目錄??????????0??2010-05-30?07:53??HVS_watermarking

-----------?---------??----------?-----??----

???????????????515823????????????????????5