d13r11.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 26 行

Private Sub Command1_Click()
    'PROGRAM D13R11
    'Driver for routine KSTWO
    N1 = 2000
    N2 = 1000
    EPS = 0.1
    Dim DATA1(2000), DATA2(1000)
    IDUM& = -1357
    For J = 1 To N1
        DATA1(J) = GASDEV(IDUM&)
    Next J
    Print
    Print Tab(5); "Variance Ratio    K-S Statistic   Probability"
    IDUM = -2468
    For I = 1 To 11
        Var = 1# + (I - 1) * EPS
        FACTR = Sqr(Var)
        For J = 1 To N2
            DATA2(J) = FACTR * GASDEV(IDUM&)
        Next J
        Call KSTWO(DATA1(), N1, DATA2(), N2, 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