d13r7.txt

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

Private Sub Command1_Click()
    'PROGRAM D13R7
    'Driver for routine FTEST
    NPTS = 1000
    MPTS = 500
    EPS = 0.01
    NVAL = 10
    Dim DATA1(1000), DATA2(500), DATA3(500)
    'Generate two Gaussian distributions with
    'different variances
    IDUM& = -13
    For J = 1 To NPTS
        DATA1(J) = GASDEV(IDUM&)
    Next J
    For J = 1 To MPTS
        DATA2(J) = GASDEV(IDUM&)
    Next J
    Print
    Print Tab(5); "Variance 1 = "; 1#
    Print
    Print Tab(5); "Variance 2    Ratio   Probability"
    For I = 1 To NVAL + 1
        VAR = 1# + (I - 1) * EPS
        FACTOR = Sqr(VAR)
        For J = 1 To MPTS
            DATA3(J) = FACTOR * DATA2(J)
        Next J
        Call FTEST(DATA1, NPTS, DATA3, MPTS, F, PROB)
        Print Tab(5); Format$(VAR, "#.###0"); Tab(18); Format$(F, "#.###0");
        Print Tab(30); Format$(PROB, "#.###0")
    Next I
End Sub