谁有烟花算法的MATLAB程序

function firework()

% 烟花烟花满天飞 

% 2011625  

OldHandle = findobj('Type','figure','Tag','FireWork');

if ishandle(OldHandle)

     close(OldHandle);

end

% 图形窗口初始化 

fig = figure('units','normalized','position',[01 01 08 08],

   'menubar','none','name','烟花满天飞',

   'numbertitle','off','color',[0 0 0],'tag','FireWork');

% 烟花炸开前的初始位置

h0 = line(0,0,0,'marker','',

    'markersize',18, 

 'MarkerEdgeColor',[1 1 1],

 'MarkerFaceColor',[1 1 1],

 'EraseMode','xor',

 'color',[0 0 0]);

% 设置坐标系显示属性

axis equal

axis([-50 50 -50 50 0 100])

 axis off

view(-42,22)

% 设置参数 

rate = 1:-001:0;

% 颜色衰减率

v0 = 45;  % 烟花头初始速度

g = -98;   % 重力加速度 

usedtime = -v0/g;  % 烟花头爆炸前所经历时间 

zs = v0usedtime+05gusedtime^2;  %烟花头爆炸前达到的最高高度  

theta = rand(250,1)2pi;  % 各粒子速度的方位角

 phi =  rand(250,1)2pi-pi;  % 各粒子速度的仰角

 age = 20;  % 粒子生存期 

% 常用颜色矩阵 

colormat = [10  05  05

         10  075  05

         10  10  05

         075  10  05

         05  10  05

         05  10  075

         05  10  10         

    05  075  10

     05  05  10

     075  05  10

     10  05  10

     10  05  075]; 

% 随机产生各粒子对应的颜色序号

 colorid = randsample(12,250,true); 

% 粒子对应的颜色矩阵 

colormat = colormat(colorid,:); 

% 粒子颜色与背景色（夜色）的距离

 colordist = sqrt(sum(colormat^2,2)); 

v1 = 20;  % 粒子的初始速度

 k = 1;   % 颜色衰减率初始序号  

timerA = timer('TimerFcn',@TimerFcnA, 

    'executionmode','fixedspacing','Period',0001); 

start(timerA); 

h = getappdata(gcf,'HandleParticle'); 

timerB = timer('TimerFcn',{@TimerFcnB}, 

    'executionmode','fixedspacing','period',0001);  

%-------------------------------------------------------------------------- 

%  定时器回调函数（烟花头） 

%--------------------------------------------------------------------------

 function TimerFcnA(timerA,event)

 ta = get(timerA,'TasksExecuted')01; 

if ta <= usedtime 

    z = v0ta+05gta^2;

     set(h0,'zdata',z, 

        'MarkerEdgeColor',[1 1 1],

         'MarkerFaceColor',[1 1 1])

     drawnow

     %pause(001)

 else 

    delete(h0)

     stop(timerA);

     x0 = zeros(2,250);

     y0 = zeros(2,250);

     z0 = zsones(2,250); 

    h = line(x0,y0,z0,'marker','h',

        'markersize',12, 

        'MarkerEdgeColor',[1 1 1],

         'MarkerFaceColor',[1 1 1],

         'EraseMode' , 'xor', 

            'color',[0 0 0]); 

        setappdata(gcf,'HandleParticle',h);

        start(timerB); 

            end

  end

使用公式。在如vba中使用公式ScaleMode等于3Picture即可实现放烟花。VBA（VisualBasicforApplications）是VisualBasic的一种宏语言，是在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言。

烟花证的办理程序：

1、向安监部门提出申请，提交所需资料；

2、安监部门进行现场审核；

3、安监部门组织进行安全教育培训并考核；

4、签订《烟花爆竹销售安全责任书》；

5、领取《烟花爆竹临时销售许可证》。

