XProfan

Español

p.specht

Speicherverwaltung dreidimensionaler Matrizen:

XProfan (V. 11.2a) funktioniert con el "Am-Stück"-Speicherverwaltung sólo para statisch deklarierte Listen y para Matrizen con de vorneherein definierter Größe. Dann aber lässt se sicher zugreifen, si uno el Indexverwaltung (y el Speicherbedarf para una Einzelelement) correcto einsetzt.

Für una spätere Umsetzung en Ensamblador dazu el nachstehende kleine Studie.

Kompilieren Marca Separación

Título de la ventana "Studie: Speicher- y Zugriffsorganisation"+\
"auf dreidimensionale Matrizen (a.k.a. Tensoren)"
Cls:randomize
'Speicherbedarf uno Einzelwertes (XProfan):
var SB&=8'Double precision Floatingpoint: 8 Byte
'Stellenzahlen
var xm&=2
var ym&=2
var zm&=2
declarar x&,y&,z&, M![xm&-1,ym&-1,zm&-1]
M![]=&index'rnd()
imprimir
imprimir "Händisch para M[x,y,z]:"
imprimir M![0,0,0],M![0,0,1],"    ",M![0,1,0],M![0,1,1]
imprimir M![1,0,0],M![1,0,1],"    ",M![1,1,0],M![1,1,1]
imprimir
imprimir "Vereinfacher x-Komponentenaufruf:"
imprimir M![0]
imprimir M![1]
imprimir
imprimir "Linear programmierter Aufruf:"

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

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

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

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