Mercurial > octave-nkf

diff scripts/general/quadgk.m @ 11985:bdc383a457fb release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in previous change
author John W. Eaton <jwe@octave.org>
date Thu, 11 Jun 2009 07:13:19 +0200
parents b4986fecdc53
children b18a50c56144
line wrap: on
line diff
--- a/scripts/general/quadgk.m	Thu Jun 11 07:13:19 2009 +0200
+++ b/scripts/general/quadgk.m	Thu Jun 11 07:13:19 2009 +0200
@@ -195,7 +195,7 @@
       ## waypoint transform is then
       ##   t =  (2 * g(t)) ./ (1 + sqrt(1 + 4 * g(t) .^ 2))
       if (!isempty (waypoints))
-	trans = @(x) (2 * x) ./ ((1 + sqrt(1 + 4 * x .^ 2));
+	trans = @(x) (2 * x) ./ (1 + sqrt(1 + 4 * x .^ 2));
 	subs = [-1; trans(waypoints); 1];
       else
 	subs = linspace (-1, 1, 11)';