ILMARI LEHTINEN

ILMARI LEHTINEN

2
Followers
0
Following
ILMARI LEHTINEN
More ideas from ILMARI
Play by Jordan Kauffman

Play by Jordan Kauffman

Apple Computers, Apple Products, Product Design, Macbook, Industrial Design, Apples, Electronics, Ipad, Chubby Girl, Technology, Macbooks, Apple, Consumer Electronics

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[Black, AbsoluteThickness[3]],   PlotRange -> {{0, 4 Pi}, {-.3, Y}}, Axes -> False,  AspectRatio -> 5/7, ImageSize -> {700, 500}]Manipulate[ ImageRotate[  P[.35, 1, 28, .6, 57, 35, t],  -Pi/2], {t, 2 Pi, Pi/10, -Pi/10}]

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[Black, AbsoluteThickness[3]], PlotRange -> {{0, 4 Pi}, {-.3, Y}}, Axes -> False, AspectRatio -> 5/7, ImageSize -> {700, 500}]Manipulate[ ImageRotate[ P[.35, 1, 28, .6, 57, 35, t], -Pi/2], {t, 2 Pi, Pi/10, -Pi/10}]