Ignore:
Timestamp:
10/12/04 17:03:00 (17 years ago)
Author:
piso
Message:

Moved CIS to MathFunctions?.java.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/numbers.lisp

    r7402 r7962  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: numbers.lisp,v 1.33 2004-08-15 11:18:36 piso Exp $
     4;;; $Id: numbers.lisp,v 1.34 2004-10-12 17:03:00 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    160160                  (* (/ pi 2) (signum (imagpart number)))
    161161                  (atan (imagpart number) (realpart number))))))
    162 
    163 (defun cis (radians)
    164   "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
    165   (if (complexp radians)
    166       (error "argument to CIS is complex: ~S" radians)
    167       (complex (cos radians) (sin radians))))
    168 
    169 (eval-when (:execute)
    170   (when (and (fboundp 'jvm::jvm-compile) (not (autoloadp 'jvm::jvm-compile)))
    171     (mapcar #'jvm::jvm-compile '(ceiling
    172                                  round
    173                                  ftruncate
    174                                  ffloor
    175                                  fceiling
    176                                  fround
    177                                  rational
    178                                  rationalize))))
Note: See TracChangeset for help on using the changeset viewer.