new update for good uniform messages
Serge Steer [Wed, 13 Aug 2008 13:08:43 +0000 (13:08 +0000)]
20 files changed:
scilab/modules/cacsd/macros/abcd.sci
scilab/modules/cacsd/macros/abinv.sci
scilab/modules/cacsd/macros/black.sci
scilab/modules/cacsd/macros/bloc2exp.sci
scilab/modules/cacsd/macros/bode.sci
scilab/modules/cacsd/macros/chart.sci
scilab/modules/cacsd/macros/cont_mat.sci
scilab/modules/cacsd/macros/ctr_gram.sci
scilab/modules/cacsd/macros/findBDK.sci
scilab/modules/cacsd/macros/g_margin.sci
scilab/modules/cacsd/macros/gainplot.sci
scilab/modules/cacsd/macros/h_norm.sci
scilab/modules/cacsd/macros/hankelsv.sci
scilab/modules/cacsd/macros/nyquist.sci
scilab/modules/cacsd/macros/obs_gram.sci
scilab/modules/cacsd/macros/obsv_mat.sci
scilab/modules/cacsd/macros/obsvss.sci
scilab/modules/cacsd/macros/p_margin.sci
scilab/modules/cacsd/macros/plzr.sci
scilab/modules/cacsd/macros/syslin.sci

index 89af5c2..bfcdeb7 100644 (file)
@@ -18,6 +18,6 @@ function [A,B,C,D]=abcd(sl)
     w=tf2ss(sl);
     [A,B,C,D]=w(2:5)
   else
-    error(msprintf(_("%s: Wrong type for input argument: syslin structure expected.\n"),"abcd"))
+    error(msprintf(_("%s: Wrong type for input argument: Linear dynamical system expected.\n"),"abcd"))
   end
 endfunction
index 6720799..7bb9baa 100644 (file)
@@ -47,17 +47,39 @@ function [X,dims,F,U,k,Z]=abinv(Sl,Alfa,Beta,flag)
 //F.D.
 //function [X,dims,F,U,k,Z]=abinv(Sl,Alfa,Beta,flag)
   [LHS,RHS]=argn(0);