省、自治区、直辖市人民政府安全生产监督管理部门或者其委托的设区的市人民政府安全生产监督管理部门（以下与县级人民政府安全生产监督管理部门统称发证机关）负责《烟花爆竹经营（批发）许可证》的颁发管理工作，县级人民政府安全生产监督管理部门负责《烟花爆竹经营（零售）许可证》的颁发管理工作。

《烟花爆竹经营许可实施办法》

第三条

从事烟花爆竹批发的企业（以下简称批发企业）和从事烟花爆竹零售的经营者（以下简称零售经营者）应当按照本办法的规定，分别取得《烟花爆竹经营（批发）许可证》（以下简称批发许可证）和《烟花爆竹经营（零售）许可证》（以下简称零售许可证）。从事烟花爆竹进出口的企业，应当按照本办法的规定申请办理批发许可证。未取得烟花爆竹经营许可证的，任何单位或者个人不得从事烟花爆竹经营活动。

控制台肯定不行。窗口程序至少属于可视化界面。

初学者别搞这个了，你要做的这个可以用其他软件更方便实现。

非要用C#的winform来做动画，研究一下SystemDrawing吧。

至于编程思路可以简单给你讲一个：

定义个烟花类：

属性:

烟花的颜色Color，

烟花当前位置Point，

飞行方向int，

飞行轨迹Point集合，

烟花尾巴长度int，

爆炸生成烟花数量int

方法：

烟花爆炸（）——如果爆炸生成的烟花数量设置是0，那么就不爆炸；否则安装数量new 新的烟花出来，360°除以烟花数量设置烟花方向。

烟花飞行（）——飞行轨迹记录之前的位置，通过飞行方向计算当前位置，通过尾巴长度颜色属性进行图像刷新。

。。。。。。

import javaawt;

import javaapplet;

import javaawtevent;

import javaxswing;

