模拟心电图

p123456q

1. % 模拟cardiogram
   
2. close all;clc;clear;
   
3. N=60;
   
4. rand('state',0);
   
5. % Author : Zhengjun Liu
   
6. S=rand(1,2*N);
   
7. pt=plot(1:N,S(1:N),'y','linewidth',2);
   
8. hold on;
   
9. plot([1,N],[0.5,0.5],'w','linewidth',1);
   
10. set(gca,'color','b');
    
11. set(gcf,'DoubleBuffer','on');
    
12. while 1;
    
13. S(end+1)=rand;
    
14. S(1)=[];
    
15. set(pt,'YData',S(1:N));
    
16. pause(0.2);
    
17. end

复制代码

[ 本帖最后由 suffer 于 2006-10-9 21:07 编辑 ]