Fix calls with two input arguments 83/15583/2
Serge STEER [Mon, 24 Nov 2014 08:48:13 +0000 (09:48 +0100)]
Change-Id: I32ed0cd558f8e022a043196eebac9c42900e2123

scilab/modules/cacsd/macros/pfss.sci

index 41f1a70..9f9b2f2 100644 (file)
@@ -23,8 +23,12 @@ function elts = pfss(S, rmax, cord)
         rmax = [];
         cord = [];
     case 2 then
-        if type(rmax) == 10 then cord = rmax; end
-        if type(rmax) == 1 then cord = []; end
+        if type(rmax) == 10 then
+            cord = rmax;
+            rmax=[];
+        elseif type(rmax) == 1 then
+            cord = [];
+        end
     end
 
     if and(typeof(S) <> ["rational", "state-space"]) then
@@ -40,7 +44,7 @@ function elts = pfss(S, rmax, cord)
     [f, g, h, dd, dom] = S([2:5, 7]);
     [n, n] = size(f);
     if rmax == [] then
-        [f, x, bs] = bdiag(f);
+        [f, x, bs] = bdiag(f,max(100,norm(f,1));
     else
         [f, x, bs] = bdiag(f, rmax);
     end