我来送大家一个‘礼花’，希望大家喜欢

xjtu211

1. close all;
   
2. clear all;
   
3. clc;
   
4. rectangle('position',[0,0,1,1]);
   
5. hold on;
   
6. xlim([-8,8]);
   
7. ylim([0,4]);
   
8. rand('state',0)
   
9. for k=1:8
   
10.    gg(k)=plot(rand(1,100),rand(1,100),'.',...
    
11.        'markersize',2,'color',rand(1,3)) ;
    
12. end
    
13. xlim([-8,8]);
    
14. ylim([0,4]);
    
15. set(gcf,'DoubleBuffer','on');
    
16. z=(i+0.5)*ones(1,12);
    
17. sp=rand(1,12)+0.2;
    
18. jd=exp(i*(rand(1,12)*pi/1.5+pi/6));
    
19. S=randperm(12)/3+4;
    
20. for k=1:12;
    
21.    hh(k)=plot(z,'.','markersize',S(k),'color',rand(1,3));
    
22. end
    
23. title('banger');qq=1;
    
24. xL=xlabel(['qq=',num2str(qq)],'fontsize',16) ;
    
25. while qq<800;
    
26.    z=z+(sp+imag(z).^2/3).*jd;
    
27.    sp(real(z)>8 | real(z)<-8)=0.2+...
    
28.        rand(1,sum(real(z)>8 | real(z)<-8));
    
29.    sp(imag(z)>4 | imag(z)<1)=0.2+...
    
30.        rand(1,sum(imag(z)>4 | imag(z)<1));
    
31.    jd(real(z)>8 | real(z)<-8)=exp(i*(rand(1,...
    
32.        sum(real(z)>8 | real(z)<-8))*pi/1.5+pi/6));
    
33.    jd(imag(z)>4 | imag(z)<1)=exp(i*(rand(1,...
    
34.        sum(imag(z)>4 | imag(z)<1))*pi/1.5+pi/6));
    
35.    z(real(z)>8 | real(z)<-8)=0.5+i;
    
36.    z(imag(z)>4 | imag(z)<1)=0.5+i;
    
37.    for k=1:12;
    
38.        set(hh(k),'xdata',real(z(k)),'ydata',imag(z(k)));
    
39.    end
    
40.    P=fix(qq/100)+1;
    
41.    Px=get(gg(P),'xdata');
    
42.    Py=get(gg(P),'ydata');
    
43.    Px(end)=[];Py(end)=[];
    
44.    set(gg(P),'xdata',Px,'ydata',Py);
    
45.    set(xL,'string',['qq=',num2str(qq)])
    
46.    pause(0.3);
    
47.    qq=qq+1;
    
48. end

复制代码

[ 本帖最后由 suffer 于 2006-11-15 15:32 编辑 ]

suffer

运行了一下，还不错，呵呵

还有动画效果~~不过数量少了点，呵呵

xjtu211

hqhuang

很不错！！！！！

HolySaint

运行正常
但是会提示

??? Invalid handle object.

Error in ==> flower at 38
       set(hh(k),'xdata',real(z(k)),'ydata',imag(z(k)));

xiaoyongsword

可以运行，值得学习一下
不过就是上面老兄的问题

liwensheng

我的也有如此问题??? Invalid handle object.

Error in ==> Untitled2 at 38
       set(hh(k),'xdata',real(z(k)),'ydata',imag(z(k)));

lsq001

嗯
看起来挺有意思的
呵呵

xiwdan

我的也有上面那中问题

zhai1

挺有意思的奥！

hyl2323

函数句柄用得不错，顶一个哈，希望你能做出浏阳河烟花效果，明年奥运会开幕式上争奇斗艳，呵呵。

花如月

翻起来旧帖子的人，总是比较好学的

有兴趣也可以改进下，比如花多些、再漂亮些、弄个三维的:lol

[ 本帖最后由 无水1324 于 2007-12-17 19:16 编辑 ]

caispring

不错啊