Infinity-Profan

English

HofK

Infinity-Profan allows a particularly übersichtliche work with Matrizen.

Thanks the Possibility without extra characters within [ ] over Lines away To write and the Separator between whom Values To dispense, yields itself a statement "wie on the Papier" or How in the Matrizen-book.

Compile Mark Separation


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

print 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)// only then definiert
        i=0
        while i < len(A)// Zeilen von A
            k=0
            while k < len(B[0])// Spalten von B
                C[i][k] = 0
                j = 0
                while 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
    else
        return "NaM"// hardship a Matrix
    endif
endproc