如何把以下的for循环向量化，以提高运行的速度

原来是小飞

请高手帮帮忙，谢谢了。

1. function [s,delt_s,s_cor]=C_CMethod(data)
   
2. %该函数利用C-C方法计算时间延时和嵌入维数
   
3. %Method,which proved by H.S.Kim
   
4. %skyhawk&flyinghawk
   
5. % %****************调试程序段****************************
   
6. %clear all;
   
7. %data=load('chen.txt');
   
8. % %************************************************
   
9. 
   
10. N=length(data);%数据组的大小
    
11. max_d=20;%时间延时的最大值  
    
12. sigma=std(data);%计算时间序列的标准差sigma
    
13. %求s(t)，delt_s(t)，s_cor(t)
    
14. for t=1:max_d
    
15.     t
    
16.     s_t=0;
    
17.     delt_s_s=0;
    
18. 
    
19. % S对m求和，即s_t
    
20.   for m=2:5
    
21.         s_t1=0;
    
22. %对rj求和，即s_t1   
    
23.         for j=1:4
    
24.             r=sigma*j/2;
    
25.             data_d=disjoint(data,N,t);%将时间序列分解成t个不相交的时间序列
    
26.             [ll,N_d]=size(data_d);%子序列的长度
    
27.             s_t3=0;
    
28. %计算t个不相关的时间序列的和
    
29.             for i=1:t
    
30.                 i
    
31.                 Y=data_d(i,:);%时间序列
    
32.                 C_1(i)=correlation_integral(Y,N_d,r);%计算C(1,N_d,r,t)
    
33.                 X=reconstitution(Y,N_d,m,t);%相空间重构
    
34.                 N_r=N_d-(m-1)*t;
    
35.                 C_I(i)=correlation_integral(X,N_r,r);%计算C(m,N_r,r,t)
    
36.                 s_t3=s_t3+(C_I(i)-C_1(i)^m);%对t个不相关的时间序列求和
    
37.             end
    
38.             s_t2(j)=s_t3/t;
    
39.             s_t1=s_t1+s_t2(j);%对rj求和, s_t1即S(m,r,t)
    
40.         end
    
41.         delt_s_m(m)=max(s_t2)-min(s_t2);%求delt S(m,t)
    
42.         delt_s_s=delt_s_s+delt_s_m(m);%delt S(m,t)对m求和
    
43.         s_t0(m)=s_t1;
    
44.         s_t=s_t+s_t0(m);%S对m求和
    
45.     end
    
46.     s(t)=s_t/16;%寻找s(t)的第一个零点去发现时间序列独立的第一个局部最大值
    
47.     delt_s(t)=delt_s_s/4;%寻找delt_s(t)的第一个极小值去发现时间序列独立的第一个局部最大值
    
48.     s_cor(t)=delt_s(t)+abs(s(t));%寻找s_cor(t)的最小值去发现时间序列独立的第一个整体最大值窗口
    
49.    
    
50. end
    
51. fid=fopen('result.txt','w');%打开result.txt,'w'表示对打开的文件写数据
    
52. fprintf(fid,'%f %f %f %f/n',t,s(t),delt_s(t),s_cor(t));%将矩阵t,s(t),delt_s(t),s_cor(t)的列向量以浮点格式%f %f %f %f/n写入到
    
53.                                                         %文本文件result.txt   
    
54. fclose(fid);%关闭文件
    
55. t=1:max_d;
    
56. plot(t,s,t,delt_s,'.',t,s_cor,'*')
    
57.         
    
58.             
    
59.             
    
60.                
    
61.             

复制代码

ChaChing

运行效率可参看

1.[原创] 提高matlab运行速度的一点心得 http://forum.vibunion.com/thread-25305-1-1.html
  [原创] 提高matlab运行速度的一点心得(之二) http://forum.vibunion.com/thread-26449-1-1.html
  [原创]提高matlab运行速度和节省空间的一点心得(之三) http://forum.vibunion.com/thread-33199-1-1.html
  [原创]关于Profiler的介绍和使用心得 http://forum.vibunion.com/thread-32293-1-1.html
   如何获取程序运行的时间 http://forum.vibunion.com/thread-16517-1-1.html
from http://home.vibunion.com/blog-63979-18250.html