Mercurial > octave-antonio

diff scripts/statistics/distributions/exprnd.m @ 11472:1740012184f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Jan 2011 21:33:04 -0800
parents c776f063fefe
children fd0a3ac60b0e
line wrap: on
line diff
--- a/scripts/statistics/distributions/exprnd.m	Sun Jan 09 16:01:05 2011 -0800
+++ b/scripts/statistics/distributions/exprnd.m	Sun Jan 09 21:33:04 2011 -0800
@@ -35,16 +35,16 @@
 
   if (nargin == 3)
     if (! (isscalar (r) && (r > 0) && (r == round (r))))
-      error ("exprnd: r must be a positive integer");
+      error ("exprnd: R must be a positive integer");
     endif
     if (! (isscalar (c) && (c > 0) && (c == round (c))))
-      error ("exprnd: c must be a positive integer");
+      error ("exprnd: C must be a positive integer");
     endif
     sz = [r, c];
 
     if (any (size (lambda) != 1)
         && (length (size (lambda)) != length (sz) || any (size (lambda) != sz)))
-      error ("exprnd: lambda must be scalar or of size [r, c]");
+      error ("exprnd: LAMBDA must be scalar or of size [R, C]");
     endif
   elseif (nargin == 2)
     if (isscalar (r) && (r > 0))
@@ -52,12 +52,12 @@
     elseif (isvector(r) && all (r > 0))
       sz = r(:)';
     else
-      error ("exprnd: r must be a positive integer or vector");
+      error ("exprnd: R must be a positive integer or vector");
     endif
 
     if (any (size (lambda) != 1)
         && ((length (size (lambda)) != length (sz)) || any (size (lambda) != sz)))
-      error ("exprnd: lambda must be scalar or of size sz");
+      error ("exprnd: LAMBDA must be scalar or of size SZ");
     endif
   elseif (nargin == 1)
     sz = size (lambda);