RosettaCodeData/Task/Matrix-transposition/HicEst/matrix-transposition.hicest

8 lines
91 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
REAL :: mtx(2, 4)
mtx = 1.1 * $
WRITE() mtx
SOLVE(Matrix=mtx, Transpose=mtx)
WRITE() mtx