Normalization of the string in the macros of this module ... What a f* pain in the...
Sylvestre Ledru [Thu, 24 Apr 2008 13:08:06 +0000 (13:08 +0000)]
38 files changed:
scilab/modules/statistics/macros/center.sci
scilab/modules/statistics/macros/cmoment.sci
scilab/modules/statistics/macros/correl.sci
scilab/modules/statistics/macros/covar.sci
scilab/modules/statistics/macros/geomean.sci
scilab/modules/statistics/macros/harmean.sci
scilab/modules/statistics/macros/iqr.sci
scilab/modules/statistics/macros/mad.sci
scilab/modules/statistics/macros/mean.sci
scilab/modules/statistics/macros/meanf.sci
scilab/modules/statistics/macros/median.sci
scilab/modules/statistics/macros/moment.sci
scilab/modules/statistics/macros/msd.sci
scilab/modules/statistics/macros/mvcorrel.sci
scilab/modules/statistics/macros/mvvacov.sci
scilab/modules/statistics/macros/nand2mean.sci
scilab/modules/statistics/macros/nanmean.sci
scilab/modules/statistics/macros/nanmeanf.sci
scilab/modules/statistics/macros/nanmedian.sci
scilab/modules/statistics/macros/nanstdev.sci
scilab/modules/statistics/macros/nansum.sci
scilab/modules/statistics/macros/pca.sci
scilab/modules/statistics/macros/perctl.sci
scilab/modules/statistics/macros/quart.sci
scilab/modules/statistics/macros/regress.sci
scilab/modules/statistics/macros/sample.sci
scilab/modules/statistics/macros/samplef.sci
scilab/modules/statistics/macros/samwr.sci
scilab/modules/statistics/macros/st_deviation.sci
scilab/modules/statistics/macros/stdev.sci
scilab/modules/statistics/macros/stdevf.sci
scilab/modules/statistics/macros/strange.sci
scilab/modules/statistics/macros/tabul.sci
scilab/modules/statistics/macros/thrownan.sci
scilab/modules/statistics/macros/trimmean.sci
scilab/modules/statistics/macros/variance.sci
scilab/modules/statistics/macros/variancef.sci
scilab/modules/statistics/macros/wcenter.sci

index 3e9ecf7..3cc9237 100644 (file)
@@ -32,7 +32,7 @@ function [s]=center(x,orient)
 
   if x==[] then s=%nan, return, end
   [lhs,rhs]=argn(0)
-  if (rhs<1)|(rhs>2) then error('center requires one or two inputs.'), end
+  if (rhs<1)|(rhs>2) then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"center",1,2)), end
   [m n]=size(x);
   if rhs==1
     xbar=(sum(x)/(m*n))
@@ -43,6 +43,6 @@ function [s]=center(x,orient)
   elseif orient=='r'|orient==1 then
     xbar=sum(x,'r')/m
     s=x-(ones(m,1)*xbar)
-  else error('Second center parameter must be r, c, 1 or 2'),
+  else error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', %d or %d expected.\n"),"center","r","c",1,2)), 
   end
 endfunction
index e2aa1bb..1fbfa82 100644 (file)
@@ -34,7 +34,7 @@ function mom= cmoment(x,ord,orien)
 //
   if x==[]|ord==[] then mom=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs<2 then error('cmoment requires at least two parameters.'), end
+  if rhs<2 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"cmoment",2,3)), end
   if rhs==2 then
     if ord==1 then mom=0, return, end
     le=length(x)
@@ -48,10 +48,10 @@ function mom= cmoment(x,ord,orien)
       m=m(ones(le,1),:)
     elseif orien=='c'|orien==1 then
       m=m(:,ones(le,1))
-    else error('The third parameter must be ''r'', ''c'', 1 or 2'),
+       else error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', %d or %d expected.\n"),"cmoment","r","c",1,2)), 
     end
     mom=sum((x-m).^ord,orien)/(le)
     return
-  else error('The function moment must have two or three parameters')
+  else error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"cmoment",2,3)),
   end
 endfunction
index 5d53b85..1624a9e 100644 (file)
@@ -23,17 +23,20 @@ function rho=correl(x,y,fre)
 //
   if x==[] | y==[] then s=%nan; return, end
   [lhs,rhs]=argn(0)
-  if rhs <> 3 then error('correl requires three arguments.'), end
+  if rhs <> 3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"correl",3)), end
   [lfre,cfre]=size(fre);
   [lx,cx]=size(x)
   [ly,cy]=size(y)
