From 115328634c8e1e0449e7d350702e75647c30ea25 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 21 Jul 1990 15:32:33 +0000 Subject: [PATCH] Moved phase, cis, and abs into irrat. --- code/numbers.lisp | 39 +-------------------------------------- 1 file changed, 1 insertion(+), 38 deletions(-) diff --git a/code/numbers.lisp b/code/numbers.lisp index 66ada40e0..7b30deeb1 100644 --- a/code/numbers.lisp +++ b/code/numbers.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.9 1990/07/10 13:17:58 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.10 1990/07/21 15:32:33 wlott Exp $ ;;; ;;; This file contains the definitions of most number functions. ;;; @@ -255,25 +255,6 @@ "Extracts the imaginary part of a number." (imagpart number)) -#+nil -(defun phase (number) - "Returns the angle part of the polar representation of a complex number. - For non-complex positive numbers, this is 0. For non-complex negative - numbers this is PI." - ;; This call was originally atan (realpart number) (imagpart number) - ;; but it gave imprecise results. - (if (complexp number) - (let ((ipart (imagpart number)) - (rpart (realpart number))) - (if (zerop rpart) - (if (minusp ipart) - (if (long-float-p ipart) (- %long-pi/2) (- %short-pi/2)) - (if (long-float-p ipart) %long-pi/2 %short-pi/2)) - (atan (/ (imagpart number) (realpart number))))) - (if (minusp number) - (if (long-float-p number) pi %short-pi) - (if (long-float-p number) 0.0l0 0.0)))) - (defun conjugate (number) "Returns the complex conjugate of NUMBER. For non-complex numbers, this is an identity." @@ -281,13 +262,6 @@ (complex (realpart number) (- (imagpart number))) number)) -(defun cis (theta) - "Return cos(Theta) + i sin(Theta)." - (if (complexp theta) - (error "Argument to CIS is complex: ~S" theta) - (complex (cos theta) (sin theta)))) - - (defun signum (number) "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))." (if (zerop number) @@ -731,17 +705,6 @@ (declare (list nlist)) (if (< (car nlist) result) (setq result (car nlist))))) -(defun abs (number) - "Returns the absolute value of the number." - (number-dispatch ((number number)) - (((foreach single-float double-float fixnum rational)) - (abs number)) - ((complex) - (let ((rx (realpart number)) - (ix (imagpart number))) - (sqrt (+ (expt rx 2) (expt ix 2))))))) - - (eval-when (compile eval) (defun basic-compare (op) -- GitLab