intothecontinuum:

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]
  1. aconglomerateofthought reblogged this from proofmathisbeautiful
  2. crissavelin reblogged this from intothecontinuum and added:
    ESPLODE!!!
  3. the-cardboard-cutout reblogged this from cuntrocket
  4. cuntrocket reblogged this from wolframalpha
  5. commanderbrrl reblogged this from proofmathisbeautiful
  6. anengineersaspect reblogged this from graphporn
  7. yellow-aicicles reblogged this from proofmathisbeautiful
  8. siftingthroughvariety reblogged this from proofmathisbeautiful
  9. mediamajor reblogged this from proofmathisbeautiful
  10. jaaraweller reblogged this from proofmathisbeautiful
  11. onafoolserrand reblogged this from proofmathisbeautiful
  12. likealuuh reblogged this from proofmathisbeautiful
  13. mintmojito reblogged this from proofmathisbeautiful
  14. marksandmarginalia reblogged this from wolframalpha
  15. graphporn reblogged this from wolframalpha
  16. grkankaya reblogged this from proofmathisbeautiful
  17. classicderek reblogged this from wolframalpha
  18. giferronous reblogged this from intothecontinuum
  19. dazuku reblogged this from proofmathisbeautiful
  20. sciencemakestheworldgoround reblogged this from proofmathisbeautiful
  21. hexahedronos reblogged this from proofmathisbeautiful
  22. musingsofagrumpychemist reblogged this from proofmathisbeautiful
  23. seokyoung reblogged this from proofmathisbeautiful
Blog comments powered by Disqus