-  if lx<>1 & cx<>1 then error('First argument must be a vector.'), end
-  if ly<>1 & cy<>1 then error('Second argument must be a vector.'), end
+  
+  if lx<>1 & cx<>1 then error(msprintf(gettext("%s: Wrong type for first input argument: Vector expected.\n"),"correl")), end
+  if ly<>1 & cy<>1 then error(msprintf(gettext("%s: Wrong type for second input argument: Vector expected.\n"),"correl")), end
   lx=lx*cx;
   cy=ly*cy;
 
-  if cy<>cfre then error('inconsistent dimensions'), end
-  if lx<>lfre then error('inconsistent dimensions'), end
+  
+  if lx<>lfre then error(msprintf(gettext("%s: Wrong value for third input argument: Same number of line as first input argument expected.\n"),"correl")), end
+  if cy<>cfre then error(msprintf(gettext("%s: Wrong value for third input argument: Same number of column as first input argument expected.\n"),"correl")), end
+
   x=matrix(x,lx,1);
   y=matrix(y,1,cy);
   fr=fre/sum(fre)
index 6e94ac0..16131e4 100644 (file)
@@ -25,17 +25,17 @@ function [s]=covar(x,y,fre)
 //
   if x==[] | y==[] then s=%nan; return, end
   [lhs,rhs]=argn(0)
-  if rhs <> 3 then error('covar requires three arguments.'), end
+  if rhs <> 3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"covar",3)), end
   [lfre cfre]=size(fre);
   [lx cx]=size(x)
   [ly cy]=size(y)
-  if lx<>1 & cx<>1 then error('First parameter must be a vector.'), end
-  if ly<>1 & cy<>1 then error('Second parameter must be a vector.'), end
+  if lx<>1 & cx<>1 then error(msprintf(gettext("%s: Wrong type for first input argument: Vector expected.\n"),"covar")), end
+  if ly<>1 & cy<>1 then error(msprintf(gettext("%s: Wrong type for second input argument: Vector expected.\n"),"covar")), end
   fre(isnan(fre))=0
   lx=lx*cx;
   cy=ly*cy;
-  if lx<>lfre then error('inconsistent dimensions'), end
-  if cy<>cfre then error('inconsistent dimensions'), end
+  if lx<>lfre then error(msprintf(gettext("%s: Wrong value for third input argument: Same number of line as first input argument expected.\n"),"covar")), end
+  if cy<>cfre then error(msprintf(gettext("%s: Wrong value for third input argument: Same number of column as first input argument expected.\n"),"covar")), end
   x=matrix(x,lx,1);
   y=matrix(y,1,cy);
   fr=fre/sum(fre)
index 4e1a575..cd13c24 100644 (file)
@@ -28,12 +28,12 @@ function gm=geomean(x,orien)
 //
   if x==[] then gm=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('geomean requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"geomean",1,2)), end
   if rhs==1 then
     gm=prod(x)^(1/length(x))
   elseif rhs==2
     gm=prod(x,orien).^(1/size(x,orien))
   else 
-    error('The number of input parameters must be 1 or 2')
+    error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"geomean",1,2)),
   end
 endfunction
index ac724ca..95786bc 100644 (file)
@@ -30,7 +30,7 @@ function [hm]=harmean(x,orien)
 //
   if x==[] then hm=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('harmean requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"harmean",1,2)), end
   if rhs==1 then
     hm=1/(sum(1 ./x(x<>0))/sum(x<>0))
     return
@@ -39,10 +39,10 @@ function [hm]=harmean(x,orien)
       le=ones(1,size(x,1))*bool2s(x<>0)
     elseif orien=='c'|orien==2 then
       le=bool2s(x<>0)*ones(size(x,2),1)
-    else error('Second parameter must be ''r'', ''c'', 1 or 2'), end
+    else error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', %d or %d expected.\n"),"harmean","r","c",1,2)), end
       x(x==0)=%inf
       hm=sum(1 ./x,orien) ./le
   else 
-    error('The number of input parameters must be one or two.'),
+    error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"harmean",1,2)),
   end
 endfunction
index f016332..825b449 100644 (file)
@@ -31,7 +31,7 @@ function [q]=iqr(x,orien)
 //
   if x==[] then q=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('iqr requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input argument: At least %d expected.\n"),"iqr",1)), end
   if rhs==1 then
     qq=quart(x)
   else
index 79977f6..ee6536e 100644 (file)
@@ -32,7 +32,7 @@ function [s2]=mad(x,orien)
 //
   [lhs,rhs]=argn()
   if rhs < 1 | rhs > 2 then
-     error('mad requires one or two inputs.')
+       error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"mad",1,2)),
   end
   
   if x==[] then s2=%nan, return, end
