xjtu211 发表于 2006-11-14 21:46

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

close all;
clear all;
clc;
rectangle('position',);
hold on;
xlim([-8,8]);
ylim();
rand('state',0)
for k=1:8
   gg(k)=plot(rand(1,100),rand(1,100),'.',...
       'markersize',2,'color',rand(1,3)) ;
end
xlim([-8,8]);
ylim();
set(gcf,'DoubleBuffer','on');
z=(i+0.5)*ones(1,12);
sp=rand(1,12)+0.2;
jd=exp(i*(rand(1,12)*pi/1.5+pi/6));
S=randperm(12)/3+4;
for k=1:12;
   hh(k)=plot(z,'.','markersize',S(k),'color',rand(1,3));
end
title('banger');qq=1;
xL=xlabel(['qq=',num2str(qq)],'fontsize',16) ;
while qq<800;
   z=z+(sp+imag(z).^2/3).*jd;
   sp(real(z)>8 | real(z)<-8)=0.2+...
       rand(1,sum(real(z)>8 | real(z)<-8));
   sp(imag(z)>4 | imag(z)<1)=0.2+...
       rand(1,sum(imag(z)>4 | imag(z)<1));
   jd(real(z)>8 | real(z)<-8)=exp(i*(rand(1,...
       sum(real(z)>8 | real(z)<-8))*pi/1.5+pi/6));
   jd(imag(z)>4 | imag(z)<1)=exp(i*(rand(1,...
       sum(imag(z)>4 | imag(z)<1))*pi/1.5+pi/6));
   z(real(z)>8 | real(z)<-8)=0.5+i;
   z(imag(z)>4 | imag(z)<1)=0.5+i;
   for k=1:12;
       set(hh(k),'xdata',real(z(k)),'ydata',imag(z(k)));
   end
   P=fix(qq/100)+1;
   Px=get(gg(P),'xdata');
   Py=get(gg(P),'ydata');
   Px(end)=[];Py(end)=[];
   set(gg(P),'xdata',Px,'ydata',Py);
   set(xL,'string',['qq=',num2str(qq)])
   pause(0.3);
   qq=qq+1;
end

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

suffer 发表于 2006-11-15 15:33

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

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

xjtu211 发表于 2006-11-15 20:37

谢谢欣赏，会改进的

hqhuang 发表于 2006-11-23 15:59

很不错！！！！！

HolySaint 发表于 2006-11-25 12:17

运行正常
但是会提示

??? Invalid handle object.

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

xiaoyongsword 发表于 2006-12-17 20:34

和上面同样

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

liwensheng 发表于 2006-12-18 16:15

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

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

lsq001 发表于 2006-12-21 15:01

嗯
看起来挺有意思的
呵呵

xiwdan 发表于 2007-4-25 15:19

我的也有上面那中问题

zhai1 发表于 2007-12-17 18:20

挺有意思的奥！

hyl2323 发表于 2007-12-17 18:34

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

花如月 发表于 2007-12-17 18:56

回复 #10 zhai1 的帖子

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

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

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

caispring 发表于 2007-12-18 16:19

不错啊
页: [1]
查看完整版本: 我来送大家一个‘礼花’，希望大家喜欢