"Schadenfreude"

#typofever #art #quote #likeforlike #instaaaaah #sticker

Thu, 16 May 2013 19:50:48 +0700

#typofever #art #quote #likeforlike #instaaaaah #sticker

Happy Eid Adha! (at The Grand Hill Bistro Cafe & Resort...

Fri, 26 Oct 2012 07:59:41 +0700

Happy Eid Adha! (at The Grand Hill Bistro Cafe & Resort Hotel)

Friends, fuck, fun, fake, fame, fab, farewell. Highschool would...

Sun, 14 Oct 2012 09:30:16 +0700

Friends, fuck, fun, fake, fame, fab, farewell. Highschool would never ever ends♥. (Taken with Instagram)

Photo

Sat, 13 Oct 2012 14:23:30 +0700

Photo

Sat, 13 Oct 2012 14:23:05 +0700

intothecontinuum: In July 1967, astronomers at the Cavendish...

Sat, 13 Oct 2012 14:21:52 +0700

intothecontinuum:

In July 1967, astronomers at the Cavendish Laboratory in Cambridge, observed an unidentified radio signal from interstellar space, which flashed periodically every 1.33730 seconds. This object flashed with such regularity that it was accurate enough to be used as a clock and only be off by one part in a hundred million.

It was eventually determined that this was the first discovery of a pulsar, CP-1919. This is an object that has about the same mass as the Sun, but is the size of the San Francisco Bay at its widest (~20 kilometers) that is rotating so fast that its emitting a beam of light towards Earth like a strobing light house! Pulsars are neutron stars that are formed from the remnants of a massive star when it experiences stellar death.

A hand drawn graph plotted in the style of a waterfall plot, in the Cambridge Encyclopedia of Astronomy, was later arguably more renown for its use on the cover of the album “Unknown Pleasures” by 1970s English band Joy Division.

Some even managed to point out the resemblance of this plot to some other waterfall plot gifs.

Also, July 15th was Joy Divisions singer’s, Ian Curtis, birthday!

Mathematica code:
R[n_] := (SeedRandom[n]; RandomReal[])

ListAnimate[
 Table[
  Show[
  Table[
   Plot[
    80 - m
    + .2*Sin[2 Pi*R[6*m] 
            + Sum[4*Sin[2 Pi*R[4*m] + t + R[2 n*m]*2 Pi]*
                  Exp[-(.3*x + 30 - 1*100*R[2 n*m])^2/20], 
              {n, 1, 30, 1}]]
    + Sum[3(1 + R[3*n*m])*Abs[Sin[t + R[n*m]*2 Pi]]*
          Exp[-(x - 1*100*R[n*m])^2/20],
      {n, 1, 4, 1}],
  {x, -50, 150},
   PlotStyle -> Directive[White, Thick], 
   PlotRange -> {{-50, 150}, {0, 85}}, 
   Background -> Black, Filling -> Axis, FillingStyle -> Black, Axes -> False, 
   AspectRatio -> Full, ImageSize -> {500, 630}],
 {m, 1, 80, 1}]],
{t, 0, 6.3*18/19, 6.3/19}],
AnimationRunning -> False]