public class Fireworks extends Applet implements MouseListener, Runnable {

int x, y;//记录鼠标点击的坐标

int top, point;//好像没用到

public void init() {

x = 0;

y = 0;

setBackground(Colorblack);// 设置背景色为黑色

addMouseListener(this);//添加鼠标监听

}

public void paint(Graphics g) {

}

public static void main(String args[]) {

Fireworks applet = new Fireworks();

JFrame frame = new JFrame("TextAreaNew");

frameaddWindowListener(new WindowAdapter() {

public void windowClosing(WindowEvent e) {//右上角的叉

Systemexit(0);

}

});

frameadd(applet, BorderLayoutCENTER);

framesetSize(800, 400);//程序的框框大小

appletinit();

appletstart();

framesetVisible(true);//

}

public void run() {

// 变量初始化

Graphics g1;

g1 = getGraphics();//这是画笔，得到一个画笔

int y_move, y_click, x_click;

int v;//用于计算等待的时间

x_click = x;

y_click = y;//把点击的坐标保存下来，因为其它线程会去改这两个坐标。

y_move = 400;//用来计算变动的那个点，现在是屏幕的最大高度

v = 3;

int r, g, b;

while (y_move > y_click)//如果点击的位置小于最大高度。

{

g1setColor(Colorblack);//画笔设成黑色

g1fillOval(x_click, y_move, 5, 5);//画圆，圆点在点击的X轴，程序界面的最高点，长为5，宽为5

y_move -= 5;//最高点-5

r = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;

g = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;

b = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;//rgb是光的三原色，这个就是烟花产生的颜色，这里定义成随机的，但在一个范围里

g1setColor(new Color(r, g, b));//把画笔改成那个颜色

g1fillOval(x_click, y_move, 5, 5);//画一个这样的圆

for (int j = 0; j <= 10; j++) {

if (r > 55)

r -= 20;

if (g > 55)

g -= 20;

if (b > 55)

b -= 20;

g1setColor(new Color(r, g, b));

g1fillOval(x_click, y_move + j  5, 5, 5);//这一段都是改变颜色，然后画圆的

}

g1setColor(Colorblack);

g1fillOval(x_click, y_move + 5  10, 5, 5);//把上一次画的彩色圆，用黑色画一遍，就能让它消失在背景里

try {

ThreadcurrentThread()sleep(v++);//让程序等一下，让你看到效果，不然画完的东西一下就不见了，你看不清。

} catch (InterruptedException e) {

}

}//上面这段代码是烟花的升上去的那一串东西的效果

for (int j = 12; j >= 0; j--) {

g1setColor(Colorblack);

g1fillOval(x_click, y_move + (j  5), 5, 5);

try {

ThreadcurrentThread()sleep((v++) / 3);

} catch (InterruptedException e) {

}

}//让最后的那串东西的点消失

y_move = 400;

g1setColor(Colorblack);

while (y_move > y_click) {

g1fillOval(x_click - 2, y_move, 9, 5);

y_move -= 5;

}//这段不太清楚是干什么的，我把它去掉，看不出效果的变化

v = 15;

for (int i = 0; i <= 25; i++) {

r = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;

g = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;

b = (((int) Mathround(Mathrandom()  4321)) % 200) + 55;

g1setColor(new Color(r, g, b));

g1drawOval(x_click - 3  i, y_click - 3  i, 6  i, 6  i);

if (i < 23) {

g1drawOval(x_click - 3  (i + 1), y_click - 3  (i + 1),

6  (i + 1), 6  (i + 1));

g1drawOval(x_click - 3  (i + 2), y_click - 3  (i + 2),

6  (i + 2), 6  (i + 2));

}//上面这段是画爆炸的效果

try {

ThreadcurrentThread()sleep(v++);//停一下，看效果

} catch (InterruptedException e) {

}

g1setColor(Colorblack);

g1drawOval(x_click - 3  i, y_click - 3  i, 6  i, 6  i);//然后画黑圈，相当于让彩圈消失。

}

}

public void mousePressed(MouseEvent e) {//点击从这里开始~~~~~~~~~~~~~~

x = egetX();

y = egetY();//得到鼠标点击的坐标

Thread one = new Thread(this);//新建一个线程

onestart();//启动这个线程，到上面的run方法

one = null;//把这个线程置为空，让它执行完以后就释放

}

如果你想一下自己写要怎样写这个程序，就很容易理解这个程序了。

一直从下向上画圆，然后把下面的圆擦掉，就能得到一个向上升的烟花效果，

爆炸效果就是先画小圆再画大圆，然后擦掉小圆，再擦掉大圆。

建立烟花爆竹仓库的立项审批程序和相关部门可能因地区和国家法律法规的不同而有所差异。一般而言，在2023年建立烟花爆竹仓库时，可能需要按照以下一般步骤和程序：

营业执照注册：首先，您需要在当地工商行政管理部门或类似机构进行烟花爆竹批发公司的营业执照注册。这通常包括填写相关申请表格，提交公司注册所需的资料，如公司名称、地址、法定代表人身份z等，并支付相应的注册费用。

建立烟花爆竹仓库的立项审批：在一些地区，烟花爆竹仓库的建设可能需要立项审批。您需要向相关部门（如公安、消防、安全监管等）提交申请，包括仓库建设的规划、设计、施工方案等详细资料，并按照要求进行审批程序，包括现场检查、评估和批准。

安全环保手续：烟花爆竹属于危险品，因此在建立仓库时，需要符合相关的安全和环保法律法规要求。这包括消防设施的规划和安装、危险品储存管理制度的建立、环保手续的办理等。

人员培训和资质认证：您需要确保仓库管理人员具备相关的安全 *** 作和应急处理的知识和技能，并依法取得相关资质认证，如烟花爆竹安全管理人员资格证书等。

其他审批和备案：根据当地法律法规，可能还需要办理其他相关审批和备案手续，如工商税务登记、卫生许可证等。

以上就是关于谁有烟花算法的MATLAB程序全部的内容，包括:谁有烟花算法的MATLAB程序、如何用vba实现放烟花、烟花证怎么办理的要求等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！