Optimization: let tests pass
[scilab.git] / scilab / modules / optimization / macros / %mps_string.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2011 - DIGITEO - Michael Baudin
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13 //
14 // %mps_string --
15 //   Returns the string containing the MPS component.
16 //
17 function str = %mps_string ( this )
18     str = []
19     k = 1
20     str(k) = sprintf("MPS Object:\n")
21     k = k + 1
22     str(k) = sprintf("===========")
23     k = k + 1
24     str(k) = ""
25     k = k + 1
26     str(k) = sprintf("irobj: %s\n", _tostring(this.irobj));
27     k = k + 1
28     str(k) = sprintf("namec: %s\n", _tostring(this.namec));
29     k = k + 1
30     str(k) = sprintf("nameb: %s\n", _tostring(this.nameb));
31     k = k + 1
32     str(k) = sprintf("namran: %s\n", _tostring(this.namran));
33     k = k + 1
34     str(k) = sprintf("nambnd: %s\n", _tostring(this.nambnd));
35     k = k + 1
36     str(k) = sprintf("name: %s\n", _tostring(this.name));
37     k = k + 1
38     str(k) = sprintf("rownames: %s\n", _tostring(this.rownames));
39     k = k + 1
40     str(k) = sprintf("colnames: %s\n", _tostring(this.colnames));
41     k = k + 1
42     str(k) = sprintf("rowstat: %s\n", _tostring(this.rowstat));
43     k = k + 1
44     str(k) = sprintf("rowcode: %s\n", _tostring(this.rowcode));
45     k = k + 1
46     str(k) = sprintf("colcode: %s\n", _tostring(this.colcode));
47     k = k + 1
48     str(k) = sprintf("rownmbs: %s\n", _tostring(this.rownmbs));
49     k = k + 1
50     str(k) = sprintf("colpnts: %s\n", _tostring(this.colpnts));
51     k = k + 1
52     str(k) = sprintf("acoeff: %s\n", _tostring(this.acoeff));
53     k = k + 1
54     str(k) = sprintf("rhs: %s\n", _tostring(this.rhs));
55     k = k + 1
56     str(k) = sprintf("ranges: %s\n", _tostring(this.ranges));
57     k = k + 1
58     str(k) = sprintf("bounds: %s\n", _tostring(this.bounds));
59     k = k + 1
60     str(k) = sprintf("stavar: %s\n", _tostring(this.stavar));
61     k = k + 1
62 endfunction
63
64 //
65 // _strvec --
66 //  Returns a string for the given vector.
67 //
68 function str = _strvec ( x )
69     if isempty(x) then
70         str = "";
71         return
72     end
73     str = strcat(string(x)," ")
74 endfunction
75 function s = _tostring ( x )
76     if ( x==[] ) then
77         s = "[]"
78     else
79         n = size ( x , "*" )
80         if ( n == 1 ) then
81             s = string(x)
82         else
83             [nr,nc] = size(x)
84             tx = typeof(x)
85             s = msprintf("%d-by-%d %s matrix",nr,nc,tx)
86         end
87     end
88 endfunction
89
90
91