@@ -46,7 +46,7 @@ function [s2]=mad(x,orien)
     elseif orien=='c' | orien==2 then
       s2=sum(abs(x-(mean(x,2)*ones(1,ncol))),2)/ncol
     else 
-      error('The second input parameter must be ''r'', ''c'', 1 or 2')
+         error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'',''%s'', %d or %d.\n"),"mad","r","c",1,2)),
     end
   end
 endfunction
index 1cd2152..a92f09a 100644 (file)
@@ -19,44 +19,44 @@ function [y] = mean(x,orient)
 //      real or complex numbers)
 //    - mean([]) return nan but mean([],orient) return [] (this
 //      is strange but corresponds to matlab behavior)
-   
-   [lhs,rhs] = argn()
-   // some arguments checking
-   if rhs == 0 | rhs > 2 then
-      error("mean: bad number of arguments (must be 1 or 2)")
-   else
-      if type(x) ~= 1  &  typeof(x) ~= "hypermat" then
-        error("mean: bad type of the first argument")
-      end
-      if type(x) ~= 1 then  // that is x is an hypermat !
-        if type(x.entries) ~= 1 then
-           error("mean: bad type of the first argument")
-        end
-      end
-      if rhs == 2 then
-        if orient == "r" then, orient = 1, end 
-        if orient == "c" then, orient = 2, end
-        if orient == "m" then 
-          flag=find(size(x)>1,1)
-          if flag==[] then
-            y=mean(x)
-            return
-          else
-            y=mean(x,flag)
-            return
-          end
-        end
-        if floor(orient)~=orient | orient < 1 | orient > length(size(x)) then
-           error("mean: bad second argument")
-        end
-      end 
-   end
 
-   if rhs==1 then
-      if x==[] then y=%nan;return,end
-      y=sum(x)/size(x,'*')
-   else
-      if x==[] then y=[];return,end
-      y=sum(x,orient)/size(x,orient)
-   end
+[lhs,rhs] = argn()
+// some arguments checking
+if rhs == 0 | rhs > 2 then
+  error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"mean",1,2)),
+else
+  if type(x) ~= 1  &  typeof(x) ~= "hypermat" then
+       error(msprintf(gettext("%s: Wrong type for first input argument: Real vector or matrix expected.\n"), "mean"))
+  end
+  if type(x) ~= 1 then  // that is x is an hypermat !
+       if type(x.entries) ~= 1 then
+         error(msprintf(gettext("%s: Wrong type for first input argument.\n"),"mean"))
+       end
+  end
+  if rhs == 2 then
+       if orient == "r" then, orient = 1, end 
+       if orient == "c" then, orient = 2, end
+       if orient == "m" then 
+         flag=find(size(x)>1,1)
+         if flag==[] then
+               y=mean(x)
+               return
+         else
+               y=mean(x,flag)
+               return
+         end
+       end
+       if floor(orient)~=orient | orient < 1 | orient > length(size(x)) then
+         error(msprintf(gettext("%s: Wrong type for second input argument: Scalar or vector expected.\n"),"mean")),
+       end
+  end 
+end
+
+if rhs==1 then
+  if x==[] then y=%nan;return,end
+  y=sum(x)/size(x,'*')
+else
+  if x==[] then y=[];return,end
+  y=sum(x,orient)/size(x,orient)
+end
 endfunction
index 4c9ea88..2ea4dbd 100644 (file)
@@ -35,7 +35,8 @@ function [m]=meanf(val,fre,orient)
 //Statistics, J.Wiley & Sons, 1990.
 //
   [lhs,rhs]=argn(0)
-  if rhs==0|rhs==1|rhs>=4 then error('meanf requires two or three inputs.'), end
+  if rhs==0|rhs==1|rhs>=4 then error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"meanf",2,3)), end
+
   if val==[]|fre==[]|fre==0, m=%nan;return,end
   if rhs==2 then
     m=sum(val .* fre)/sum(fre);
@@ -47,7 +48,7 @@ function [m]=meanf(val,fre,orient)
     elseif orient=='c'|orient==2 then
       m=sum(val .* fre,'c') ./ sum(fre,'c')
     else
-      error('The value of the third parameter must be ''r'', ''c'', 1 or 2')
+         error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'',''%s'', %d or %d.\n"),"meanf","r","c",1,2)),
     end
   end
 endfunction
index 686a332..39d6a5a 100644 (file)
@@ -31,7 +31,7 @@ else
     if orient==[] then orient=1,end
   else
     if type(orient)<>1|size(orient,'*')<>1|~isreal(orient)|orient<=0 then
-      error('median: second argument should be  ''r'', ''c'',''m'' or a positive number')
+      error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'',''%s'' or a positive number expected.\n"),"median","r","c","m")),
     end
   end
 end
