d2r10.txt

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

Private Sub Command1_Click()
    'PROGRAM D2R10
    'DRIVER for routine SPLIE2
    M = 10
    N = 10
    Dim X1(10), X2(10), Y(10, 10), Y2(10, 10)
    For I = 1 To M
        X1(I) = 0.2 * I
    Next I
    For I = 1 To N
        X2(I) = 0.2 * I
    Next I
    For I = 1 To M
        For J = 1 To N
            X1X2 = X1(I) * X2(J)
            Y(I, J) = X1X2 ^ 2
        Next J
    Next I
    Call SPLIE2(X1(), X2(), Y(), M, N, Y2())
    Print
    Print Tab(5); "Second derivatives from SPLIE2"
    Print Tab(5); "Natural spline assumed"
    For I = 1 To 5
        For J = 1 To 5
            Print Format$(Y2(I, J), "0.####00"),
        Next J
        Print
    Next I
    Print
    Print Tab(5); "Actual second derivatives"
    For I = 1 To 5
        For J = 1 To 5
            Y2(I, J) = 2# * (X1(I) ^ 2)
        Next J
        For J = 1 To 5
            Print Format$(Y2(I, J), "0.####00"),
        Next J
        Print
    Next I
End Sub