error(number): converting occurrences remaining in all .sce .sci files
[scilab.git] / scilab / modules / cacsd / macros / cont_mat.sci
index 38a8756..7393bb9 100644 (file)
@@ -1,28 +1,38 @@
 // 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
+// Copyright (C) 2012 - 2016 - Scilab Enterprises
+//
+// This file is hereby licensed under the terms of the GNU GPL v2.0,
+// pursuant to article 5.3.4 of the CeCILL v.2.1.
+// This file was originally licensed under the terms of the CeCILL v2.1,
+// and continues to be available under such terms.
+// For more information, see the COPYING file which you should have received
+// along with this program.
 
-function c=cont_mat(a,b)
+function c = cont_mat(a,b)
     //c=cont_mat(a,b) or c=cont_mat(sl) is the controllability matrix.
     // of the pair a,b or of the system sl=[a,b,c,d] (syslin list)
     //                 2       n
     //i.e. c=[b, ab, ab,...; ab ]
     //!
-    [lhs,rhs]=argn(0)
+
+    [lhs,rhs] = argn(0)
     select typeof(a)
     case "constant"  then
         if rhs==1 then
             error(msprintf(gettext("%s: Wrong number of input arguments: %d expected"),"cont_mat",2)),
         end
         [m,n]=size(a)
-        if m<>n then error(20,1),end
+        if m<>n then
+            msg = _("%s: Argument #%d: Square matrix expected.\n");
+            error(msprintf(msg, "cont_mat", 1));
+        end
         [mb,nb]=size(b);
-        if mb<>n then error(60),end
+        if mb<>n then
+        msg = _("%s: Arguments #%d and #%d: Incompatible sizes.\n");
+            error(msprintf(msg, "cont_mat", 1, 2));
+        end
 
     case "state-space" then
         if rhs==2 then
@@ -32,11 +42,16 @@ function c=cont_mat(a,b)
         [n,n]=size(a)
     else
         if rhs==1 then
-            error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"cont_mat",1))
+            msg = _("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n");
+            error(msprintf(msg, "cont_mat", 1))
         else
-            error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"cont_mat",1))
+            msg = _("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n");
+            error(msprintf(msg, "cont_mat", 1))
         end
 
     end;
-    c=b;for k=1:n-1, c=[b,a*c],end
+    c = b;
+    for k = 1:n-1
+        c = [b, a*c]
+    end
 endfunction