%點銳度算法
%函數DEAV得到的是由邊緣銳度算法改進而來的點銳度算法的清晰度評價值
function?P=DEAV（f）
f=double（f）;
[mn]=size（f）;
f=[zeros（m1）?f?zeros（m1）];
f=[zeros（1n+2）;f;zeros（1n+2）];%圖像大小為（m+2）*（n+2）
DEV=zeros（mn）;

for?i=2:m+1
????for?j=2:n+1
????????DEV（ij）=（4+2*sqrt（2））*f（ij）-f（ij-1）-f（i-1j）-f（i+1j）-f（ij+1）-（1/sqrt（2））*（f（i-1j-1）+f（i-1j+1）+f（i+1j-1）+f（i+1j+1））;
????????DEV（ij）=abs（DEV（ij））;
????end
end
All_DEV=sum（sum（DEV））;
P=All_DEV/（m*n）;%點銳度算法的清晰度評價值

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

?????文件????????515??2010-11-23?09:01??點銳度\DEAV.m

?????文件???????1872??2010-11-23?09:41??點銳度\DEAV_test.asv

?????文件???????1769??2010-11-23?09:43??點銳度\DEAV_test.m

?????文件????????323??2010-11-25?17:47??點銳度\rgb_model_TEST.asv

?????文件????????323??2010-11-25?17:50??點銳度\rgb_model_TEST.m

?????文件??????22841??2010-11-25?17:52??點銳度\彩色檢測對比.jpg

?????目錄??????????0??2011-01-11?14:45??點銳度

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

????????????????27643????????????????????7