index ea716fb..8b93c58 100644 (file)
@@ -43,6 +43,6 @@ function [mom]= moment(x,ord,orien)
     le=size(x,orien)
     mom=sum((x.^ord),orien)/le
   else 
-    error('The function moment must have two or three parameters')
+       error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"moment",2,3)),
   end
 endfunction
index 547cb09..304ba18 100644 (file)
@@ -30,7 +30,7 @@ function m=msd(x,orien)
 //
 //
   rhs=argn(2)
-  if rhs==0 then error('msd requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input argument: At least %d expected.\n"),"msd",1)), end
   if x==[] then s=%nan, return, end
   if rhs==1 then orien='*',end
   if orien=='*' then
@@ -40,6 +40,6 @@ function m=msd(x,orien)
   elseif orien=='r'|orien==1 then
     m=sqrt(sum((x-ones(x(:,1))*mean(x,orien)).^2,orien)/size(x,orien));
   else
-    error('2nd argument of msd must be equal to ''c'', ''r'', 1 or 2');
+       error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', %d or %d expected.\n"),"stdevf","r","c",1,2)),
   end
 endfunction
index 266fd2e..92210ab 100644 (file)
@@ -27,7 +27,7 @@ function [r]=mvcorrel(x)
 //
   if x==[] then s=%nan; return, end
   [lhs,rhs]=argn(0)
-  if rhs <> 1 then error('mvcorrel requires only one argument.'), end
+  if rhs <> 1 then error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"mvcorrel",1)), end
   [lx cx]=size(x)
   if lx==1 then r=zeros(lx,cx), return, end
   xbar=sum(x,'r')/lx
index a5c301a..950fe80 100644 (file)
@@ -28,7 +28,7 @@ function [v]=mvvacov(x)
 //
   if x==[] then s=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs<>1 then error('mvvacov requires one input.'), end
+  if rhs<>1 then error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"mvvacov",1)), end
   [n p]=size(x);
   fact=1/n
   v=fact*((x'*x)-(fact*(x'*ones(n,1)*ones(1,n))*x))
index 64cee6c..018a5db 100644 (file)
@@ -34,7 +34,7 @@ function [dif]=nand2mean(sample1,sample2,conf)
   end
   [lhs,rhs]=argn(0)
   if rhs<2|rhs>3  then 
-    error('nanstdev requires two or three inputs.'),
+       error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nand2mean",2,3)),
   elseif rhs==2 then
     conf=.975
   end
index 805286b..4af927b 100644 (file)
@@ -28,7 +28,7 @@ function [m]=nanmean(x,orient)
 //each row of x (ignoring the NANs).
 //
 //
-  if argn(2)==0 then error('nanmean requires one or two inputs.'), end
+  if argn(2)==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmean",1,2)), end
   if argn(2)==1 then  orient='*',end
   //replace nans by 0
   isn=isnan(x)
index 936231b..1204018 100644 (file)
@@ -34,7 +34,7 @@ function [m]=nanmeanf(val,fre,orient)
 //
 //
   [lhs,rhs]=argn(0)
-  if rhs<2|rhs>3 then error('nanmeanf requires two or three inputs.'), end
+  if rhs<2|rhs>3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmeanf",2,3)), end
   if val==[]|fre==0 then m=[], return,end
   isn=isnan(val)
   fre(isn)=0
@@ -45,6 +45,6 @@ function [m]=nanmeanf(val,fre,orient)
     m=sum(val.*fre)/sum(fre)
   elseif orient=='r'|orient=='c'|orient==1|orient==2 then
     m=sum(val.*fre,orient)./sum(fre,orient)
-  else ('Third parameter for nanmeanf must be *, r, c, 1 or 2'),
+  else error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"nanmeanf","*","r","c",1,2)),
   end
 endfunction
index 21835a9..894754c 100644 (file)
@@ -26,8 +26,8 @@ function [m]=nanmedian(x,orient)
 //
 //
   [lhs,rhs]=argn(0)
-  if type(x)<>1 then error('first entry to nanmedian must be numeric'), end
-  if rhs<1|rhs>2 then error('nanmedian requires one or two inputs.'), end
+  if rhs<1|rhs>2 then  error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"nanmedian",1,2)), end
+    if type(x)<>1 then error(msprintf(gettext("%s: Wrong type for first input arguments: Numerical expected.\n"),"nanmedian")) , end
   if x==[] then m=[], return,end
   if rhs==1 then 
     p=perctl(x(~isnan(x)),50)
@@ -46,7 +46,8 @@ function [m]=nanmedian(x,orient)
       p=perctl(i(~isnan(i)),50)
       if p==[] then p=%nan,end
       m=[m;p(1)];
