Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv2308

Modified Files: qd-methods.lisp Log Message: Oops. Forgot to convert qabs to abs.

--- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/31 03:11:00 1.53 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/31 19:34:00 1.54 @@ -409,7 +409,7 @@ (scale-float (make-instance 'qd-real :value (sqrt abs^2)) rho)))

-(defmethod qabs ((z qd-complex)) +(defmethod abs ((z qd-complex)) ;; sqrt(x^2+y^2) ;; If |x| > |y| then sqrt(x^2+y^2) = |x|*sqrt(1+(y/x)^2) (make-instance 'qd-real