% Plots of useful distributions

n = 200;

x=(-4:8/n:4)';
y = normpdf(x);
plot(x,y);
xlabel('x');
ylabel('f(x)');
title('Standard Normal Distribution')
pause

y = [tpdf(x,1) tpdf(x,3) tpdf(x,5) tpdf(x,10)];
plot(x,y);
xlabel('x');
ylabel('f(x)');
legend('1 d.f.','3 d.f.','5 d.f.','10 d.f.')
title('t Distribution')
pause

x= (0 : 20/n : 20)';
y= [chi2pdf(x,4) chi2pdf(x,2) chi2pdf(x,6) chi2pdf(x,8)];
plot(x,y);
xlabel('x');
ylabel('f(x)');
legend('2 d.f.','4 d.f.','6 d.f.','8 d.f.')
title('Chi-Squared Distribution')
pause

x= (0 : 5/n : 5)';
y= [fpdf(x,5,2) fpdf(x,8,4) fpdf(x,4,8) fpdf(x,2,5)];
plot(x,y);
xlabel('x');
ylabel('f(x)');
legend('5,2 d.f.','8,4 d.f.','4,8 d.f.','2,5 d.f.')
title('F Distribution')
