matlab实现烟花播放

function yanhuamoban() clear all; %定义全局变量 global ah ;%坐标轴句柄 global styleNum ;%爆炸图案样式 global multiColor; %多颜色变换 global color;%烟花颜色 global v0;%烟花爆炸速度 global n; %粒子数量 global g;%粒子重力加速度 %变量初始化开始 multiColor = 0; styleNum = 3; color = [1 1 0]; v0 = 250; %烟花爆炸时的速度 n = 2000;%粒子shumu g=1000; %变量初始化结束 %GUI部分开始 fig = figure('units','normalized','position',[0.1 0.1 0.6 0.8],... 'menubar','none','numberTitle','off','Name','烟花欣赏','WindowButtonDownFcn',@yanhua... ); %菜单 file_menu = uimenu(fig,'Label','文件(&f)'); sub_file_menu1 = uimenu(file_menu,'Label','退出(&q)','CallBack',@file_menu_callback); style_menu = uimenu(fig,'Label','爆炸风格(&s)'); sub_style_menu1 = uimenu(style_menu,'Label','风格(&1)','CallBack',@style_menu_callback); sub_style_menu2 = uimenu(style_menu,'Label','风格(&2)','CallBack',@style_menu_callback); sub_style_menu3 = uimenu(style_menu,'Label','风格(&3)','CallBack',@style_menu_callback); sub_style_menu4 = uimenu(style_menu,'Label','风格(&4)','CallBack',@style_menu_callback); sub_style_menu5 = uimenu(style_menu,'Label','风格(&5)','CallBack',@style_menu_callback); sub_style_menu6 = uimenu(style_menu,'Label','风格(&6)','CallBack',@style_menu_callback); picture_menu = uimenu(fig,'Label','背景图片(&p)'); sub_picture_menu1 = uimenu(picture_menu,'Label','图片(&1)','CallBack',@picture_menu_callback); sub_picture_menu2 = uimenu(picture_menu,'Label','图片(&2)','CallBack',@picture_menu_callback); sub_picture_menu3 = uimenu(picture_menu,'Label','图片(&3)','CallBack',@picture_menu_callback); sub_picture_menu4 = uimenu(picture_menu,'Label','图片(&4)','CallBack',@picture_menu_callback); sub_picture_menu5 = uimenu(picture_menu,'Label','图片(&5)','CallBack',@picture_menu_callback); color_menu = uimenu(fig,'Label','烟花颜色(&c)'); sub_color_menu1 = uimenu(color_menu,'Label','黄色(&1)','CallBack',@color_menu_callback); sub_color_menu2 = uimenu(color_menu,'Label','紫红色(&2)','CallBack',@color_menu_callback); sub_color_menu3 = uimenu(color_menu,'Label','青色(&3)','CallBack',@color_menu_callback); sub_color_menu4 = uimenu(color_menu,'Label','红色(&4)','CallBack',@color_menu_callback); sub_color_menu5 = uimenu(color_menu,'Label','绿色(&5)','CallBack',@color_menu_callback); sub_color_menu6 = uimenu(color_menu,'Label','蓝色(&6)','CallBack',@color_menu_callback); sub_color_menu7 = uimenu(color_menu,'Label','白色(&7)','CallBack',@color_menu_callback); sub_color_menu8 = uimenu(color_menu,'Label','五彩变换(&8)','CallBack',@color_menu_callback); %按钮面板 color_button_group = uibuttongroup(fig,'Title','颜色调节面板','Position',[0.83,0.55,0.16,0.44]); speed_button_group = uibuttongroup(fig,'Title',regexprep('速度调节面板(num)','num',num2str(v0)),'Position',[0.83,0.36,0.16,0.185],'Tag','speed_panel'); number_button_group = uibuttongroup(fig,'Title',regexprep('数量调节面板(num)','num',num2str(n)),'Position',[0.83,0.005,0.16,0.35],'Tag','ammount_panel'); %颜色微调滑动条 red_slider = uicontrol(fig,'Style','slider','String','red','Position',[695,450,25,140],'Min',0,'Max',1,'Value',1,'backgroundColor',[1,0,0],'CallBack',@slider_callback); green_slider = uicontrol(fig,'Style','slider','String','green','Position',[735,450,25,140],'Min',0,'Max',1,'Value',1,'backgroundColor',[0,0,1],'CallBack',@slider_callback); blue_slider = uicontrol(fig,'Style','slider','String','blue','Position',[775,450,25,140],'Min',0,'Max',1,'Value',0,'backgroundColor',[0,1,0],'CallBack',@slider_callback); %颜色参数静态文本 color_text = uicontrol(fig,'Style','text','Position',[690,395,115,50],'Tag','color_text',... 'String',char('red=1','blue=1','green=0'),'backgroundColor',[1,0.95,0.87],'FontSize',10,'HorizontalAlignment','left'); %颜色演示面板 color_panel = uipanel(fig,'Title','颜色演示面板','BackgroundColor',color,'Units','pixels','Position',[690,345,115,40]); %修改速度按钮 fast_button = uicontrol(fig,'Style','pushbutton','Position',[700,280,100,40],'FontSize',10,'String','加快','CallBack',@button_callback); slow_button = uicontrol(fig,'Style','pushbutton','Position',[700,230,100,40],'FontSize',10,'String','减慢','CallBack',@button_callback); %修改数量按钮 increase_button = uicontrol(fig,'Style','pushbutton','Position',[700,160,100,40],'FontSize',10,'String','增多','CallBack',@button_callback); decrease_button = uicontrol(fig,'Style','pushbutton','Position',[700,110,100,40],'FontSize',10,'String','减少','CallBack',@button_callback); modNum_button = uicontrol(fig,'Style','pushbutton','Position',[700,60,100,40],'FontSize',10,'String','手动调整数量','CallBack',@button_callback); modG_button = uicontrol(fig,'Style','pushbutton','Position',[700,10,100,40],'FontSize',10,'String','手动调整加速度','CallBack',@button_callback); axes('DrawMode','fast','position',[0,0,0.8,1]); II=imread('back4.jpg'); image(II) ah = axes('DrawMode','fast','Color','none','position',[0,0,0.8,1]); axis([-200 420 1 410])%设置坐标轴的范围 grid off %GUI部分结束 hold on %烟花主控函数，每次点击鼠标按钮监听器都会调用此函数。 function yanhua(src,event) cp = get(ah,'CurrentPoint'); % 得到点击点的坐标 xt = cp(1,1);yt = cp(1,2); if(xt < 420)%若点击在按钮面板则不放烟花 launch(xt,yt)%烟花发射函数 end end end %主函数调用结束 %colormap(hot) %烟花发射函数 function launch(xt,yt) x=xt; y=0; H=plot(x,y,'w.'); %以白色,点来绘制图像。 set(H,'EraseMode','xor','MarkerSize',25)%擦除式绘图，通过在极短的时间里不断绘制新点坐标，擦出旧点坐标来实现烟花向上发射的运动效果 T = timer('TimerFcn',@timer_display1,'StopFcn',@stopFcn1,'TasksToExecute',50,'Period',0.005,'ExecutionMode','fixedSpacing');%非阻塞式定时器，以0.005秒为间隔调用TimerFcn，共调用50次。调用玩后会启动StopFcn函数，进行清尾工作，如清楚发射点图像，初始化烟花爆炸的定时器等。而烟花发射的运动，就是通过在这50次的重复调用中，不断更新点的坐标来实现的。 T.userData = {H,xt,yt,1};%定时器对象的属性。在定时函数里使用。定时器函数是不变的，但在重复调用中要实现点坐标的改变，就要通过改变定时器对象的对象属性才行。 %为什么要用对象属性而不是函数内定义的局部变量？因为局部变量在每次函数调用完毕就会被销毁，不能实现类似于静态变量的效果在下次重复调用中生效。那为什么不适用全局变量？因为全局变量是共用的，我的定时器A能用，定时器B也能用，A修改了这个变量，B中也生效了，这就有“线程安全性”问题了。 start(T);%启动定时器 end function timer_display1(obj,event) userData = obj.userData;%获取对象数据 H = userData{1}; x = userData{2}; yt = userData{3}; i = userData{4}; y=i/50*yt;%执行50次，就到了鼠标点击位置，预备爆炸了。这个运动模型可以结合实际的物理模型做进一步优化，感兴趣的同学不妨试试。 set(H,'XData',x,'YData',y)%更新烟花坐标 drawnow;%重画页面，使烟花"H"出现在新位置 i=i+1;%这是控制烟花位移的关键 obj.userData = {H,x,yt,i};%更新对象数据，再下次重复调用时再取出使用 end function stopFcn1(obj,event)%定时器1完成了它的50次调用使命，使烟花（点）到达爆炸处（鼠标位置），这个烟花（点)在这里被消除，然后开始了烟花爆炸的定时器初始化、启动工作 global n; global color; userData = obj.userData; H = userData{1} xt = userData{2}; yt = userData{3}; x=-20;y=-20; set(H,'XData',x,'YData',y); %上述程序使得烟花到达鼠标的位置后消失在视野内 %*************烟花的爆炸过程 x=zeros(n,1);%爆炸后的颗粒数为n y=zeros(n,1); h=plot(x,y,'.');%烟花爆炸后的形状 set(h,'Color',color); set(h,'erasemode','xor','MarkerSize',5) T = timer('TimerFcn',@timer_display2,'StopFcn',@stopFcn2,'TasksToExecute',40,'Period',0.05,'ExecutionMode','fixedSpacing'); T.use