-    end
-  else ('Third parameter must be r, c, 1 or 2')
+       end
+       else
+               error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', %d or %d expected.\n"),"nanmedian","r","c",1,2))
   end
 endfunction
index 0a51cfb..9002c28 100644 (file)
@@ -31,7 +31,7 @@ function [s]=nanstdev(x,orient)
 
   if x==[] then s=%nan, return, end
 
-  if argn(2)==0 then error('nanstdev requires one or two inputs.'), end
+  if argn(2)==0 then error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"nanstdev",1,2)), end
   if argn(2)==1 then  orient='*',end
   if orient=='r' then orient=1,elseif orient=='c' then orient=2,end
   
index 5efed3b..a5d4c78 100644 (file)
@@ -32,7 +32,7 @@ function s=nansum(x,orient)
 //fixed: 2003/09/03
 //error texts and all NAN rows or columns
 //
-  if argn(2)==0 then error('nansum requires one or two inputs.'), end
+  if argn(2)==0 then error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"nansum",1,2)), end
   if argn(2)==1 then  orient='*',end
   isn=isnan(x)
   x(isn)=0
index ac8a0e2..e6c1541 100644 (file)
@@ -77,11 +77,11 @@ function [lambda,facpr,comprinc]=pca(varargin)
          N = varargin(2);
          no_graphics = varargin(3);
        else
-       error(sprintf("%s: Wrong number of input argument(s).\n","pca"));
+       error(msprintf(gettext("%s: Wrong number of input argument(s): %d to %d expected.\n"),"pca",1,3));
        end
 
   if ( type(no_graphics) <> 4 ) then
-    error(sprintf("%s: Wrong type for third input argument: Boolean expected.\n" ,"pca"));
+    error(msprintf(gettext("%s: Wrong type for third input argument: Boolean expected.\n"),"pca"));
   end
 
   if x==[] then
@@ -92,8 +92,8 @@ function [lambda,facpr,comprinc]=pca(varargin)
   end
 
   [rowx colx]=size(x)
-  if size(N,'*')<>2 then error('Second parameter has bad dimensions'), end,
-  if max(N)>colx then disp('Graph demand out of bounds'), return, end
+  if size(N,'*')<>2 then error(msprintf(gettext("%s: Wrong size for second inputargument: Size %s expected.\n"),"pca","2x1")), end,
+  if max(N)>colx then disp(msprintf(gettext("%s: Graph demand out of bounds.\n"),"pca")), return, end
   
   xbar=sum(x,'r')/rowx
   y=x-ones(rowx,1)*xbar
@@ -129,7 +129,7 @@ function [lambda,facpr,comprinc]=pca(varargin)
       e=gce();
       e.foreground=blue;
     end
-    title(' -Correlations Circle- ');
+    title(gettext("Correlations Circle"));
     fig2 = scf(w+1);
     plot2d3([0;ra;rango+1]',[0; lambda(ra,2);0]);
     plot2d(ra,lambda(ra,2),style=9);
@@ -141,7 +141,7 @@ function [lambda,facpr,comprinc]=pca(varargin)
       xstring(k,0,'l'+string(k)),
       e=gce();e.font_style=1
     end
-    title(' -Eigenvalues (in percent)- ')
+    title(gettext("Eigenvalues (in percent)"))
     ylabel('%')
   end  
 endfunction
index d9b49f1..9ab9e28 100644 (file)
@@ -28,13 +28,13 @@ function [p]=perctl(x,y)
 
   [lhs,rhs]=argn(0)
   if rhs<>2 then
-    error('perctl requires two arguments exactly');end
+    error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"perctl",2));end
     if x==[]|y==[] then p=[];return;end
     if find((y-int(y)))<>[]|max(y)>100|min(y)<1 then
-      error('the second input parameter must consist of natural numbers between 1 and 100')
+      error(msprintf(gettext("%s: Wrong value for second input argument: Must be between %d and %d.\n"),"perctl",1,100))
     end
     if type(x)<>1 then
-      error('first parameter must be numerical')
+         error(msprintf(gettext("%s: Wrong type for first input argument: Numerical expected.\n"),"perctl"))
     end
     lenx=size(x)
     lx=prod(lenx)
