![]()  | 
	
		![]()  | 
	
		![]()  | 
	
		![]()  | 
	
		![]()  | 
	
		![]()  | 
	
		![]()  | 
Berechnung des Wertes der Dichtefunktion:
Remove["Global`*"] Needs["Statistics`Master`"] n:= (* Zahl der Freiheitsgrade *) verteil=StudentTDistribution[n] x:= PDF[verteil,x]
Berechnung des Wertes der Verteilungsfunktion:
Remove["Global`*"] Needs["Statistics`Master`"] n:= (* Zahl der Freiheitsgrade *) verteil=StudentTDistribution[n] x:= CDF[verteil,x]
Berechnung des Percentils 
:
Remove["Global`*"] Needs["Statistics`Master`"] n:= (* Zahl der Freiheitsgrade *) verteil=StudentTDistribution[n] (* Irrtumswahrscheinlichkeit *) fx:= Quantile[verteil,fx]