diff scripts/statistics/distributions/nbinrnd.m @ 10549:95c3e38098bf

Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 3306cfcb856e
children be55736a0783
line wrap: on
line diff
--- a/scripts/statistics/distributions/nbinrnd.m	Fri Apr 23 11:13:48 2010 -0700
+++ b/scripts/statistics/distributions/nbinrnd.m	Fri Apr 23 11:28:50 2010 -0700
@@ -37,7 +37,7 @@
     if (!isscalar(n) || !isscalar(p)) 
       [retval, n, p] = common_size (n, p);
       if (retval > 0)
-	error ("nbinrnd: n and p must be of common size or scalar");
+        error ("nbinrnd: n and p must be of common size or scalar");
       endif
     endif
   endif
@@ -52,7 +52,7 @@
     sz = [r, c];
 
     if (any (size (n) != 1) && 
-	((length (size (n)) != length (sz)) || any (size (n) != sz)))
+        ((length (size (n)) != length (sz)) || any (size (n) != sz)))
       error ("nbinrnd: n and p must be scalar or of size [r, c]");
     endif
 
@@ -66,7 +66,7 @@
     endif
 
     if (any (size (n) != 1) && 
-	((length (size (n)) != length (sz)) || any (size (n) != sz)))
+        ((length (size (n)) != length (sz)) || any (size (n) != sz)))
       error ("nbinrnd: n and p must be scalar or of size sz");
     endif
   elseif (nargin == 2)
@@ -79,7 +79,7 @@
     if ((n < 1) || (n == Inf) || (n != round (n)) || (p <= 0) || (p > 1));
       rnd = NaN (sz);
     elseif ((n > 0) && (n < Inf) && (n == round (n)) && 
-	    (p > 0) && (p <= 1))
+            (p > 0) && (p <= 1))
       rnd = randp ((1 - p) ./ p .* randg (n, sz));
     else
       rnd = zeros (sz);
@@ -88,7 +88,7 @@
     rnd = zeros (sz);
 
     k = find ((n < 1) || (n == Inf) || (n != round (n)) || 
-	      (p <= 0) || (p > 1));
+              (p <= 0) || (p > 1));
     if (any (k))
       rnd(k) = NaN;
     endif