mod1.bas

VB版本_SIMPLE算法和11各个算例

Attribute VB_Name = "Module2"
'*****************************************************************
'*
'*----------------- EXAMPLE ONE -----------------------------
'*
'*****************************************************************
     Sub GRID()
       LAST = 10
       LSolve(4) = True
       LPrint(4) = True
       Title(4) = " .TEMP. "
       XL = 1#
       YL = 2#
       L1 = 7
       M1 = 7
       Call UGRID
    End Sub

    Sub START()
      For j = 1 To M1
         For i = 1 To L1
             F(i, j, 4) = 0#
             If (i = 1) Or (i = L1) Or (j = 1) Or (j = M1) Then
                      F(i, j, 4) = (X(i) + Y(j) + X(i) * Y(j))
             End If
        Next i
      Next j
   End Sub

      Sub DENSE()

      End Sub

      Sub BOUND()

      End Sub

      Sub OUTPUT()
        If ITER = 0 Then
            Print #1, Space(15); "ITER"; Space(7), "T(4,4)"; Space(7); "T(5,3)"
        Else
            Print #1, Space(15); ITER, Format(F(4, 4, 4), "##.000000"), Format(F(5, 3, 4), "##.000000")
        End If
        If ITER = LAST Then Call ToPrint
      End Sub

      Sub GAMSOR()
        If ITER > 0 Then
            Exit Sub
        End If
        For j = 1 To M1
            For i = 1 To L1
                GAM(i, j) = 1#
            Next i
        Next j
      End Sub