function?OUT=GrayExitMonentR（IN）
%?灰度共生矩陣為p2;
%?二階矩?f1;
%?相關度?f2;
%?墑?f3;
%?對比度?f4;
%?逆差矩?f5;
%?和平均f6;
%?和方差?f7;
%?差分矩f8;
%?Sum?Entropy和熵f9;
%?差方差f10;
%?差熵f11;
%?close?all;
gray=256;
IN=imread（‘200.jpg‘）;
??
[RC]=size（IN）;
%把圖象降為32像素
%?IN=uint8（IN/8）;
%?max（IN（:））


p1=zeros（gray）;
for?M=1:R
????for?N=1:（C-1）
????????p1（IN（MN）+1IN（MN+1）+1）=?p1（IN（MN）+1IN（MN+1）+1）+1;
????????p1（IN（MN+1）+1IN（MN）+1）=?p1（IN（MN+1）+1IN（MN）+1）+1;
????end
end
?%復制一個共生矩陣
p2=p1;
%figureimshow（p2）;


%歸一化
p2=double（p2）/（M*N）;

%計算二階矩?f1
f1=p2.^2;
f1=sum（f1（:））;

%?計算相關度?f2
colour=0:gray-1;
m1=sum（p2）*colour（:）;
m2=m1;
pp=sum（p2）;
v1=（（colour-m1）.^2）*pp（:）;
?v2=v1;
[mn]=meshgrid（colourcolour）;
pp=m.*n.*p2;
f2=（sum（pp（:））-m1*m2）/（v1+eps）*（v2+eps）;
%計算墑

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

?????文件???????3293??2010-11-25?10:09??新建文件夾\GrayExitMonentR.m

?????文件????????341??2010-11-29?11:27??新建文件夾\jihetezheng.m

?????文件???????1871??2006-09-02?00:00??新建文件夾\NeuralNetwork_BP_Classification.m

?????文件???????3799??2010-11-19?16:38??新建文件夾\tezhengtiqu.m

?????目錄??????????0??2010-11-30?15:03??新建文件夾

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

?????????????????9304????????????????????5