Help my mom please... Every donation helps. This is very serious. www.gofundme.com/sbt7p7y
28 notes
·
View notes
Best if viewed on your Tumblr dashboard
Mathematica code:
P[A_, f_, w_, h_, M_, Y_, t_] :=
Plot[
Table[
A*Sin[f*x + t + n*2 Pi/w] + h*n,
{n, 1, M, 1}],
{x, 0, 4 Pi},
PlotStyle -> Directive[White, AbsoluteThickness[3]],
PlotRange -> {{0, 4 Pi}, {-.3, Y}}, Axes -> False,
AspectRatio -> 5/7, ImageSize -> {700, 500},
Background -> RGBColor[53/255, 70/255, 94/255]]
Manipulate[
ImageRotate[
P[.35, 1, 28, .6, 57, 35, t],
-Pi/2],
{t, 2 Pi, Pi/10, -Pi/10}]
19K notes
·
View notes
You know we got things to doo
22K notes
·
View notes