d13r5.txt

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

Private Sub Command1_Click()
     'PROGRAM D13R5
     'Driver for routine AVEVAR
     NPTS = 1000
     EPS = 0.1
     Dim DATA(1000)
     'Generate Gaussian distributed data
     IDUM& = -5
     Print
     Print Tab(5); "Shift   Average   Variance"
           For I = 1 To 11
         SHIFT = (I - 1) * EPS
         For J = 1 To NPTS
             DATA(J) = SHIFT + I * GASDEV(IDUM&)
         Next J
         Call AVEVAR(DATA(), NPTS, AVE, VAR)
         Print Tab(5); Format$(SHIFT, "#.#0");
         Print Tab(15); Format$(AVE, "#.#0");
         Print Tab(24); Format$(VAR, "#.#0")
    Next I
End Sub