Anonymous user
Matrix multiplication: Difference between revisions
m
→{{header|REXX}}: added comments, added whitespace. -- ~~~~
m (→{{header|REXX}}: added comments, added whitespace. -- ~~~~) |
|||
Line 2,423:
<lang rexx>/*REXX program multiplies two matrixes together, shows matrixes & result*/
x.=
x.1 = '1 2'
x.2 = '3 4'
x.3 = "5 6" /*either kind of quote works. */
x.4 = '7 8'
do r=1 while x.r\==''
do c=1 while x.r\==''; parse var x.r a.r.c x.r; end
end
Arows=r-1; Acols=c-1
y.=
y.1 = 1 2 3 /*if all values are positive, */
y.2 = 4 5 6 /*can eliminate the quotes. */
do r=1 while y.r\=='' /*build the "B" matric from Y. #s*/
do c=1 while y.r\==''; parse var y.r b.r.c y.r; end
Line 2,439:
Brows=r-1; Bcols=c-1
c.=0; L=0 /*L is max width of an element. */
do i =1 for Arows /*multiply matrix A & B
do j =1 for Bcols
do k=1 for Acols
Line 2,447:
end /*i*/
call showMat 'A', Arows, Acols
call showMat 'B', Brows, Bcols
call showMat 'C', Arows, Bcols
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────SHOWMAT subroutine──────────────────*/
| |||