d4r32.txt

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

Private Sub Command1_Click()
    'PROGRAM D4R32
    'Driver for routine PLGNDR
    Open "D:\VB常用数值算法集\DATA\FNCVAL.DAT" For Input As #1
    Do
      Line Input #1, Text$
    Loop While Text$ <> "Legendre Polynomials"
    Line Input #1, NVAL$
    NVAL = Val(NVAL$)
    Print Text$
    Print
    Print "   N     M          X          Actual       PLGNDR(N,B)"
    For I = 1 To NVAL
        Line Input #1, DUM$
        N = Val(Mid(DUM$, 1, 6))
        M = Val(Mid(DUM$, 7, 6))
        X = Val(Mid(DUM$, 13, 12))
        ACTUAL = Val(Mid(DUM$, 25))
        FAC = 1
        If M > 0 Then
            For J = N - M + 1 To N + M
                FAC = FAC * J
            Next J
        End If
        FAC = 2 * FAC / (2 * N + 1)
        ACTUAL = ACTUAL * Sqr(FAC)
        Print Tab(4); Format$(N, "#0");
        Print Tab(10); Format$(M, "#0");
        Print Tab(15); Format$(X, ".##0000E+00");
        Print Tab(29); Format$(ACTUAL, ".000000E+00");
        Print Tab(43); Format$(PLGNDR(N, M, X), ".000000E+00")
    Next I
    Close #1
End Sub