XProfan

English

p.specht

Speicherverwaltung dreidimensionaler Matrizen:

XProfan (V. 11.2a) functions with the "Am-Stück"-Speicherverwaltung only for static declared lists and Matrizen with of vorneherein definierter Size. then but can itself sure grab, if one The Indexverwaltung (and the Speicherbedarf for a Einzelelement) correctly. einsetzt.

for a later Umsetzung in Assembler moreover The nachstehende small investigation.

Compile Mark Separation

Window Title "Studie: memory- and Zugriffsorganisation"+\
"auf dreidimensionale Matrizen (a.k.a. Tensoren)"
Cls:randomize
'Speicherbedarf one Einzelwertes (XProfan):
var SB&=8'double precision Floatingpoint: 8 byte
'Stellenzahlen
var xm&=2
var ym&=2
var zm&=2
declare x&,y&,z&, M![xm&-1,ym&-1,zm&-1]
M![]=&index'rnd()
print
print "Händisch for M[x,y,z]:"
print M![0,0,0],M![0,0,1],"    ",M![0,1,0],M![0,1,1]
print M![1,0,0],M![1,0,1],"    ",M![1,1,0],M![1,1,1]
print
print "Vereinfacher x-Komponentenaufruf:"
print M![0]
print M![1]
print
print "Linear programmierter appeal:"

Whileloop 0,zm&-1:z&=&Loop

    Whileloop 0,ym&-1:y&=&Loop

        whileloop 0,xm&-1:x&=&Loop

            print float( addr(M![0]),SB&*(x& * ym&*zm& + y& *zm& + z&)),
            EndWhile:print "    ";
            Endwhile:print
            Endwhile:print
            waitinput