From: Raymond T. <rt...@us...> - 2004-07-12 14:01:43
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22006/src Modified Files: ellipt.lisp Log Message: [ maxima-Bugs-908185 ] wrong derivative of elliptic_e in src/ellipt.lisp Apply patch in bug report. Index: ellipt.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/ellipt.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- ellipt.lisp 18 Mar 2003 01:58:40 -0000 1.6 +++ ellipt.lisp 12 Jul 2004 14:01:34 -0000 1.7 @@ -1421,8 +1421,10 @@ (defprop $elliptic_e ((phi m) - ;; (1-m*sin(phi)^2) - ((mplus simp) 1 ((mtimes simp) -1 m ((mexpt simp) ((%sin simp) phi) 2))) + ;; sqrt(1-m*sin(phi)^2) + ((mexpt simp) + ((mplus simp) 1 ((mtimes simp) -1 m ((mexpt simp) ((%sin simp) phi) 2))) + ((rat simp) 1 2)) ;; diff wrt m ((mtimes simp) ((rat simp) 1 2) ((mexpt simp) m -1) ((mplus simp) (($elliptic_e simp) phi m) |