Infinity-Profan

Français

HofK

Infinity-Profan permet une besonders übersichtliche travail avec Matrizen.

siehe [...]

Dank qui Possibilité sans extra marque dedans de [ ] sur Zeilen hinweg trop écrivons et sur cela Trennzeichen entre den Werten trop verzichten, ergibt sich une représentation "wie sur dem Papier" ou bien comment im Matrizen-livre.

Kompilieren Marque Séparation


// Multiplikation de Matrizen
A1 = [
[ 5  7  9]
[ 2  3  0]
[ 2  0 12]
[11  1  1]
]
B1 = [
[10 2 0 0 1]
[ 3 0 1 0 1]
[ 1 2 1 4 1]
]

imprimer mmul A1 B1
//--------------------------------------------

proc mmul A B
    C = [          // Vorbelegung 
    [0 0 0 0 0]
    [0 0 0 0 0]
    [0 0 0 0 0]
    [0 0 0 0 0]
    ]
    si len(A[0])==len(B)// seulement ensuite défini
        i=0
        tandis que i < len(A)// Zeilen von A
            k=0
            tandis que k < len(B[0])// Spalten von B
                C[i][k] = 0
                j = 0
                tandis que j < len(A[0])// Zeile A * Spalte B
                    C[i][k] = C[i][k] + A[i][j]*B[j][k]
                    j++
                Wend
                k++
            Wend
            i++
        Wend
        return C
    d'autre
        return "NaM"// Not a Matrix
    endif
endproc