Mercurial > hg > octave-lyh

changeset 3837:bb3e654d6684

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-06-07 00:24:25 by jwe]
author jwe
date Thu, 07 Jun 2001 00:24:25 +0000
parents b8c1cb5b9fd9
children 7b4bdb12b77b
files scripts/ChangeLog scripts/statistics/distributions/discrete_cdf.m
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-06  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* statistics/distributions/discrete_cdf.m: Downcase incorrectly
+	capitalized variable names.
+
 2001-05-30  Jean-Francois Cardoso  <cardoso@tsi.enst.fr>
 
 	* m/image/saveimage.m: fix saving an image to Postscript format.
--- a/scripts/statistics/distributions/discrete_cdf.m
+++ b/scripts/statistics/distributions/discrete_cdf.m
@@ -44,7 +44,7 @@
   m = length (v);
   x = reshape (x, n, 1);
   v = reshape (v, 1, m);
-  P = reshape (P / sum (P), m, 1);
+  p = reshape (p / sum (p), m, 1);
 
   cdf = zeros (n, 1);
   k = find (isnan (x));
@@ -54,7 +54,7 @@
   k = find (!isnan (x));
   if (any (k))
     n = length (k);
-    cdf (k) = ((x(k) * ones (1, m)) >= (ones (n, 1) * V)) * P;
+    cdf (k) = ((x(k) * ones (1, m)) >= (ones (n, 1) * v)) * p;
   endif
 
   cdf = reshape (cdf, r, c);