THE t-DISTRIBUTION

> restart;

> with(plots):

> pdf := TPDF(nu,x);

> animate(pdf, x=-5..5, nu=1..10, color=blue,thickness=3);

> T := TPDF(1, x):

> N := NormalPDF(0,1,x):

> plot({N,T}, x=-5..5,thickness=3);

> t := TPDF(nu,x):

> n := NormalPDF(0,1,x):

> animate({n,t},x=-5..5,nu = 1..16, color=blue,thickness=3);

>

>