-  if RHS==1 then Alfa=-1;Beta=-1;flag='ge';end
-  if RHS==2 then Beta=Alfa;flag='ge';end
-  if RHS==3 then flag='ge';end
-  if RHS==4 then 
-    if type(flag)~=10 then 
-      error(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"abinv",4));
+  if and(typeof(Sl)<>['state-space' 'rational']) then
+     error(msprintf(_("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"abinv",1))
+  end
+  select argn(2)
+  case 1 then 
+    Alfa=-1;Beta=-1;
+    flag='ge';
+  case 2 then 
+    Beta=Alfa;
+    if type(Beta)<>1 then
+      error(msprintf(_("%s: Wrong type for input argument #%d: Array of floating point numbers expected.\n"),..
+                    "abinv",2))
+    end
+    flag='ge';
+  case 3 then 
+    if type(Alfa)<>1 then
+      error(msprintf(_("%s: Wrong type for input argument #%d: Array of floating point numbers expected.\n"),..
+                    "abinv",2))
+    end
+    if type(Beta)<>1 then
+      error(msprintf(_("%s: Wrong type for input argument #%d: Array of floating point numbers expected.\n"),..
+                    "abinv",3))
+    end
+    flag='ge';
+  case 4 then 
+    if and(flag<>['ge','st','pp']) then
+      error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"),..
+                    "abinv",4,"''ge'',''st'',''pp''"));
     end
   end
   timedomain=Sl.dt;
   if timedomain==[] then    
-    warning(msprintf(gettext("%s: Time domain not defined: Assumed continuous.\n."),"abinv"));
+    warning(msprintf(gettext(%s: Input argument %d is assumed continuous time.\n"),"abinv",1));
     timedomain='c';
   end
   [A,B,C,D]=abcd(Sl);
@@ -78,9 +100,14 @@ function [X,dims,F,U,k,Z]=abinv(Sl,Alfa,Beta,flag)
     [U,k]=colcomp([B;D]);
     [ns,nc,X]=st_ility(Sl);
     F=stabil(Sl('A'),Sl('B'),Beta);
-    if flag=='ge' then dims=[0,0,0,nc,ns];end
-    if flag=='st' then dims=[0,0,nc,ns];end
-    if flag=='pp' then dims=[0,nc,ns];end
+    select flag
+    case 'ge' then 
+      dims=[0,0,0,nc,ns];
+    case 'st' then 
+      dims=[0,0,nc,ns];
+    case 'pp' then 
+      dims=[0,nc,ns];
+    end
     Z=syslin(timedomain,A+B*F,B*U,F,U);
     return;
   end
index 0652f0d..758e87d 100644 (file)
@@ -58,8 +58,8 @@ function black(varargin)
       [frq,repf]=repfreq(varargin(1),1d-3,1d3)
     elseif rhs==2 then //sys,frq
       if size(varargin(2),2)<2 then
-       error(msprintf(_("%s: Wrong size for input argument #%d: A 1-by-n array expected with n>%d.\n"),..
-                      fname,1,1))
+       error(msprintf(_("%s: Wrong size for input argument #%d: A row vector with length>%d expected.\n"),..
+                      fname,2,1))
       end
       [frq,repf]=repfreq(varargin(1:rhs))
     elseif or(rhs==(3:4)) then //sys,fmin,fmax [,pas]
@@ -175,7 +175,7 @@ function black(varargin)
     kf=kf+ilf
   end
  
-  xtitle(" ",_("Frequency (°)"),_("Magnitude (Db)"));
+  xtitle(" ",_("Frequency (Hz)"),_("Magnitude (Db)"));
   //  2.3 db curve
   mbf=2.3;
   lmda=exp(log(10)/20*mbf);
index 03b4383..21df081 100644 (file)
@@ -131,11 +131,11 @@ for k=2:nsyst
   end;
   end,end
 end;
-if mini(lsorties)==0 then 
-  error(msprintf(gettext("%s: Internal error: Undefined output.\n"),"bloc2exp")),
+if mini(lsorties)==0 then
+  error(msprintf(gettext("%s: Some output(s) are undefined.\n"),"bloc2exp")),
 end
-if mini(lentrees)==0 then 
-  error(msprintf(gettext("%s: Internal error: Undefined input.\n"),"bloc2exp")),
+if mini(lentrees)==0 then
+  error(msprintf(gettext("%s: Some input(s) are undefined.\n"),"bloc2exp")),
 end
 
 endfunction
index 5a3e660..2d85327 100644 (file)
@@ -22,8 +22,8 @@ function []=bode(varargin)
       [frq,repf]=repfreq(varargin(1),1d-3,1d3)
     elseif rhs==2 then //sys,frq
       if size(varargin(2),2)<2 then
-       error(msprintf(_("%s: Wrong size for input argument #%d: A 1-by-n array expected with n>%d.\n"),..
-                      fname,1,1))
+       error(msprintf(_("%s: Wrong size for input argument #%d: A row vector with length>%d expected.\n"),..
+                      fname,2,1))
       end
       [frq,repf]=repfreq(varargin(1:rhs))
     elseif or(rhs==(3:4)) then //sys,fmin,fmax [,pas]
@@ -118,7 +118,7 @@ function []=bode(varargin)
       xpoly(max(frq)*[1;1],axes.y_ticks.locations([1 $]));e=gce();
       e.foreground=5;
   end
-  xtitle("",_("Frequency (Hz)"),_("Phase (°)"));
+  xtitle("",_("Frequency (Hz)"),_("Phase (degree)"));
   // create legend
   if comments<>[] then
     captions(ephi.children,comments,'lower_caption')
index a479f31..a96b5e1 100644 (file)
@@ -75,7 +75,7 @@ function chart(attenu,angl,flags)
   k2=ceil(phi_max/180)
   //
   drawlater()
-  if flags(2) then xtitle(titre,_("phase(y) (°)"),_("magnitude(y) (Db)")),end
+  if flags(2) then xtitle(titre,_("phase(y) (degree)"),_("magnitude(y) (Db)")),end
   llrect=xstringl(0,0,'1')
   
   //isogain curves
index bb9c7e2..5ff73fa 100644 (file)
@@ -32,9 +32,9 @@ 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 state space or a transfer function expected.\n"),"cont_mat",1))
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system .\n"),"cont_mat",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"cont_mat",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"cont_mat",1))
     end
 
   end;
index be984e8..5746040 100644 (file)
@@ -52,9 +52,9 @@ function [gc]=ctr_gram(a,b,domaine)
     [n,n]=size(a) 
   else 
     if rhs==1 then
-      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space or a transfer function expected.\n"),"ctr_gram",1))
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"ctr_gram",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"ctr_gram",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"ctr_gram",1))
     end
   end
   s=spec(a)
index 1a9a210..acb5b42 100644 (file)
@@ -87,7 +87,7 @@ if job==[] then job = 2;end
 if nin<7 then meth = 2;end
 if meth == [] then meth = 2;end
 if nin<6 then
-  error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n'),"findBDK",6,11));
+  error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"findBDK",6,11));
 end
 // 
 jobl = job+2;
