c-l-battle

some things i like.
some other things:
http://www.cbattle.com/
https://vimeo.com/user4544284
https://soundcloud.com/battlec
http://www.nothingto-seehere.com/

visualizingmath:

ted:

What do leopard spots, striped marine angelfish, and sand dune ripples have in common? Their patterns are self-organizing Turing systems! Discovered by Alan Turing in the 1950s, these repeating natural patterns can be created by the interaction of two things that spread at different speeds, one faster than the other.

I knew that name was familiar! Alan Turing is quite an interesting person. Wikipedia lists him as “a British mathematician, logician, cryptanalyst, philosopher, computer scientist, mathematical biologist, and marathon and ultra distance runner”! Furthermore, “Winston Churchill said that Turing made the single biggest contribution to Allied victory in the war against Nazi Germany” cracking codes! Read about him!

christina battle

"it was over in minutes" [May 31, 2014]  from The Hex is On (an ongoing project)

visualizingmath:

accidental-aRt:

Many recursive calls to polygon() to generate pseudo-gouraud shaded triangles.

I saw this post as I was studying for my AP comp sci test. What unit are we on? Recursion.

visualizingmath:

accidental-aRt:

Many recursive calls to polygon() to generate pseudo-gouraud shaded triangles.

I saw this post as I was studying for my AP comp sci test. What unit are we on? Recursion.

4 months ago

visualizingmath:

intothecontinuum:

There is something special about rotations of 137.5 degrees.

This is an attempt at replicating Seeds by Jared Tarbell of Levitated and Complexification.

Mathematica code:

d[x_, y_, r_, c_, s_, F_, n_] :=
{Disk[
RotationTransform[n*2.4][{x*c^n, y}], r*c^n],
Table[
{White,
Disk[
RotationTransform[k*2 Pi/F, RotationTransform[n*2.4][{x*c^n, y}]]
[RotationTransform[n*2.4][{x*c^n, y}] + c^n {r - s, 0}], s*c^n]},
{k, 0, F - 1, 1}]}

Manipulate[
ImageCrop[
Graphics[
Table[
d[3, 0, 1 - .1*Sin[t + n*Pi/110]^2, 1.025, .03, 24, n],
{n, 0, 110, 1}],
PlotRange -> 30, Background -> Black, ImageSize -> 700],
{500, 700}],
{t, 0, 39 Pi/40, Pi/40}]

Manipulate[[
ImageCrop[
Graphics[
Table[
d[3, 0, 1 - .1*Sin[t*3 Pi/40 + n*2 Pi/110]^2, 1.025, .03, 24, n],
{n, If[t < 66 , 0, 2 (t - 65)], If[t < 56, 2 t, 110], 1}],
PlotRange -> 30, Background -> Black, ImageSize -> 700],
{500, 700}],
{t, 0, 120, 1}]

I think this is my third time reblogging this over the past year. Everyone needs to see it! 

I love this