d2r11.txt

常用的数值算法的VB程序

Private Sub Command1_Click()
    'PROGRAM D2R11
    'DRIVER for routine SPLIN2
    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 * Exp(-X1X2)
        Next J
    Next I
    Call SPLIE2(X1(), X2(), Y(), M, N, Y2())
    Print
    Print Tab(5); "  X1         X2          SPLIN2        ACTUAL"
    For I = 1 To 10
        XX1 = 0.1 * I
        XX2 = XX1 ^ 2
        Call SPLIN2(X1(), X2(), Y(), Y2(), M, N, XX1, XX2, F)
        X1X2 = XX1 * XX2
        FF = X1X2 * Exp(-X1X2)
        Print Tab(3); Format$(XX1, "0.###000"),
        Print Format$(XX2, "0.###000"),
        Print Format$(F, "0.###000"),
        Print Format$(FF, "0.###000")
    Next I
End Sub