@@ -116,7 +116,7 @@ elseif nout==6 then
 elseif nout==7 then
   [B,D,K,Q,Ry,S,rcnd] = sident(meth,jobl,s,n,l,R,tol,nsmpl,A,C,printw);
 else
-  error(msprintf(gettext("%s: Wrong number of output arguments: %d to %d expected.\n'),"findBDK",1,7));
+  error(msprintf(gettext("%s: Wrong number of output arguments: %d to %d expected.\n"),"findBDK",1,7));
 end
 // 
 // end findBDK
index d910be5..86ed428 100644 (file)
@@ -17,7 +17,7 @@ function [gm,fr]=g_margin(h)
     error(97,1),
   end;
   if or(size(h)<>[1 1]) then 
-    error(msprintf(_("%s: Wrong size for input argument #%d: Single input, single output system expected"),"g_margin",1))
+    error(msprintf(_("%s: Wrong size for input argument #%d: Single input, single output system expected.\n"),"g_margin",1))
   end
   //
   eps=1.e-7;// threshold used for testing if complex numbers are real or pure imaginary
index eed3e29..c2260c4 100644 (file)
@@ -23,8 +23,8 @@ function []=gainplot(varargin)
       [frq,repf]=repfreq(varargin(1),1d-3,1d3)
     elseif rhs==2 then //sys,frq
       if size(varargin(2),2)<2 then
-       error(msprintf(_("%s: Wrong size for input argument #%d: A 1-by-n array expected with n>%d.\n"),..
-                      fname,1,1))
+       error(msprintf(_("%s: Wrong size for input argument #%d: A row vector with length>%d expected.\n"),..
+                      fname,2,1))
       end
       [frq,repf]=repfreq(varargin(1:rhs))
     elseif or(rhs==(3:4)) then //sys,fmin,fmax [,pas]
index 478c7ef..00e44d0 100644 (file)
@@ -27,12 +27,16 @@ function [hinfnorm,frequency]=h_norm(Sl,rerr)
   
   sltyp=typeof(Sl)
   if and(sltyp<>['rational','state-space']) then
-     error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space or a transfer function expected.\n"),"h_norm",1))
+     error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),..
+                   "h_norm",1))
   end
   if sltyp=='rational' then Sl=tf2ss(Sl);end
 
   eps=1.d-8;
-  if Sl.dt=='d'|type(sl.dt)==1 then hinfnorm=dhnorm(Sl);frequency=[];return;end
+  if Sl.dt=='d'|type(sl.dt)==1 then 
+    hinfnorm=dhnorm(Sl);frequency=[];
+    return;
+  end
   [a,b,c,d]=Sl(2:5);
   eiga=spec(a);
   if maxi(real(eiga)) >= -1e-12 then 
index 9c9d3e9..acd438b 100644 (file)
@@ -16,14 +16,14 @@ function [nk,W]=hankelsv(sl,tol)
     warning(msprintf(gettext("%s: Input argument %d is assumed continuous time.\n"),"hankelsv",1));
     sl.dt='c'
   elseif sl.dt<>'c' then 
