function?AVEGRAD=avegrad（img）
%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%?this?function?is?used?to?calculate
%%%%?the?average?gradient?of?an?image.
%%%%?editor:?denghaibo?Email:denghblzu07@gmail.com
%%%%?date?:?2009-4-15
%%%%?平均梯度可敏感地反映圖像對微小細節反差表達的能力，可用來評價圖像的模糊程度
%%%%?在圖像中，某一方向的灰度級變化率大，它的梯度也就大。因此，可以用平均梯度值
%%%%?來衡量圖像的清晰度，還同時反映出圖像中微小細節反差和紋理變換特征。

img=double（img）;
[MN]=size（img）;
gradval=zeros（MN）;?%%%?save?the?gradient?value?of?single?pixel
diffX=zeros（MN）;????%%%?save?the?differential?value?of?X?orient
diffY=zeros（MN）;????%%%?save?the?differential?value?of?Y?orient

tempX=zeros（MN）;
tempY=zeros（MN）;
tempX（1:M1:（N-1））=img（1:M2:N）;
tempY（1:（M-1）1:N）=img（2:M1:N）;

diffX=img-tempX;
diffY=img-tempY;
diffX（1:MN）=0;???????%%%?the?boundery?set?to?0
diffY（M1:N）=0;
diffX=diffX.*diffX;
diffY=diffY.*diffY;
AVEGRAD=sum（sum（diffX+diffY））;
AVEGRAD=sqrt（AVEGRAD/2）;
AVEGRAD=AVEGRAD/（（M-1）*（N-1））;
disp（AVEGRAD）;

end?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????1988??2018-03-17?21:14??SSIM.m
?????文件????????1054??2018-07-17?19:38??avegrad.m
?????文件?????????544??2018-03-18?16:33??imPSNR.m
?????文件?????????709??2018-03-19?16:38??imSNR.m
?????文件?????????167??2019-04-18?21:40??img_Bre.m
?????文件?????????265??2019-04-18?21:39??img_EOG.m
?????文件?????????356??2019-04-18?21:39??img_SF.m
?????文件????????1088??2019-04-18?21:40??img_entro.m
?????文件?????????305??2019-04-18?21:39??img_var.m