有趣之matlab-烟花

待整合1 2 3

1. 动态

有趣编程之11

静态 逼真

3 .m文件路径下放back1.jpg back4.jpg…背景照片
点击screen 就会有小白点升起，爆炸

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;%粒子shumug=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)%烟花发射函数endend
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};%更新对象数据，再下次重复调用时再取出使用
endfunction 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);%爆炸后的颗粒数为ny=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.userData = {h,xt,yt,0};start(T);
end
function timer_display2(obj,event)global n v0 styleNum multiColor g;userData = obj.userData;h = userData{1};x0 = userData{2};y0 = userData{3};t = userData{4};theta=rand(n,1)*2*pi;%粒子的仰角fy=rand(n,1)*2*pi;%粒子的方位角theta1=round(12*rand(n,1))/6*pi;for i=1:n %绘制粒子下落过程，switch(styleNum)%图案判定,通过菜单修改全局变量控制case 1x(i)=2*v0*cos(fy(i))*cos(theta(i)+t*pi)*t+x0;y(i)=1.2*v0*cos(fy(i))*sin(theta(i)+i*pi)*t-g*t.^2+y0;case 2if(mod(theta(i),0.4*pi)<=0.1*pi)x(i)=2*v0*cos(fy(i))*cos(theta(i)-4*t*pi)*t+x0;y(i)=1.2*v0*cos(fy(i))*sin(theta(i)-4*t*pi)*t-g*t.^2+y0;else x(i)=(mod(theta(i),0.4*pi)*2.5/pi+0.4)*2*v0*cos(fy(i))*cos(theta(i)-4*t*pi)*t+x0;y(i)=(mod(theta(i),0.4*pi)*2.5/pi+0.4)*1.2*v0*cos(fy(i))*sin(theta(i)-4*t*pi)*t-g*t.^2+y0;endcase 3x(i)=2*v0*cos(fy(i))*cos(theta(i)+i*t*pi)*t+x0;y(i)=1.2*v0*cos(fy(i))*sin(theta(i)+i*t*pi)*t-g*t.^2+y0;case 4x(i)=0.8*fy(i)/pi*2*v0*cos(fy(i))*cos(theta(i)+i*pi)*t+x0;y(i)=0.8*fy(i)/pi*(1.2*v0*cos(fy(i))*sin(theta(i)+i*pi)*t-g*t.^2)+y0;case 5x(i)=4*v0*cos(fy(i))*cos(theta1(i))*t+x0;y(i)=(4*v0*cos(fy(i))*sin(theta1(i)-cos(fy(i))*cos(theta1(i))*0.3*t*pi)*t-4*t.^2)+y0;case 6                       x(i)=v0*cos(fy(i))*cos(theta1(i)+4*t*pi)*t+x0;y(i)=v0*cos(fy(i))*sin(theta1(i))*t-g*t.^2+y0;    endendset(h,'xdata',x,'ydata',y);if(multiColor == 1)set(h,'Color',rand(1,3));enddrawnow;t = t + 0.01;obj.userData = {h,x0,y0,t};
end
function stopFcn2(obj,event)%下述程序使爆炸的烟花消失global n;userData = obj.userData;h = userData{1};x=zeros(n,1);y=zeros(n,1);set(h,'xdata',x,'ydata',y);
end%hObject  eventdata handles
%按钮回调函数
function button_callback(object,data,handles)global v0 n g;switch(object.String)case '加快'v0 = v0 + 50;speed_panel = findobj(gcf,'Tag','speed_panel');speed_panel.Title = regexprep(speed_panel.Title,'\d*',num2str(v0));%正则表达式替换case '减慢'v0 = v0 - 50;speed_panel = findobj(gcf,'Tag','speed_panel');speed_panel.Title = regexprep(speed_panel.Title,'\d*',num2str(v0));%正则表达式替换case '增多'n = n + 100;ammount_panel = findobj(gcf,'Tag','ammount_panel');ammount_panel.Title = regexprep(ammount_panel.Title,'\d*',num2str(n));%正则表达式替换case '减少'n = n - 100;ammount_panel = findobj(gcf,'Tag','ammount_panel');ammount_panel.Title = regexprep(ammount_panel.Title,'\d*',num2str(n));%正则表达式替换case '手动调整数量'ammount_input = inputdlg('请输入爆炸后烟花颗粒的数量','修改烟花数量',1);num=str2num(ammount_input{1});if isempty(num)errordlg('必须输入有效数字','错误');elsen = num;ammount_panel = findobj(gcf,'Tag','ammount_panel');ammount_panel.Title = regexprep(ammount_panel.Title,'\d*',num2str(n));%正则表达式替换endcase '手动调整加速度'ammount_input = inputdlg(strcat('请输入爆炸后烟花加速度值,当前值为：',num2str(g)),'修改加速度',1);num=str2num(ammount_input{1});if isempty(num)errordlg('必须输入有效数字','错误');elseg = num;endend
end
%烟花样式改变菜单
function style_menu_callback(object,data,handles)global styleNum;number = regexp(object.Label,'\d','match');styleNum = str2num(number{1});
end
function file_menu_callback(object,data,handles)switch(object.Label)case '退出(&q)'close(gcf);end
end
function picture_menu_callback(object,data,handles)global ah;number = regexp(object.Label,'\d','match');imageName = strcat(strcat('back',number),'.jpg');axes('DrawMode','fast','position',[0,0,0.8,1]);II=imread(imageName{1});image(II);ah = axes('DrawMode','fast','Color','none','position',[0,0,0.8,1]);axis([-200 420 1 410])%设置坐标轴的范围grid offhold on;
end
function color_menu_callback(object,data,handles)global color multiColor;disp(object.Label);multiColor = 0;%初始化颜色状态switch(object.Label)case '黄色(&1)'color = [1 1 0];case '紫红色(&2)'color = [1 0 1];case '青色(&3)'color = [0 1 1];case '红色(&4)'color = [1 0 0];case '绿色(&5)'color = [0 0 1];case '蓝色(&6)'color = [0 1 0];case '白色(&7)'color = [1 1 1];case '五彩变换(&8)'color = [0 0 0];multiColor = 1; endparseColor(color);
endfunction slider_callback(obj,event)global color ;red_slider = findobj(gcf,'String','red');blue_slider = findobj(gcf,'String','blue');green_slider = findobj(gcf,'String','green');color = [red_slider.Value,blue_slider.Value,green_slider.Value];parseColor(color);
end
function[rbgStr] = parseColor(color)color_text = findobj(gcf,'Tag','color_text');rbgStr = char(strcat('red=',num2str(color(1))),...strcat('blue=',num2str(color(2))),...strcat('green=',num2str(color(3))));color_text.String = rbgStr;color_panel = findobj(gcf,'Title','颜色演示面板');color_panel.BackgroundColor = color;
end

参考博文