poi=PoissonDistribution[λ]

PDF[poi,k]

Mean[poi]

Variance[poi]

λ=4

PDF[poi,1]//N

tab2=Array[www,21];

Do[www[i+1]=PDF[poi,i],{i,0,20}]

tab2//N

Needs["BarCharts`"]

BarChart[tab2]

nnd=NormalDistribution[]

Mean[nnd]

Variance[nnd]

nnd=NormalDistribution[μ,σ]

PDF[nnd,x]

densityN[x_,ni_,sigma_]:=PDF[NormalDistribution[ni,sigma],x]

Do[gr[i]=Plot[densityN[t,0,i],{t,-10,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->False],{i,1,5}]

Show[Table[gr[i],{i,1,5}]]

Manipulate[gr[i]=Plot[densityN[t,i,1],{t,-3,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->{True,False}],{i,1,5}]

Manipulate[gr[i]=Plot[densityN[t,0,i],{t,-10,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->True],{i,1,5}]

distribN[x_,ni_,sigma_]:=CDF[NormalDistribution[ni,sigma],x]

Do[gr[i]=Plot[distribN[t,i,1],{t,-3,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->True],{i,1,5}]

Show[Table[gr[i],{i,1,5}]]

Manipulate[gr[i]=Plot[distribN[t,i,1],{t,-3,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->True],{i,1,5}]

ni=0.25;
sigma=0.05;
nd=NormalDistribution[ni,sigma]

1-CDF[nd,0.23]

CDF[nd,0.26]-CDF[nd,0.245]

CDF[nd,0.22]

CDF[nd,0.22]-CDF[nd,0]

Quantile[NormalDistribution[0.25,0.25],0.9]

(* ULOHA1 *)
distribN[x_,ni_,sigma_]:=CDF[NormalDistribution[ni,sigma],x]
Manipulate[gr[i]=Plot[distribN[t,0,i],{t,-10,10},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->True],{i,1,5}]

(* ULOHA 2 *)
ni=120;
sigma=15;
nd=NormalDistribution[ni,sigma]

CDF[nd,100]//N

CDF[nd,130]-CDF[nd,100]//N

1-CDF[nd,135]//N

(* ULOHA 3 *)

ni=8
sigma=2;
nd=NormalDistribution[ni,sigma]

CDF[nd,7.5]//N

CDF[nd,9]-CDF[nd,7]//N

1-CDF[nd,10]//N

(* ULOHA 4 *)

ni=13.2;
sigma=1.5;
nd=NormalDistribution[ni,sigma];

CDF[nd,14]-CDF[nd,13]//N

1-CDF[nd,13]//N

Quantile[nd,0.05]