From: Dieter K. <cra...@us...> - 2010-05-27 22:54:28
|
Update of /cvsroot/maxima/maxima/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv25019/src Modified Files: ellipt.lisp Log Message: Replacing the noun form of a derivative on the property list with NIL. The correct noun form is build in sdiff. Related bug report: Bug ID: 3008183 - Derivatives of the Inverse Jacobi functions No problems with the testsuite. Index: ellipt.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/ellipt.lisp,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- ellipt.lisp 14 Aug 2009 18:22:56 -0000 1.70 +++ ellipt.lisp 27 May 2010 22:54:19 -0000 1.71 @@ -4051,7 +4051,8 @@ ((mplus) ((mtimes simp ratsimp) -1 m) ((mexpt) x 2)) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_ns) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_ns) x m) m 1) + nil) grad) (defprop %inverse_jacobi_ns simp-%inverse_jacobi_ns operators) @@ -4119,7 +4120,8 @@ ((mtimes) -1 ((mplus) -1 m) ((mexpt) x 2))) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_nc) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_nc) x m) m 1) + nil) grad) (defprop %inverse_jacobi_nc simp-%inverse_jacobi_nc operators) @@ -4174,7 +4176,8 @@ ((mtimes) ((mplus) -1 m) ((mexpt simp ratsimp) x 2))) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_nd) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_nd) x m) m 1) + nil) grad) (defprop %inverse_jacobi_nd simp-%inverse_jacobi_nd operators) @@ -4236,7 +4239,8 @@ ((mtimes) -1 ((mplus) -1 m) ((mexpt) x 2))) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_sc) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_sc) x m) m 1) + nil) grad) (defprop %inverse_jacobi_sc simp-%inverse_jacobi_sc operators) @@ -4294,7 +4298,8 @@ ((mexpt) ((mplus) 1 ((mtimes) m ((mexpt) x 2))) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_sd) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_sd) x m) m 1) + nil) grad) (defprop %inverse_jacobi_sd simp-%inverse_jacobi_sd operators) @@ -4353,7 +4358,8 @@ ((mexpt simp ratsimp) x 2)) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_cs) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_cs) x m) m 1) + nil) grad) (defprop %inverse_jacobi_cs simp-%inverse_jacobi_cs operators) @@ -4405,7 +4411,8 @@ ((mplus) 1 ((mtimes) -1 m ((mexpt) x 2))) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_cd) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_cd) x m) m 1) + nil) grad) (defprop %inverse_jacobi_cd simp-%inverse_jacobi_cd operators) @@ -4458,7 +4465,8 @@ ((mplus) m ((mexpt simp ratsimp) x 2)) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_ds) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_ds) x m) m 1) + nil) grad) (defprop %inverse_jacobi_ds simp-%inverse_jacobi_ds operators) @@ -4523,7 +4531,8 @@ ((mexpt simp ratsimp) x 2)) ((rat) -1 2))) ;; wrt m - ((%derivative) ((%inverse_jacobi_dc) x m) m 1)) +; ((%derivative) ((%inverse_jacobi_dc) x m) m 1) + nil) grad) (defprop %inverse_jacobi_dc simp-%inverse_jacobi_dc operators) |