Matrix transposition: Difference between revisions
Content added Content deleted
| Line 316: | Line 316: | ||
/* transpose */ |
/* transpose */ |
||
TA=0,{nCols,nRows} nan array(TA) |
TA=0,{nCols,nRows} nan array(TA) |
||
Limit = nRows |
|||
{nRows}gthan(nCols) do{ Limit = nCols } |
|||
for (i=1, {i} lethan (Limit), ++i) |
|||
[i,i:end]get(A), [i:end,i]put(TA) |
[i,i:end]get(A), [i:end,i]put(TA) |
||
[i:end,i]get(A), [i,i:end]put(TA) |
[i:end,i]get(A), [i,i:end]put(TA) |
||
next |
next |
||
clear mark |
|||
{"ARRAY TRANSPOSE:\n",TA}println |
{"ARRAY TRANSPOSE:\n",TA}println |
||
_show array data(TA) |
_show array data(TA) |
||
exit(0) |
exit(0) |
||