d13r12.txt

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

Private Sub Command1_Click()
    'PROGRAM D13R12
    'Driver for routine PROBKS
    Dim Text(50) As String
    Print
    Print Tab(5); "Probability func. Kolmogorov-Smirnov statistic"
    Print
    Print Tab(5); " Lambda:    Value:    Graph:"
    NPTS = 20
    EPS = 0.1
    SCALE1 = 40#
    For I = 1 To NPTS
        ALAM = I * EPS
        Value = PROBKS(ALAM)
        Text(1) = "*"
        For J = 1 To 50
            If J <= CInt(SCALE1 * Value) Then
                Text(J) = "*"
            Else
                Text(J) = ""
            End If
        Next J
        Print Tab(5); Format$(ALAM, "#.#####0");
        Print Tab(16); Format$(Value, ".###000");
        Print Tab(27);
        For J = 1 To 50
            Print Text(J);
        Next J
    Next I
End Sub