TRS-SO
MODEL III
Matrix Addition
(3
Dimensional)
960
FOR
K - 1
TO
N3
970
FOR
J = 1
TO
N2
980
FOR
I = 1
TO
N1
990
C( I
.,
J'
.,
1,,\)
:::::
A( I
.,
J'
.,
~~~)
+ B( I.,
,J
.,
1,\)
1000
NEX'r
I
10 10 NEX
''I''
,J
1020
NEX"I"
~\
1
~~1:3(Z1
RETURN
Array Element-wise Multiplication
(3
Dimensional)
1060
FOR
K - 1
TO
N3
1070
FOR
J = 1
TO
N2
1080
FOR
I = 1
TO
N1
1090
C(I.,J.,K)
=
A(I.,J,K)
*
8(I.,J.,K)
1100
NEX'r I
1110
NEXT
,J
112fl.1
NEXT
~\
11
~:5rll
RE:'rUr~N
Multiplies each element in A times its corresponding element in B.
Matrix Multiplication (2 Dimensional)
1160
FOR
I = 1
TO
N1
1170
FOR
J = 1
TO
N2
:I. :I.
DiZI
C:
( I
',1
''''.1')
:::::
(If
1190
FOR
K = 1
TO
N3
1200
C(I,J)
=
C(I.,J)
+
A(I,K)
*
8(K.,J)
:1.210 NE:XT
1,\
1
:;;::~7::0
NE
XT
\.J
1230
NEX"r I
:I.
2
/
1'(ZI
RETURN
A must be an
Nl
by N3 matrix; B must be an N3 by N2 matrix. Theresultant matrix
C will be an
Nl
and N2 matrix. A, B, and C must be dimensioned accordingly,
6/6
To Next Page
Loading...
