Mercurial > octave-nkf

changeset 4857:9794d526639c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-04-08 03:27:49 by jwe]
author jwe
date Thu, 08 Apr 2004 03:27:49 +0000
parents c89b9abf2ffd
children 499d2ca46982
files scripts/statistics/distributions/beta_rnd.m scripts/statistics/distributions/binomial_rnd.m scripts/statistics/distributions/cauchy_rnd.m scripts/statistics/distributions/chisquare_rnd.m scripts/statistics/distributions/gamma_rnd.m scripts/statistics/distributions/normal_rnd.m scripts/statistics/distributions/uniform_rnd.m
diffstat 7 files changed, 28 insertions(+), 28 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/statistics/distributions/beta_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/beta_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -52,8 +52,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("beta_rnd: a and b must be scalar or of size [r,c]");
     endif
   elseif (nargin == 3)
@@ -65,8 +65,8 @@
       error ("beta_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("beta_rnd: a and b must be scalar or of size sz");
     endif
   elseif (nargin == 2)
--- a/scripts/statistics/distributions/binomial_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/binomial_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -52,8 +52,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (n) != 1) && ((length (size (n)) != length (sz)) ||
-				any (size (n) != sz)))
+    if (any (size (n) != 1)
+	&& (length (size (n)) != length (sz) ||	any (size (n) != sz)))
       error ("binomial_rnd: n and must be scalar or of size [r, c]");
     endif
   elseif (nargin == 3)
@@ -65,8 +65,8 @@
       error ("binomial_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (n) != 1) && ((length (size (n)) != length (sz)) ||
-				any (size (n) != sz)))
+    if (any (size (n) != 1)
+	&& (length (size (n)) != length (sz) || any (size (n) != sz)))
       error ("binomial_rnd: n and must be scalar or of size sz");
     endif
   elseif (nargin == 2)
--- a/scripts/statistics/distributions/cauchy_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/cauchy_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -51,8 +51,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (l) != 1) && ((length (size (l)) != length (sz)) ||
-				any (size (l) != sz)))
+    if (any (size (l) != 1)
+	&& (length (size (l)) != length (sz) || any (size (l) != sz)))
       error ("cauchy_rnd: lambda and sigma must be scalar or of size [r, c]");
     endif
   elseif (nargin == 3)
@@ -64,8 +64,8 @@
       error ("cauchy_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (l) != 1) && ((length (size (l)) != length (sz)) ||
-				any (size (l) != sz)))
+    if (any (size (l) != 1)
+	&& (length (size (l)) != length (sz) ||	any (size (l) != sz)))
       error ("cauchy_rnd: lambda and sigma must be scalar or of size sz");
     endif
   elseif (nargin == 2)
--- a/scripts/statistics/distributions/chisquare_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/chisquare_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -42,8 +42,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (n) != 1) && ((length (size (n)) != length (sz)) ||
-				any (size (n) != sz)))
+    if (any (size (n) != 1)
+	&& (length (size (n)) != length (sz) ||	any (size (n) != sz)))
       error ("chisquare_rnd: n must be scalar or of size [r, c]");
     endif
   elseif (nargin == 2)
@@ -55,8 +55,8 @@
       error ("chisquare_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (n) != 1) && ((length (size (n)) != length (sz)) ||
-				any (size (n) != sz)))
+    if (any (size (n) != 1)
+	&& (length (size (n)) != length (sz) || any (size (n) != sz)))
       error ("chisquare_rnd: n must be scalar or of size sz");
     endif
   elseif (nargin == 1)
--- a/scripts/statistics/distributions/gamma_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/gamma_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -52,8 +52,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("gamma_rnd: a and b must be scalar or of size [r, c]");
     endif
   elseif (nargin == 3)
@@ -65,8 +65,8 @@
       error ("uniform_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("gamma_rnd: a and b must be scalar or of size sz");
     endif
   elseif (nargin == 2)
--- a/scripts/statistics/distributions/normal_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/normal_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -52,8 +52,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (m) != 1) && ((length (size (m)) != length (sz)) ||
-				any (size (m) != sz)))
+    if (any (size (m) != 1)
+	&& (length (size (m)) != length (sz) || any (size (m) != sz)))
       error ("normal_rnd: m and v must be scalar or of size [r, c]");
     endif
   elseif (nargin == 3)
@@ -65,8 +65,8 @@
       error ("normal_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (m) != 1) && ((length (size (m)) != length (sz)) ||
-				any (size (m) != sz)))
+    if (any (size (m) != 1)
+	&& (length (size (m)) != length (sz) || any (size (m) != sz)))
       error ("normal_rnd: m and v must be scalar or of size sz");
     endif
   elseif (nargin == 2)
--- a/scripts/statistics/distributions/uniform_rnd.m	Thu Apr 08 03:24:12 2004 +0000
+++ b/scripts/statistics/distributions/uniform_rnd.m	Thu Apr 08 03:27:49 2004 +0000
@@ -51,8 +51,8 @@
     endif
     sz = [r, c];
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("uniform_rnd: a and b must be scalar or of size [r, c]");
     endif
   elseif (nargin == 3)
@@ -64,8 +64,8 @@
       error ("uniform_rnd: r must be a postive integer or vector");
     endif
 
-    if (any (size (a) != 1) && ((length (size (a)) != length (sz)) ||
-				any (size (a) != sz)))
+    if (any (size (a) != 1)
+	&& (length (size (a)) != length (sz) || any (size (a) != sz)))
       error ("uniform_rnd: a and b must be scalar or of size sz");
     endif
   elseif (nargin == 2)