stud | student gifs | hentaichastity
intothecontinuum:   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]],