function?[Cs]=devico（key）
keybar=mean（key）;
s=0;
for?i=1:length（key）
????s=s+（key（i）-keybar）^3*length（find（key==key（i）））;
end
Cs=s/（length（key）*std（key）^3*keybar）;

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

?????文件????????171??2011-05-15?22:31??devico.m

?????文件????????805??2011-05-24?21:38??dlpm.m

?????文件????????366??2011-05-16?16:25??halfrevolution.m

?????文件???????1020??2011-05-16?16:36??hfr2.m

?????文件????????853??2011-05-24?21:33??KrigingInter.m

?????文件????????452??2011-05-20?21:20??xcovariance.m

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

?????????????????3667????????????????????6