Posts tagged: fireworks

Be happy!

Mathematica code:

r[n_] := ( SeedRandom[n]; RandomReal[])Fireworks2[IS_, pr_, x_, y_, h_, R_, P_, F_, g_, v_, u_, z_,                  o_, O_, w_, d_, q_, e_, A_, k_, s_, t_] := Graphics[  Table[   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},    Table[     Table[      {Hue[r[R*f]],        Opacity[If[a == 0,          If[t - r[R*f] s < o + r[R*f] s, O,           O*Exp[-d*(t - r[R*f] s - o)]],          If[(t - r[R*f] s - a) < q + r[R*f] s, 0,           O*Exp[-e*(t - r[R*f] s + a - q)]]]],       Disk[        {x + (v + u*r[2 R*f*n])*           Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),         y +           h + (v + u*r[2 R*f*n])*           Sin[2 Pi*r[f*R*n]]*(t - r[R*f] s -              a) - .5 g*(t - r[R*f] s - a)^2},        (z + .2 r[6 f*R*n])*k^a]},      {n, 1, P}],     {a, 0, A, .05}]],   {f, 1, F}],  Background -> Black, PlotRange -> pr, ImageSize -> IS]Manipulate[Fireworks[500, 40, 0, 9, 0, 1, 70, 3, .6,               If[t < 6, 6, 6 - .05 (t - 6)^2],               -1, .2, 3, .7, 2, .5, 0, .4,               5, .9, 1, t], {t, 0, 11, .25}]]
Filed under: #GIF  #Mathematica  #fireworks  #2013

Mathematica code:

r[n_] := ( SeedRandom[n]; RandomReal[])Fireworks2[IS_, pr_, x_, y_, R_, P_, F_, g_, v_, u_, z_, o_, O_, w_, d_, q_, e_, A_, k_, s_, t_] := Graphics[  Table[   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},    Table[     Table[      {Hue[r[R*f]],        Opacity[If[t - r[R*f] s - a == t - r[R*f] s,                       If[t - r[R*f] s < o + r[R*f] s, O,                          O*Exp[-d*(t - r[R*f] s - o)]],                       If[(t - r[R*f] s - a) < q + r[R*f] s, 0,                          O*Exp[-e*(t - r[R*f] s + a - q)]]]],       Disk[             {x + (v + u*r[2 R*f*n])*Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),              y + (v + u*r[2 R*f*n])*Sin[2 Pi*r[f*R*n]]*(t - r[R*f] s - a) - .5 g*(t - r[R*f] s - a)^2},             (z + .2 r[6 f*R*n])*k^a]},     {n, 1, P}],   {a, 0, A, .05}]], {f, 1, F}],Background -> Black, PlotRange -> pr, ImageSize -> IS]ListAnimate[   Table[    Fireworks2[500, 40, 0, 7, 1, 50, 3, .2, 3, 1, .2, 3, .7, 2, .5, .1, .4, 7, .7, 2, t],   {t, 0, 9.5, .2}],AnimationRunning -> False]ListAnimate[   Table[     Fireworks2[500, 35, 0, 7, 2, 40, 4, .3, 5, 1, .2, 3, .7, 2, .2, .1, .2, 9, .6, 2, t],   {t, 0, 10, .3}]AnimationRunning -> False]
Filed under: #GIF  #Mathematica  #fireworks  #circles

I want to watch fireworks every night. Don’t you?

Mathematica code:

r[n_] := ( SeedRandom[n]; RandomReal[])Fireworks[IS_, pr_, x_, y_, h_, R_, P_, F_, g_, v_, z_, o_, w_, d_, q_, e_, s_, t_] := Graphics[  Table[   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},    Table[     Table[      {Hue[r[R*f]],        Opacity[If[t - r[R*f] s - a == t - r[R*f] s,                       If[t - r[R*f] s < o, 1, Exp[-d*(t - r[R*f] s - o)]],                    If[(t - r[R*f] s - a) < q, 0,                       Exp[-e*(t - r[R*f] s + a - q)]]]],       Disk[        {(r[2 R*f] - .5)*x + v*r[3 f*R*n]*Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),           r[4 R*f]*y + h + v*r[5 f*R*n]*Sin[2 Pi*r[f*R*n]]*(t - r[R*f] s - a) - .5 g*(t - r[R*f] s - a)^2},        z + .2 r[6 f*R*n]]},    {n, 1, P}],   {a, 0, 2, .05}]], {f, 1, F}],Background -> Black, PlotRange -> pr, ImageSize -> IS]ListAnimate[   Table[     Fireworks[500, 50, 50, 20, 15, 25, 75, 7, .3, 3.5, .11, 5, 2, .8, .2, .4, 3, t],   {t, 0, 13, .2}],AnimationRunning -> False]ListAnimate[   Table[     Fireworks[500, 50, 50, 20, 15, 17, 75, 6, .3, 3.5, .11, 5, 2, .8, .2, .5, 3, t],   {t, 0, 12, .2}]AnimationRunning -> False]
Filed under: #GIF  #Mathematica  #fireworks  #circles