XProfan

Italia

p.specht

Zweck: Soll später als Timing-Vergleichsbasis per Beschleunigungs-Verfahren dienen, etwa zur Beurteilung, ob sich dieses physische Umordnen im Speicher per Assembler-bescheunigte Varianten zeitmäßig überhaupt lohnt...

Kompilieren Markieren Separieren

WindowTitle "XProfan-11.2a: Transponierte einer n,m-Matrix erstellen"
WindowStyle 24:Window 0,0-%maxx,%maxy:cls:randomize
set("decimals",0):set("numwidth",4)
declare n&,m&,tm&,i&,j&
n&=20'Zeilen
m&=20'Spalten
Declare M![n&-1,m&-1]
M![]=&index

if (n&<21) and (m&<21)

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            print M![i&,j&],
            endwhile:print

        endwhile

    endif

    tm&=&gettickcount
    Declare M°![m&-1,n&-1]

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            M°![j&,i&]=M![i&,j&]

        endwhile

    endwhile

    tm&=&gettickcount-tm&
    font 2:print "\n ";tm&,"ms\n":font 0

    if (m&<21) and (n&<21)

        waitinput 1000

        whileloop 0,m&-1:j&=&Loop

            whileloop 0,n&-1:i&=&Loop

                print M°![j&,i&],
                endwhile:print
                endwhile:case j&<(m&-1):print

            endif

            beep
            waitinput
            End