tezheng 本人找到的非常好的几何特征提取源代码

这是本人找到的非常好的几何特征提取源代码，包括周长。面积。伸长度、矩形度等用过了，很不错的！

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