I'm secretly a ninja...but shhhhh.

Thursday, September 16, 2010

Hello all. Welcome to my new blog. When you got on this blog, you probably thought that it would have more to it then some random writing here and there. You thought wrong didn't you. ;) Anyways enjoy. And there WILL definitely be more posts and more to this blog in time.
Posted by at 6:34 AM

1 comment:

  1. Pam McFadyenSeptember 16, 2010 at 7:13 PM

    You did it! This is a great start and don't worry; I enjoy random writing...

    ReplyDelete

Subscribe to: Post Comments (Atom)
F[a_, L_, r_, s_, t_] := Table[ {-(r + s*Cos[t])^n*Sin[n*a], (r + s*Cos[t])^n*Cos[n*a]}, {n, 0, L}] V := {{1.45631, 556, .995, .003}, {2.94712, 502, .998, .001}, {4.50891, 485, .9955, .0025}, {4.9367, 630, .997, .002}} Table[ ListAnimate[ Table[ Graphics[ Polygon[ F[Part[Part[V, G], 1], Part[Part[V, G], 2], Part[Part[V, G], 3], Part[Part[V, G], 4], t]], PlotRange -> 1, ImageSize -> 250], {t, 0, 2 Pi, 2 Pi/40}]], {G,1,4,1}