RandomInteger[100,10]

%

In[1]

In[1]

f:= RandomInteger[100,10]

f

f

Mean[f]

Mean[f]

f2:=N[Mean[f]]

f2

f2

f2

f[i]

ff[i_]:=Mean[f]

ff[1]

N[Array[ff,10]]

ga[x_]:= Exp[-x^2/2]/Sqrt[2 Pi]

Integrate[x^2 ga[x],{x,-Infinity,Infinity}]

I^2

Integrate[Exp[I w ga[x]],{x,-Infinity,Infinity}]

Integrate[l Exp[-l x] Exp[I w x], {x, 0,Infinity}]

D[%,w]

%/. w->0

Plot[n!/(k! (n-k)!) .2^k .8^(n-k), {k,0,n}]

Manipulate[(Plot[n!/(k! (n-k)!) .2^k .8^(n-k), {k,0,n}]),{n,1,100}]