Mercurial > forge

changeset 2576:9924f4e6c83f octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small modification.
author sis-sou
date Wed, 04 Oct 2006 08:39:07 +0000
parents 915a5c0844fa
children b3ec1d265822
files main/specfun/inst/psi.m
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/main/specfun/inst/psi.m	Tue Oct 03 15:21:41 2006 +0000
+++ b/main/specfun/inst/psi.m	Wed Oct 04 08:39:07 2006 +0000
@@ -30,7 +30,7 @@
 		if(imag(x) != zeros(size(x)))
 			error('unable to handle complex arguments');
 		else
-			h = 10.^-9;
+			h = 1e-9;
 			y = x;	
 			y(x == 0) = -Inf;
 			y(x>0) = (lgamma(y(x>0)+h)-lgamma(y(x>0)-h))./(2.*h);