submat.sml

################################################################
# SubMatrix (matrixOut, matrixLeft, matrixRight)
################################################################

clear();
class MATRIX h1, h2, h3;

h1 = CreateMatrix(2,2);	# create three matrices
h2 = CreateMatrix(2,2);
h3 = CreateMatrix(2,2);
# fill the matrices with some values
numeric r, c;
for r = 0 to 1 {
	for c = 0 to 1 {
		SetMatrixItem( h1, r, c, r + c );
		SetMatrixItem( h2, r, c, (r + c) * 2 );
		SetMatrixItem( h3, r, c, (r + c) * 3 );
		}
	}
SubMatrix(h3, h1, h2 ); # now add h1 to h2, result is h3
printf( "subtract h2 from h1\n" );
PrintMatrixToConsole(h3);

# destroy the matrices
DestroyMatrix(h1);
DestroyMatrix(h2);
DestroyMatrix(h3);