Radio Shack TRS-80 Model III - Page 188

1
TRS-80
MODEL
III
Matrix
Addition
(3
Dimensional)
960
FOR
K
=
1 TO
N3
970
FOR
J
=
1 TO
N2
9£30 FOR
I
=
1
TO Nl
990
C( I»Jj
-
K)
=
A(I»J»K)
1000
NEXT
I
1010
NEXT
J
1020
NEXT
K
1030 RETURN
+
B( I
5 J
» K)
Array
Element-wise
Multiplication
(3
Dimensional)
1060 FOR
K
=
1
TO
N3
FOR
J
=
1
TO N2
FOR
I
=
1
TO Nl
1070
1080
1090
1100
1
1 1
1120
1130
C < 1
1
J
i K )
NEXT
I
NEXT
J
NEXT
K
RETURN
A
(
I
»
J
,
K
)
*
B
( I » J »
K )
Multiplies
each
element
in A times
its
corresponding
element
in B
.
Matrix
1
1 60
1170
1 1 8@
1190
1200
1210
1220
1230
1240
Multiplication
(2
Dimensional)
FOR
I
=
1
TO
Nl
FOR
J
=
1
TO
N2
FOR
K
=
C( I»J)
NEXT
K
NEXT
J
NEXT
I
RETURN
1
TO
N3
=
C
( I » J )
+ A
(
1
5
K
)
*
B
( K 5
J )
A must
be an
N
1
by
N3 matrix;
B must be an
N3 by
N2 matrix.
The resultant
matrix
C
will
be an
N
1
and
N2 matrix
.
A
, B ,
and
C
must
be dimensioned
accordingly
.
178