intqipmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全」· BAS 代码 · 共 50 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim m As Integer, n As Integer, i As Double, j As Double
    Dim u As Double, v As Double, w As Double
    Dim str As String
    
    ' x方向结点数
    n = 6
    
    ' y方向结点数
    m = 5
    
    ' 分配内存
    ReDim x(n) As Double, y(m) As Double, z(n, m) As Double
        
    ' 结点的值与结点的函数值
    For i = 1 To n
        x(i) = 0.2 * (i - 1)
    Next i
    
    For j = 1 To m
        y(j) = 0.25 * (j - 1)
    Next j
    
    For i = 1 To n
        For j = 1 To m
            z(i, j) = Exp(-(x(i) - y(j)))
        Next j
    Next i
    
    ' 待插值点的值
    u = 0.9
    v = 0.8
    ' 插值
    w = INTqip(n, m, x, y, z, u, v)
    str = str & "z(" & u & ", " & v & ") = " & w & Chr(13)
    
    ' 待插值点的值
    u = 0.3
    v = 0.9
    ' 插值
    w = INTqip(n, m, x, y, z, u, v)
    str = str & "z(" & u & ", " & v & ") = " & w
        
    MsgBox str
    
End Sub