# HG changeset patch
# User jwe
# Date 991873465 0
# Node ID bb3e654d668425cc5f67abf55d95ddcf38ba7852
# Parent  b8c1cb5b9fd9d2e7e62e2c747b3dee18534caf13
[project @ 2001-06-07 00:24:25 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- 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.
diff --git a/scripts/statistics/distributions/discrete_cdf.m b/scripts/statistics/distributions/discrete_cdf.m
--- 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);