Infinity-Profan

Italia

HofK

Infinity-Profan ermöglicht eine besonders übersichtliche Arbeit mit Matrizen.

siehe [...]

Dank der Möglichkeit ohne extra Zeichen innerhalb von [ ] circa Zeilen hinweg zu schreiben und auf das Trennzeichen zwischen den Werten zu verzichten, ergibt sich eine Darstellung "wie auf dem Papier" oder wie im Matrizen-Buch.

Kompilieren Markieren Separieren


// Multiplikation von 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)// nur dann 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"// Not a Matrix
    endif
endproc