d11r5.frm

方程组的矩阵解法

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4245
   LinkTopic       =   "Form1"
   ScaleHeight     =   3645
   ScaleWidth      =   4245
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   2520
      TabIndex        =   0
      Top             =   3120
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
     'PROGRAM D11R5
     '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
Sub AVEVAR(DATA(), N, AVE, VAR)
    AVE = 0#
    VAR = 0#
    For J = 1 To N
        AVE = AVE + DATA(J)
    Next J
    AVE = AVE / N
    For J = 1 To N
        S = DATA(J) - AVE
        VAR = VAR + S * S
    Next J
    VAR = VAR / (N - 1)
End Sub
   Function GASDEV(IDUM)
      Static ISET, GSET
      If ISET = 0 Then
        Do
          Randomize
          V1 = 2# * Rnd - 1#
          V2 = 2# * Rnd - 1#
          R = V1 ^ 2 + V2 ^ 2
        Loop While R >= 1# Or R = 0
        FAC = Sqr(-2# * Log(R) / R)
        GSET = V1 * FAC
        GASDEV = V2 * FAC
        ISET = 1
      Else
        GASDEV = GSET
        ISET = 0
      End If
   End Function