From: Barton W. <wil...@us...> - 2010-02-06 13:57:01
|
Update of /cvsroot/maxima/maxima/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27005 Modified Files: limit.lisp Log Message: new simplim%signum function (Limits of signum expressions) Index: limit.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v retrieving revision 1.90 retrieving revision 1.91 diff -u -d -r1.90 -r1.91 --- limit.lisp 23 Dec 2009 20:06:58 -0000 1.90 +++ limit.lisp 6 Feb 2010 13:56:51 -0000 1.91 @@ -2838,6 +2838,14 @@ 0 `((%inverse_jacobi_ds) ,arg ,m))) +(setf (get '%signum 'simplim%function) 'simplim%signum) + +(defun simplim%signum (e x pt) + (let* ((e (limit (cadr e) x pt 'think)) (sgn (mnqp e 0))) + (cond ((eq t sgn) (take '(%signum) e)) ;; limit of argument of signum is not zero + ((eq nil sgn) '$und) ;; limit of argument of signum is zero (noncontinuous) + (t (throw 'limit nil))))) ;; don't know + ;; more functions for limit to handle (defun lfibtophi (e) |