RosettaCodeData/Task/Matrix-transposition/HicEst/matrix-transposition.hicest
2015-02-20 00:35:01 -05:00

7 lines
91 B
Text

REAL :: mtx(2, 4)
mtx = 1.1 * $
WRITE() mtx
SOLVE(Matrix=mtx, Transpose=mtx)
WRITE() mtx