Anonymous user
Matrix transposition: Difference between revisions
no edit summary
No edit summary |
|||
Line 469:
--- transpose n <= map head n :: transpose (map tail n);
</lang>
=={{header|HicEst}}==
<lang hicest>REAL :: mtx(2, 4)
mtx = 1.1 * $
WRITE() mtx
SOLVE(Matrix=mtx, Transpose=mtx)
WRITE() mtx</lang>
Output:
<lang hicest>1.1 2.2 3.3 4.4
5.5 6.6 7.7 8.8
1.1 5.5
2.2 6.6
3.3 7.7
4.4 8.8 </lang>
=={{header|IDL}}==
|