From: Barton W. <wil...@us...> - 2005-12-20 04:22:10
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22885/src Modified Files: comm.lisp Log Message: Applying suggested fix for bug 635045 (derivatives of acsc, asec, and acsch wrong in left half plane) Index: comm.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/comm.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- comm.lisp 7 Nov 2005 17:37:11 -0000 1.11 +++ comm.lisp 20 Dec 2005 04:21:51 -0000 1.12 @@ -450,9 +450,14 @@ ((rat) -1 2)))) (%atan ((mexpt) ((mplus) 1 ((mexpt) x 2)) -1)) (%acot ((mtimes) -1 ((mexpt) ((mplus) 1 ((mexpt) x 2)) -1))) - (%acsc ((mtimes) -1 ((mexpt) x -1) - ((mexpt) ((mplus) -1 ((mexpt) x 2)) ((rat) -1 2)))) - (%asec ((mtimes) ((mexpt) x -1) ((mexpt) ((mplus) -1 ((mexpt) x 2)) ((rat) -1 2)))) + (%acsc ((mtimes) -1 + ((mexpt) ((mplus) 1 ((mtimes) -1 ((mexpt) x -2))) + ((rat) -1 2)) + ((mexpt) x -2))) + (%asec ((mtimes) + ((mexpt) ((mplus) 1 ((mtimes) -1 ((mexpt) x -2))) + ((rat) -1 2)) + ((mexpt) x -2))) (%sinh ((%cosh) x)) (%cosh ((%sinh) x)) (%tanh ((mexpt) ((%sech) x) 2)) @@ -463,10 +468,12 @@ (%acosh ((mexpt) ((mplus) -1 ((mexpt) x 2)) ((rat) -1 2))) (%atanh ((mexpt) ((mplus) 1 ((mtimes) -1 ((mexpt) x 2))) -1)) (%acoth ((mtimes) -1 ((mexpt) ((mplus) -1 ((mexpt) x 2)) -1))) - (%asech ((mtimes) -1 ((mexpt) x -1) - ((mexpt) ((mplus) 1 ((mtimes) -1 ((mexpt) x 2))) ((rat) -1 2)))) - (%acsch ((mtimes) -1 ((mexpt) x -1) - ((mexpt) ((mplus) 1 ((mexpt) x 2)) ((rat) -1 2)))) + (%asech ((mtimes) -1 + ((mexpt) ((mplus) -1 ((mexpt) x -2)) ((rat) -1 2)) + ((mexpt) x -2))) + (%acsch ((mtimes) -1 + ((mexpt) ((mplus) 1 ((mexpt) x -2)) ((rat) -1 2)) + ((mexpt) x -2))) (mabs ((mtimes) x ((mexpt) ((mabs) x) -1))) (%erf ((mtimes) 2 ((mexpt) $%pi ((rat) -1 2)) ((mexpt) $%e ((mtimes) -1 ((mexpt) x 2))))) |