Hola Seoane
Ahí pongo algo de código
Código:
Type Tmatriz1 = array[1..16,1..16] of Real; // Aquí defino la matriz
Código:
Theta := Angulo1 ( Gxx, Gyy, Gxy ); // En esta función se obtiene un determinado ángulo
Angulos[(((Alto+Bloque-1) div Bloque), ((Ancho-1) div Bloque)] := Theta; //Aquí le asigno el valor a la matriz
y luego la llamo por parámetros por el código que ya puse