d13r3.txt

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

Private Sub Command1_Click()
    'PROGRAM D13R3
    'Driver for routine MDIAN2
    NPTS = 50
    Dim DATA(50)
    IDUM& = -5
    For I = 1 To NPTS
        DATA(I) = GASDEV(IDUM&)
    Next I
    Call MDIAN2(DATA(), NPTS, XMED)
    Print
    Print Tab(5); "Gaussian distrib., zero mean, unit variance"
    Print
    Print Tab(5); "Median according to MDIAN2 is   ";
    Print Format$(XMED, "#.#####0")
    Call MDIAN1(DATA(), NPTS, XMED)
    Print Tab(5); "Median according to MDIAN1 is   ";
    Print Format$(XMED, "#.#####0")
End Sub