blob: e97a1a093aacfbdd90532b8714b54a30548dc915 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
// 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.1-en.txt
function R=%ce_t(M)
D=double(M.dims)
if size(D,"*")>2 then
error(msprintf(_("%s: Wrong size for input argument #%d: Transpose can not be defined.\n"),"%ce_t",1));
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
|
