!
Real Function T_Dist (x, df)
Real :: x, df
! Tinh xac suat P(|X|>x) voi X co phan bo Student(df) - df so bac tu do
  T_Dist=betai(0.5*df,0.5,df/(df+x**2))
End Function T_Dist
!----------------------------------------