work1 提取纹理图像特征

提取纹理图像特征，包括平均值、标准差、平滑度、三阶矩、一致性、和熵。

function [vunv]=statmoments（pn）
Lp=length（p）;
if （Lp~=256）&（Lp~=65536）
    error（‘p must be a 256- or 65536-element vector.‘）;
end
G=Lp-1;
p=p/sum（p）;p=p（:）;
z=0:G;
z=z./G;
m=z*p;
z=z-m;
v=zeros（1n）;
v（1）=m;
for j=2:n
    v（j）=（z.^j）*p;
end
if nargout>1
    unv=zeros（1n）;
    unv（1）=m.*G;
    for j=2:n
        unv（j）=（（z*G）.^j）*p
    end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      77020  2010-04-05 16:36  work1\diqiu.jpg

     文件     589878  2010-04-05 16:45  work1\dq.bmp

     文件        369  2008-11-12 20:13  work1\statmoments.m

     文件        625  2008-11-12 20:13  work1\statxture.m

     文件         76  2010-04-05 18:12  work1\wenlitezheng.m

     目录          0  2010-04-21 17:43  work1

----------- ---------  ---------- -----  ----

               667968                    6