/* /* matrix_m.c /* /* by: /* Brian Grattan /* /**********************************************************************/ #pragma SMALL #include /**********************************************************************/ void main () { while (1) { char matrix_a [3][3] = { { 1, 2, 3 }, { 4, 5, 6 }, { 7, 8, 9 } }; char matrix_b [3][3] = { { 1, 1, 1 }, { 2, 2, 2 }, { 3, 3, 3 } }; short result [3][3]; char i, j, k; char c1; short c2; short sum; for ( c1=0; c1 < 10; c1++ ) { for ( c2=1; c2 < 1000; c2++ ) { for ( i=0; i<3; i++ ) { for ( j=0; j<3; j++ ) { sum = 0; for ( k=0; k<3; k++ ) { sum = sum + ( matrix_a [i][k] * matrix_b [k][j] ); } result [i][j] = sum; } /* end j */ } /* end i */ } /* end counter2 */ P1 = c1; } /* end counter1 */ } } /* end main */