[Maxima-commits] CVS: maxima/src bessel.lisp,1.24,1.25

[David B. <bil...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29626/src

Modified Files:
	bessel.lisp 
Log Message:
Fix bug with derivative of bessel_k function.
Add test cases.


Index: bessel.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/bessel.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- bessel.lisp	4 Aug 2003 17:04:14 -0000	1.24
+++ bessel.lisp	28 Jan 2004 23:28:23 -0000	1.25
@@ -1113,7 +1113,7 @@
 	((mtimes simp) -1
 	 ((%derivative simp) ((%bessel_i simp) n x) n 1)))))
      ((mplus simp)
-      ((mtimes) -1 ((%bessel_k) n x))
+      ((mtimes) -1 ((%bessel_k) ((mplus) -1 n) x))
       ((mtimes) -1 n ((mexpt) x -1)
        ((%bessel_k) n x))))
   grad)