Anonymous user
Matrix transposition: Difference between revisions
→{{header|PL/I}}
(Add Factor.) |
|||
Line 675:
=={{header|PL/I}}==
<lang PL/I>
/* The short method: */
declare A(m, n) float, B (n,m) float defined (A(2sub, 1sub));
/* Any reference to B gives the transpose of matrix A. */
</lang>
Traditional method:
<lang>
/* Transpose matrix A, result at B. */
transpose: procedure (a, b);
| |||