t

来自「所有数理统计知识的源代码都在此,是一本数理统计数的配套光盘.里面有各种分布类型及」· 代码 · 共 17 行

Attribute VB_Name = "modCall"
Option Explicit
'计算t分布函数的下侧概率和密度函数
Sub Main()
    Dim I As Integer, TT As Double, p As Double, d As Double
    Dim sngP As Single, sngD As Single
    For I = 10 To 20 Step 5
        For TT = 1 To 6
            T_Dist I, TT, p, d
            sngP = p: sngD = d
            Debug.Print "n="; I; "   t="; TT; _
                "   下侧概率="; sngP; "   密度函数="; sngD
        Next TT
    Next I
End Sub