-    error(msprintf(gettext("%s: Wrong type for input argument #%d: Continuous-time linear system expected.\n'),"hankelsv",1)),
+    error(msprintf(gettext("%s: Wrong type for input argument #%d: Continuous-time linear system expected.\n"),"hankelsv",1)),
   end
   //
   [lhs,rhs]=argn(0),
   if rhs==1 then tol=1000*%eps,end,
   lf=spec(sl(2)),
   if mini(abs(lf))<=tol then
-    error(msprintf(gettext("%s: Wrong value for input argument #%d: Pure imaginary  poles unexpected.\n"),"hankelsv",1)),
+    error(msprintf(gettext("%s: Wrong value for input argument #%d: Pure imaginary poles unexpected.\n"),"hankelsv",1)),
   end
   if maxi(real(lf)) > tol then 
     error(msprintf(gettext("%s: Wrong value for input argument #%d: Stable system expected.\n"),"hankelsv",1)),
index b1cb0a2..757978b 100644 (file)
@@ -25,8 +25,8 @@ function nyquist(varargin)
       [frq,repf,splitf]=repfreq(varargin(1),1d-3,1d3)
     elseif rhs==2 then //sys,frq
       if size(varargin(2),2)<2 then
-       error(msprintf(_("%s: Wrong size for input argument #%d: A 1-by-n array expected with n>%d.\n"),..
-                      fname,1,1))
+       error(msprintf(_("%s: Wrong size for input argument #%d: A row vector with length>%d expected.\n"),..
+                      fname,2,1))
       end
       [frq,repf]=repfreq(varargin(1:rhs))
     elseif or(rhs==(3:4)) then //sys,fmin,fmax [,pas]
index 4fdd8df..4c50c45 100644 (file)
@@ -47,9 +47,9 @@ function [go]=obs_gram(a,c,domaine)
     [n,n]=size(a)
   else 
     if rhs==1 then
-      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space or a transfer function expected.\n"),"obs_gram",1))
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system  expected.\n"),"obs_gram",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"obs_gram",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"obs_gram",1))
     end
   end;
   //
index c61d78d..12e671e 100644 (file)
@@ -23,9 +23,9 @@ function o=obsv_mat(a,c)
     [n,n]=size(a)
   else 
     if rhs==1 then
-      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space or a transfer function expected.\n"),"obsv_mat",1))
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"obsv_mat",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"obsv_mat",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"obsv_mat",1))
     end
   end;
   o=c;for k=1:n-1, o=[c;o*a],end
index 2a7db52..e34e6f3 100644 (file)
@@ -39,7 +39,7 @@ function [a,b,c]=obsvss(a,b,c,tol)
     if rhs==1 then
       error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space  expected.\n"),"obsvss",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"obsvss",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"obsvss",1))
     end
   end;
   //
index c579822..3b706fb 100644 (file)
@@ -17,7 +17,7 @@ function [phm,fr]=p_margin(h)
     error(97,1)
   end
   if or(size(h)<>[1 1]) then 
-   error(msprintf(_("%s: Wrong size for input argument #%d: Single input, single output system expected"),"p_margin",1))
+   error(msprintf(_("%s: Wrong size for input argument #%d: Single input, single output system expected.\n"),"p_margin",1))
   end
   eps=1.e-7// threshold used for testing if complex numbers are real or pure imaginary
   
index afa3a35..c4d7886 100644 (file)
@@ -22,7 +22,7 @@ function plzr(a,b,c,d)
     end
   case 'state-space' then
     if rhs<>1 then 
-      error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"plzr",1)),
+      error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"plzr",1)),
     end
     [a,b,c,d]=a(2:5)
     if type(d)<>1 then 
@@ -39,13 +39,14 @@ function plzr(a,b,c,d)
 
   else
     if rhs==1 then
-      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear state space or a transfer function expected.\n"),"plzr",1))
+      error(msprintf(gettext("%s: Wrong type for input argument #%d: Linear dynamical system expected.\n"),"plzr",1))
     else
-      error(msprintf(gettext("%s: Wrong type of input argument #%d: matrix of floating point numbers expected.\n"),"plzr",1))
+      error(msprintf(gettext("%s: Wrong type of input argument #%d: Array of floating point numbers expected.\n"),"plzr",1))
     end
   end
   if type(d)<>1 then 
-    error(msprintf(gettext("%s: The given transfer fuction is not proper.\n"),"plzr"));
+    error(msprintf(gettext("%s: Wrong type for input argument #%d: Array of floating point numbers expected.\n"),..
+                  "plzr",4));
   end
 
 
index d30439d..39ba581 100644 (file)
@@ -66,7 +66,7 @@ function [sl]=syslin(domain,a,b,c,d,x0)
 
     if type(num)==2 & type(den)==2 then
       if varn(num)<>varn(den) then 
-       error(msprintf(gettext("%s: Incompatible input arguments #%d² and #%d: Same formal variable names expected.\n"),"syslin",2,3))
+       error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same formal variable names expected.\n"),"syslin",2,3))
       end
     end
     if type(num)==1 then