index c6aa47e..2128eab 100644 (file)
@@ -37,7 +37,7 @@ function q=quart(x,orien)
 
   if x==[] then q=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('quart requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input argument: At least %d expected.\n"),"quart",1)), end
   if rhs==1 then
     q=vperctl(x(:),[25 50 75])
     q=q(:)
index 13fc33f..0fcb976 100644 (file)
@@ -21,10 +21,10 @@ function [coefs]=regress(x,y)
 //
 //
   coefs=[]
-  if (type(x) <> 1)|(type(y)<>1) then error('Both parameters must be numerical.'),end
+  if (type(x) <> 1)|(type(y)<>1) then error(msprintf(gettext("%s: Wrong type for input arguments: Numerical expected.\n"),"regress")), end
   lx=length(x)
-  if lx<>length(y) then error('Both parameters must have the same number of elements'), end
-  if lx==0 then error('Input parameters are void'), end
+  if lx<>length(y) then error(msprintf(gettext("%s: Wrong size for both input arguments: same size expected.\n"),"regress")), end
+  if lx==0 then error(msprintf(gettext("%s: Wrong size for first input argument: Must be > %d.\n"),"regress", 0)), end
   x=matrix(x,lx,1)
   y=matrix(y,lx,1)
   xbar=sum(x)/lx
index 84cf2e0..8a82d9b 100644 (file)
@@ -29,7 +29,7 @@ function s=sample(n,X,orient)
 //from the columns of X.
 //
   [lhs,rhs]=argn(0)
-  if rhs<2 | rhs>3 then error('sample requires two or three inputs.'), end
+  if rhs<2 | rhs>3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"sample",2,3)), end
   if X==[] then s=[]; return;end
   if rhs==2 then 
     orient='*'
@@ -46,6 +46,6 @@ function s=sample(n,X,orient)
     s=X(:,grand(n,1,'uin',1,size(X,'c'))),
     return
   end
-  error('orient must be *, r, 1, c or 2 ')
+  error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"orient","*","r","c",1,2))
 endfunction
 
index a243da5..cbb2465 100644 (file)
@@ -38,7 +38,7 @@ function s=samplef(n,X,f,orient)
 //must be equal to the number of columns of X.
 //
   [lhs,rhs]=argn(0)
-  if rhs<3 | rhs>4 then error('samplef requires three or four inputs.'), end
+  if rhs<3 | rhs>4 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"samplef",3,4)), end
   if X==[]| (or(f==0)) then s=[]; return;end
   sizx=size(X)
   val=cumsum([0;f(:)])
@@ -49,25 +49,25 @@ function s=samplef(n,X,f,orient)
   end
   if orient=='*' then
     if size(f,'*')<>prod(sizx) then
-      error('In this case dimensions of second and third parameters must be equal'), 
+      error(msprintf(gettext("%s: Wrong size for second and third input argument: Same size expected.\n"), "samplef")),
     end
     s=X(ind)
     return
   end
   if orient=='r'|orient==1 then
     if size(f,'*')<>sizx(1) then
-      error('Third parameter must be equal to number of rows of second parameter'), 
+         error(msprintf(gettext("%s: Wrong size for third input argument: Same number of rows of the second input argument expected.\n"), "samplef")),
     end
     s=X(ind,:)
     return
   end
   if orient=='c'|orient==2 then
     if size(f,'*')<>sizx(2) then
-      error('Third parameter must be equal to number of columns of second parameter'), 
+                 error(msprintf(gettext("%s: Wrong size for third input argument: Same number of columns of the second input argument expected.\n"), "samplef")),
     end
     s=X(:,ind)
     return
   end
-  error('Fourth parameter must be *, r, c, 1 or 2')
+  error(msprintf(gettext("%s: Wrong value for fourth input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"orient","*","r","c",1,2))
 endfunction
 
index c93ba4f..ca568b5 100644 (file)
@@ -16,12 +16,12 @@ function s=samwr(sizam,numsamp,X)
 //from the  vector X.
 //
   if argn(2)<>3 then 
-    error('samwr requires  three input parameters.'), 
+    error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"samwr",3)),
   end
   if X==[]|sizam==0|numsamp==0 then s=[]; return;end
   sizx=size(X,'*')
   if sizam>sizx then
-    error('Value of first parameter must be less or equal than lenght of last parameter')
+    error(msprintf(gettext("%s: Wrong value of first input argument: Less or equal than length of last input argument expected.\n"),"samwr")),
   end
   
   perm=grand(numsamp,'prm',(1:sizx)')
index fc79966..2f71122 100644 (file)
@@ -1,6 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) XXXX - INRIA
+// Copyright (C) XXXX - ENPC
+// Copyright (C) XXXX - Ecole des Mines de Nantes - Philippe Castagliola 
+// 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 sd=st_deviation(x,cr)
-//Copyright Inria/Enpc 
-//Philippe.Castagliola Ecole des Mines de Nantes
 // 
   if argn(2)<2 then cr='*',end
   if x == [] then sd=%nan;return ;end 
@@ -27,6 +35,6 @@ function sd=st_deviation(x,cr)
       sd=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/(m-1));
     end
   else
