动画

aspen

1. t=[1:10000];
   
2. t=mod(t,90);
   
3. tr=randn(size(t));
   
4. 
   
5. r=cos(t).*cos(t*6)+cos(t*9).*cos(tr*9);
   
6. x=r.*cos(t+pi/2);
   
7. 
   
8. y=r.*sin(t+pi/2);
   
9. H=plot(x,y,'.','markersize',2);
   
10. k=1;
    
11. 
    
12. xlabel('Please press "space" key and stop this program!',...
    
13. 
    
14. 'fontsize',12,'color','r');
    
15. d=0;
    
16. while k
    
17. 
    
18. s=get(gcf,'currentkey');
    
19. if strcmp(s,'space');
    
20. clc;k=0;
    
21. end
    
22. 
    
23. t=t+cos(d+1);
    
24. r=cos(t).*cos(t*6)+cos(t*9).*cos(tr*9);
    
25. 
    
26. x=r.*cos(t+pi/2);
    
27. y=r.*sin(t+pi/2);
    
28. set(H,'xdata',x,'ydata',y);
    
29. 
    
30. pause(0.1);
    
31. end
    
32. figure(gcf);

复制代码

ChaChing

不小心发现此帖! 还真炫!

ChaChing

昨早搜到这篇, 玩了下, 觉得炫, 回帖, 希望有兴趣者可看
但晚上发现已被借用了!
http://www.ilovematlab.cn/viewth ... mp;page=1#pid156648

ch_j1985

呵呵，ChaChing在那里也注册了

[ 本帖最后由 ch_j1985 于 2009-1-15 23:03 编辑 ]

ChaChing

很多地方都需注册才能..., 所以我注册的地方好像也不少!
不过这个好像比较贴近个人所学! 所以我有空就逛逛, 学习学习!

其实对校董有点抱歉! 若不是个人多言, 就不会...

阿拉蕾

很强大。学习了。