Radio Shack TRS-80 Model III - Page 187

BASIC
Main program supplies values for variables
N
1
, N2 , N3 .
Within the subroutine
,
you
can assign
values to each
element
of the array
using the INPUT
statement.
660 FOR
K
=
1
TO
N3
670 PRINT
"
PAGE
" 5 K
680 FOR
I
=
1 TO Nl
690 PRINT
"INPUT
ROW
700
FOR J
=
1 TO N2
710 INPUT
A ( 1 i J » K )
720 NEXT
J
730 NEXT
I
740 PRINT:
NEXT
K
750
RETURN
Multiplication by a
Single Variable:
Scalar
Multiplication
(3
Dimensional)
780 FOR
790 FOR
K
=
i
J
=
1
800 FOR
I
=
1
810 B( Ii JiK)
=
820 NEXT I
830 NEXT
J
840 NEXT
K
850
RETURN
TO
N3
TO N2
TO Nl
:
A ( 1 1
J
i
K )
*
X
Multiplies each element in
MATRIX A by X
and constructs matrix B
Transposition of
a
Matrix
(2
Dimensional)
880 FOR
I
=
1
TO
Nl
890
FOR J
=
1
TO N2
900
B(J» I)
=
A
(
I
5 J)
910
NEXT J
920
NEXT
I
930 RETURN
Transposes
matrix
A
into matrix
B
177