-    error('Optional 2nd argument cr must be equal to ''*'', ''c'' or 2, ''r'' or 1');
+    error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"st_deviation","*","r","c",1,2));
   end
 endfunction
index 63ab358..336d1a9 100644 (file)
@@ -38,7 +38,7 @@ function sd=stdev(x,o)
   elseif o=='r'|o==1 then
     y=x - ones(x(:,1))*mean(x,'r')
   else
-    error('Optional 2nd argument must be equal to ''*'', ''c'' or 2, ''r'' or 1');
+    error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"stdev","*","c","r",1,2)),
   end
   
   if size(x,o)==1 then
index 01e19b9..5e996b3 100644 (file)
@@ -33,12 +33,12 @@ function [s]=stdevf(x,fre,o)
 //
   rhs=argn(2)
   if rhs<2 then
-    error('stdevf requires two or three inputs.'),
+       error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"stdevf",2,3)),  
   elseif rhs==2 then
      o='*'
   end
   if or(size(x)<>size(fre)) then
-    error('stdevf, first and second argument mist have the same dimensions')
+    error(msprintf(gettext("%s: Wrong size for first and second input arguments: Same dimensions expected.\n"),"stdevf"))
   end
   if x==[] then s=%nan;return,end
   
@@ -51,7 +51,7 @@ function [s]=stdevf(x,fre,o)
   elseif o=='c'|o==2,
     y=x - meanf(x,fre,o)*ones(1,size(x,o))
   else 
-    error('3rd argument of stdevf must be equal to *, c, r, 1 or 2'),
+       error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"stdevf","*","r","c",1,2)),
   end
   if size(x,1)==1 then
     s=0*sum((y.^2).*fre,o)
index 302c0d1..09fe394 100644 (file)
@@ -21,7 +21,7 @@ function [r]=strange(x,orien)
 //
 //
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('strange requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"strange",0,2)), end
   if rhs==1 then
     r=max(x)-min(x)
   elseif rhs==2 then
@@ -30,7 +30,7 @@ function [r]=strange(x,orien)
     elseif orien=='c'|orien==2 then
       r=max(x,'c')-min(x,'c')
     else 
-      error('second parameter must be ''r'', ''c'',1 or 2'), 
+      error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', %d or %d expected.\n"),"strange","r","c",1,2)),
     end
   end
 endfunction
index ee7d8c5..f0cf5f5 100644 (file)
@@ -55,19 +55,19 @@ function [m] = tabul(X, order)
  
    rhs = argn(2)
    if rhs<1 | 2<rhs then
-      error(" tabul : 1 or 2 input argument(s) needed")
+         error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"tabul",1,2)),
    elseif rhs == 1 then
       order = "d"
    end
    typeX = type(X)
    if typeX ~= 1 & typeX ~= 10 then
-      error(" tabul : 1st input argument must be a vector/matrix of numbers or strings")
+      error(msprintf(gettext("%s: Wrong type for first input argument: Vector, matrix of numbers or strings expected.\n"),"tabul"))
    end
    if type(order) ~= 10 then
-      error(" tabul : 2d input argument (order) must be ""i"" or ""d""")
+        error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'' or ''%s'' expected.\n"),"tabul","i","d"))
    end
    if order~="i" &  order~="d" then
-      error(" tabul : 2d input argument (order) must be ""i"" or ""d""")
+        error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'' or ''%s'' expected.\n"),"tabul","i","d"))
    end
    if ( X == [] ) then
       m = %nan
index f04233b..a0944d9 100644 (file)
@@ -23,7 +23,7 @@ function [nonan,numb]=thrownan(x)
 //
 //
   [lhs,rhs]=argn(0)
-  if rhs<>1 then error('thrownan has one parameter, exactly.'), end
+  if rhs<>1 then error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"thrownan",1)), end
   if x==[] then s=[], return,end
   numb=find(bool2s(~isnan(x)))
   nonan=x(~isnan(x))
index c3d5646..c55b7c2 100644 (file)
@@ -70,10 +70,10 @@ function t=trimmean(x,discard,orien)
 // modified by Bruno Pincon 2006-08-12 (to fix bug 2083)
 
   [lhs,rhs]=argn()
-  if rhs < 2 | rhs > 3 then error('trimmean requires two or three input parameters.'), end
+  if rhs < 2 | rhs > 3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"trimmean",2,3)), end
     
   if type(discard)~=1 | ~isreal(discard) | length(discard) ~=1 | discard > 100 | discard < 0 then 
-    error('2nd input parameter must be a real number in the 0-100 range.')
+       error(msprintf(gettext("%s: Wrong value for second input argument: Real number between %d to %d expected.\n"),"trimmean",0,100))
   end
  
   if rhs == 3 then
