1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA - Farid BELAHCENE
//
// 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 y= cell2mat(c)
// This function returns a matrix which is the result of concatenation of all components of the cell c
// Input : c, a cell. All components of c must have the same data type (strings or doubles or integers or booleans)
// Moreover all components of c must be scalar, vector or matrix
// Output : y, a matrix or a hypermatrix
// F.B
rhs = argn(2);
if rhs <> 1 then
error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"cell2mat",1));
end
if isempty(c) then
y=[]
return
else
if typeof(c) <> "ce" then //input argument must be a cell
error(msprintf(gettext("%s: Wrong type for input argument #%d: Cell expected.\n"),"cell2mat",1));
end
cecomptype=typeof(c(1).entries) //cecomptype is the type of the first component of the cell
for i=1:prod(size(c))
if typeof(c(i).entries) <> cecomptype then //all components of input cell must have the same type
error(msprintf(gettext("%s: Wrong type for input argument #%d: Same type expected for all cell contents"),"cell2mat",1));
end
end
if 0 < size(size(c),"*") & size(size(c),"*") <= 2 then //size of cell is least or equal to 2
ytemp=list(1:size(c,1));
for i=1:size(c,1)
ytemp(i)=c(i,1).entries;
for j=2:size(c,2)
ytemp(i)=[ytemp(i) c(i,j).entries];
end
if i==1 then
y=ytemp(i);
else
y=[y;ytemp(i)];
end
end
if typeof(y)=="string" then
for i=1:size(y,1)
y(i)=strcat(y(i,:))
end
y=y(:,1)
end
else //size of cell is more than 2
csize=size(c)
csizeprod=prod(csize)
ytemp=list(1:csizeprod/(size(c,1)*size(c,2)))
for l=1:csizeprod/(size(c,1)*size(c,2))
ylist=list(1:size(c,1))
for i=1:size(c,1)
ylist(i)=c(i,1,l).entries;
for j=2:size(c,2)
ylist(i)=[ylist(i) c(i,j,l).entries];
end
if i==1 then
ytemp(l)=ylist(i);
else
ytemp(l)=[ytemp(l);ylist(i)];
end
end
end
if typeof(ylist(i))=="string" then
y=[]
for l=1:csizeprod/(size(c,1)*size(c,2))
for i=1:size(ytemp(l),1)
y($+1)=strcat(ytemp(l)(i,:))
end
end
n=size(csize,"*")
ysize=[size(ytemp(1),1),csize(3:n)]
y=matrix(y,ysize)
else
n=size(csize,"*")
ysize=[size(ytemp(1)),csize(3:n)]
y=matrix(1:prod(ysize),ysize)
for l=1:csizeprod/(size(c,1)*size(c,2))
y(:,:,l)=ytemp(l)
end
end
end
end
endfunction
|
