d10r1.txt

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

Private Sub Command1_Click()
    'PROGRAM D10R1
    'Driver for routine SCRSHO
    Print Tab(5); "Graph of the Bessel Function J0:"
    Print Tab(5)
    Call SCRSHO(DUM)
End Sub
Function FUNC(X)
    FUNC = BESSJ0(X)
End Function