@@ -82,7 +82,7 @@ function t=trimmean(x,discard,orien)
      elseif orien=='c' | orien==2 then
         sizx=size(x,'c'); orient = 'c'
      else
-        error('bad third input parameter.')
+        error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', %d or %d expected.\n"),"trimmean",,"c","r",1,2))
      end
   else
      sizx = length(x); orient = 'all'
index 46122fc..a8ccbd7 100644 (file)
@@ -28,7 +28,7 @@ function [s]=variance(x,orien)
 //
   if x==[] then s=%nan, return, end
   [lhs,rhs]=argn(0)
-  if rhs==0 then error('variance requires at least one input.'), end
+  if rhs==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"variance",1,2)), end
   [m n]=size(x);
   if rhs==1
     s=(sum((x-mean(x)).^2))/(m*n-1)
@@ -37,6 +37,6 @@ function [s]=variance(x,orien)
   elseif orien=='r'|orien==1 then
     s=(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/(m-1));
   else
-    error('2rd argument of variance must be equal to c, r, 1 or 2');
+    error(msprintf(gettext("%s: Wrong value for input argument: ''%s'', ''%s'', %d or %d expected.\n"),"variance","c","r",1,2));
   end
 endfunction
index 01aa5db..c42c1b8 100644 (file)
@@ -34,29 +34,29 @@ function [s]=variancef(x,fre,orien)
   if x==[] then s=%nan, return, end
   [lhs,rhs]=argn(0)
   if rhs<2|rhs>3 then
-    error('variancef requires two or three inputs.'),
+    error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"variancef",2,3)),
   end
   if x==[]|fre==[]|fre==0, s=%nan;return,end
   if rhs==2 then
     sumfre=sum(fre)
-    if sumfre <= 1 then error('Frequencies must be greater than 1'), end
+    if sumfre <= 1 then error(msprintf(gettext("%s: Wrong value for second input argument: Must be > 1.\n"),"variancef")), end
     s=(sum(((x-meanf(x,fre)).^2).*fre))/(sumfre-1),
     return,
   end
   if orien=='*',
     sumfre=sum(fre)
-    if sumfre <= 1 then error('Frequencies must be greater than 1'),end
+    if sumfre <= 1 then error(msprintf(gettext("%s: Wrong value for second input argument: Must be > 1.\n"),"variancef")),end
     s=(sum(((x-meanf(x,fre)).^2).*fre))/(sumfre-1),
   elseif orien=='r'|orien==1,
     sumfre=sum(fre,'r')
-    if or(sumfre==0) then error('Frequencies must be greater than 1'),end
+    if or(sumfre==0) then error(msprintf(gettext("%s: Wrong value for second input argument: Must be > 1.\n"),"variancef")),end
     s=(sum(((x-ones(size(x,'r'),1)*meanf(x,fre,'r')).^2).*fre))./ ..
       (sumfre-1)
   elseif orien=='c'|orien==2,
     sumfre=sum(fre,'c')
-    if or(sumfre==0) then error('Frequencies must be greater than 1'),end
+    if or(sumfre==0) then error(msprintf(gettext("%s: Wrong value for second input argument: Must be > 1.\n"),"variancef")),end
     s=(sum((x-(meanf(x,fre,'c')*ones(1,size(x,'c')))).^2,'c'))./..
       (sumfre-1)
-  else error('3rd argument of variancef must be equal to *, c, r, 1 or 2'),
+  else error(msprintf(gettext("%s: Wrong value for third input argument: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"variancef","*","c","r",1,2))
   end
 endfunction
index 3b8c570..b2e8cf7 100644 (file)
@@ -37,7 +37,7 @@ function [s]=wcenter(x,orient)
 //
   if x==[] then s=%nan, return, end
   [lhs,rhs]=argn(0)
-  if (rhs<1)|(rhs>2) then error('centered requires one or two inputs.'), end
+  if (rhs<1)|(rhs>2) then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"wcenter",1,2)), end
   [m n]=size(x);
   if rhs==1
     xbar=(sum(x)/(m*n))
@@ -54,6 +54,6 @@ function [s]=wcenter(x,orient)
     s=x-(ones(m,1)*xbar)
     sigma=sqrt(sum((s.^2),'r')/(m-1))
     s=s./(ones(m,1)*sigma)
-  else error('Second parameter must be r, c, 1 or 2'),
+  else error(msprintf(gettext("%s: Wrong value for second input argument: ''%s'', ''%s'', %d or %d expected.\n"),"wcenter","r","c", 1, 2)),
   end
 endfunction