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