Tuesday, August 3, 2010

Mathematica code

f[n_, x_] := Abs[((1/Pi)^(1/4) Sin[ x])]^2;

Plot[Evaluate@
    Table[f[n, x] + n + 1/2, {n, 0, 7}], {x, -4, 4},
 Filling -> Table[n -> n - 1/4, {n, 1, 8}]]

No comments:

OK GOOGLE on Samsung Galaxy S7 doesn’t work

To make Ok Google detection work on Galaxy S7 (Galaxy series phones) we need to perform a couple of steps. 1. As long as Samsung S vo...