splie2.txt

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

Sub SPLIE2(X1A(), X2A(), YA(), M, N, Y2A())
    Dim YTMP(100), Y2TMP(100)
    For J = 1 To M
        For K = 1 To N
            YTMP(K) = YA(J, K)
        Next K
        Call SPLINE(X2A(), YTMP(), N, 1E+30, 1E+30, Y2TMP())
        For K = 1 To N
            Y2A(J, K) = Y2TMP(K)
        Next K
    Next J
End Sub