用matlab编的关键帧提取的代码

用matlab编的关键帧提取的代码，参考了光流法的代码。是基于帧差的欧式距离，均值，方差，差异系数下的关键帧提取。代码调试通过，运行结果理想

function e=EulerDistance（Movn） %求帧间欧氏距离
Xn=rgb2gray（Mov（1n）.cdata）;
Xn=double（Xn）;
Xnp1=rgb2gray（Mov（1n+1）.cdata）;
Xnp1=double（Xnp1）;
%Xnq1=rgb2gray（Mov（1n+2）.cdata）;
%Xnq1=double（Xnq1）;
%f=（（std（Xnp1（:）-Xn（:））+std（Xnq1（:）-Xnp1（:）））/2+（（mean（Xnp1（:）-Xn（:））-mean（Xnq1（:）-Xnp1（:）））/2）^2）^2;
diff = Xnp1（:）-Xn（:）; 
e = sqrt（ sum（ diff（:）.*diff（:） ） ）; 

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

     文件        463  2009-05-22 11:35  KeyframeDiff\extremum.m

     文件        167  2009-05-27 19:48  KeyframeDiff\frameDiffMean.m

     文件        165  2009-05-27 19:49  KeyframeDiff\frameDiffVar.m

     文件       2581  2009-06-01 22:15  KeyframeDiff\ExtractKeyframe.m

     文件       2478  2009-05-27 21:24  KeyframeDiff\ExtractKeyframe.asv

     文件    1513472  2004-01-26 18:44  KeyframeDiff\person01_jogging_d2_uncomp.avi

     文件        304  2009-05-27 19:51  KeyframeDiff\SimilarRatioDiff.m

     文件    2017280  2004-01-23 14:00  KeyframeDiff\person01_boxing_d2_uncomp.avi

     文件        371  2009-05-28 21:01  KeyframeDiff\EulerDistance.m

     文件        281  2009-05-28 21:01  KeyframeDiff\EulerDistanceDiff.m

     文件        380  2009-05-27 20:49  KeyframeDiff\EulerDistanceDiff.asv

     文件         57  2009-06-01 22:11  KeyframeDiff\frameNum.m

     目录          0  2009-05-27 21:29  KeyframeDiff

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

              3537999                    13