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}]]

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}]]

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]

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]