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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ???? - INRIA - Scilab
//
// 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=mstr2sci(x)
// Conversion of a Matlab format string into a Scilab string
// In Matlab : 'string' has size [1 6]
// In Scilab : 'string' has size [1 1]
// This function solves this problem by converting a string into a character matrix
// Ex : 'string' is converted into ['s' 't' 'r' 'i' 'n' 'g']
if type(x)==17 then
error(msprintf(gettext("%s: This feature has not been implemented: Support for hypermatrices.\n"),"mstr2sci"));
return
end
if type(x)<>10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: Matrix of strings expected.\n"),"mstr2sci", 1));
return
end
nr=size(x,1);
nc=max(length(x));
y=[]
for k=1:nr
x(k,:)=strcat(x(k,:));
nc=max(length(x(k,:)));
tmp = ascii(x(k,:));
for l=1:nc
y(k,l)=ascii(tmp(l));
end
end
endfunction
|
