d13r2.txt

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

Private Sub Command1_Click()
    'PROGRAM D13R2
    'Driver for routine MDIAN1
    NPTS = 50
    Dim DATA(50)
    IDUM& = -5
    For I = 1 To NPTS
        DATA(I) = GASDEV(IDUM&)
    Next I
    Call MDIAN1(DATA(), NPTS, XMED)
    Print
    Print Tab(5); "Gaussian distrib., zero mean, unit variance"
    Print
    Print Tab(5); "Median of data set is   "; Format$(XMED, "###.######")
    Print
    Print Tab(5); "Sorted data"
    Print
    For I = 1 To 10
        J = (I - 1) * 5
        Print Tab(5); Format$(DATA(J + 1), "#.#####0");
        Print Tab(18); Format$(DATA(J + 2), "#.#####0");
        Print Tab(31); Format$(DATA(J + 3), "#.#####0");
        Print Tab(44); Format$(DATA(J + 4), "#.#####0");
        Print Tab(57); Format$(DATA(J + 5), "#.#####0")
    Next I
End Sub