FT_cviceni_2 (24.9.2013)
-----------------------------------
RandomReal[{0, 3}, 10]
a = RandomReal[{0, 3}, 100000];
Histogram[a]
b = RandomReal[{0, 3}, 100000];
Histogram[a + b]
c = RandomReal[{0, 3}, 100000];
Histogram[a + b+ c]
-----------------------------------
b = Integrate[ 1/Pi t Sin[n t], {t, 0, 2 Pi}]
Simplify[b, Assumptions -> Element[n,Integers]]
Simplify[b, Assumptions -> n \[Element] Integers]
-----------------------------------
f[n_, t_] := Pi - 2*Sum[Sin[k*t]/k, {k, 1, n}]
Plot[f[20, t], {t, -10, 10}]
Table[ Plot[f[n, t], {t, -10, 10}], {n, 10}]
Manipulate[ Plot[f[n, t], {t, -10, 10}], {n, 1, 20, 1}]
-----------------------------------





