Infinity-Profan

Español

HofK

Infinity-Profano ermöglicht una besonders übersichtliche Arbeit con Matrizen.

siehe [...]

Dank el Möglichkeit sin extra Signo innerhalb de [ ] encima Zeilen hinweg a escribir y el Trennzeichen zwischen el Werten a verzichten, ergibt se una Darstellung "wie en el Papier" oder como en el Matrizen-Buch.

Kompilieren Marca Separación


// 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]
]

imprimir 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]
    ]
    if len(A[0])==len(B)// sólo entonces definiert
        i=0
        mientras que i < len(A)// Zeilen von A
            k=0
            mientras que k < len(B[0])// Spalten von B
                C[i][k] = 0
                j = 0
                mientras 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
        volver C
    más
        volver "NaM"// Not a Matrix
    endif
ENDPROC