%************************主函數***********************
function?private_call
clc
%讀入原載體圖像和原始水印圖像
P=imread（‘f:\lena.jpg‘）;
subplot（231）;
imshow（P）;
title（‘原載體lena圖像‘）;
Q=imread（‘f:\images.jpg‘）;
subplot（232）;
imshow（Q）;
title（‘原水印圖像‘）;
Q1=gray（Q）;%調用子函數，實現水印圖像灰度化和二值化
imwrite（Q1‘f:\erzhi.jpg‘）;
subplot（233）;
imshow（Q1）;
title（‘二值水印圖像‘）;
r=arnold（Q1）;
imwrite（r‘f:\images2.jpg‘）;
subplot（234）;
imshow（r）;
title（‘置亂后水印圖像‘）;
s=embed（Pr）;%水印嵌入
imwrite（s‘f:\watermarked.jpg‘）;
S1=imread（‘f:\watermarked.jpg‘）;
pnsr1=compare（S1P）
subplot（235）;
imshow（s）;
title（‘水印嵌入后圖像‘）;
v_get=get（S1P）;
subplot（236）;
imshow（v_get）;
title（‘提取的水印圖像‘）;
h=iarnold（v_get）;
NCa=com_sub（Q1h）
imwrite（h‘f:\get0.jpg‘）;
figure（2）
subplot（231）;
imshow（h）;
title（‘反置亂后的水印圖

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

?????文件???????7225??2011-05-19?11:38??代碼\main1.asv

?????文件???????7225??2011-05-19?11:41??代碼\main1.m

?????文件???????3294??2010-05-29?21:10??代碼\mainfunction.fig

?????文件???????8566??2010-05-29?21:10??代碼\mainfunction.m

?????文件???????6911??2010-05-30?17:00??代碼\subone1.asv

?????文件???????2582??2010-06-15?09:22??代碼\subone1.fig

?????文件???????7394??2010-06-15?09:22??代碼\subone1.m

?????文件??????10506??2010-05-30?17:30??代碼\subone2.asv

?????文件???????2992??2010-06-15?09:21??代碼\subone2.fig

?????文件??????10475??2010-05-30?17:35??代碼\subone2.m

?????文件??????27553??2010-06-08?11:25??代碼\subone3.asv

?????文件???????4304??2010-06-15?11:15??代碼\subone3.fig

?????文件??????27630??2010-06-15?11:15??代碼\subone3.m

?????文件?????268925??2010-06-15?09:36??圖片\1.jpg

?????文件???????1722??2010-05-30?17:40??圖片\arnold.jpg

?????文件???????2454??2010-06-18?08:24??圖片\cut-get.jpg

?????文件??????21330??2010-06-18?08:24??圖片\cut.jpg

?????文件???????1623??2010-06-18?08:24??圖片\erzhi.jpg

?????文件???????2828??2010-06-18?08:24??圖片\filtget2.jpg

?????文件??????29891??2010-06-18?16:52??圖片\gaussian.jpg

?????文件???????3094??2010-06-18?08:24??圖片\gaussian2.jpg

?????文件??????43593??2010-06-08?10:27??圖片\gaussian_attack1.jpg

?????文件???????2819??2010-06-18?08:24??圖片\get0.jpg

?????文件??????28388??2010-05-26?10:17??圖片\graya.jpg

?????文件??????12828??2010-05-01?21:15??圖片\images.jpg

?????文件???????1722??2010-06-12?15:43??圖片\images1.jpg

?????文件???????1722??2010-06-18?08:24??圖片\images2.jpg

?????文件???????2440??2010-06-12?15:53??圖片\images21.jpg

?????文件??????47139??2010-05-23?21:32??圖片\jpeg_attck.jpg

?????文件??????50154??2010-06-19?09:51??圖片\jpeg_attck1.jpg

............此處省略21個文件信息