d7r11.txt

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

Private Sub Command1_Click()
    'PROGRAM D7R11
    'Driver for routine ECLAZZ
    N = 15
    Dim NF(15), NFLAG(15), NSAV(15)
    Call ECLAZZ(NF(), N)
    Print "NF(I)=, (I=1,N)"
        For I = 1 To N
        Print Tab(1 + (I - 1) * 4); NF(I);
    Next I
    Print
    For I = 1 To N
        NFLAG(I) = 1
    Next I
    Print
    Print "Numbers from 1-15 divided according to"
    Print
    Print "their value modulo 4:"
    Print
    LCLAS = 0
    For I = 1 To N
        NCLASS = NF(I)
        If NFLAG(NCLASS) <> 0 Then
            NFLAG(NCLASS) = 0
            LCLAS = LCLAS + 1
            K = 0
            For J = 1 To N
                If NF(J) = NF(I) Then
                    K = K + 1
                    NSAV(K) = J
                End If
            Next J
            Print "Class"; LCLAS; ":  ";
            For J = 1 To K
                Print Format$(NSAV(J), "##0"); "  ";
            Next J
            Print
        End If
    Next I
End Sub
Function EQUIV(I, J)
    EQUIV = 0
    If (I Mod 4) = (J Mod 4) Then EQUIV = -1
End Function