d13r10.txt

常用的数值算法的VB程序

Private Sub Command1_Click()
    'PROGRAM D13R10
    'Driver for routine KSONE
    NPTS = 1000
    EPS = 0.1
    Dim DATA(1000)
    IDUM& = -5
    Print
    Print Tab(5); "Variance Ratio   K-S Statistic   Probability"
    For I = 1 To 11
        Var = 1# + (I - 1) * EPS
        FACTR = Sqr(Var)
        For J = 1 To NPTS
            DATA(J) = FACTR * Abs(GASDEV(IDUM&))
        Next J
        Call KSONE(DATA(), NPTS, D, PROB)
        Print Tab(8); Format$(Var, "#.#####0");
        Print Tab(23); Format$(D, "#.#####0");
        Print Tab(39); Format$(PROB, ".###0E+00")
    Next I
End Sub
Function FUNC(X)
    Y = X / Sqr(2#)
    FUNC = ERF(Y)
End Function