1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
function R=%st_t(M)
D=double(M.dims)
if size(D,'*')>2 then
error('Transpose not defined')
end
NewInd=matrix(matrix(1:prod(D),D)',1,-1)
F=getfield(1,M)
R=mlist(F,int32([D(2) D(1)]))
for k=3:size(F,'*')
v=getfield(k,M)
setfield(k,list(v(NewInd)),R)
end
endfunction
|
