suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reformat, etc

Browse Source 
svn: r9288
This commit is contained in:
Eli Barzilay 2008-04-14 05:17:09 +00:00
parent e98e5d449c
commit a4de7ca7c9
1 changed files with 28 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
collects/scheme/math.ss
View File

@ -3,7 +3,7 @@
;; math.ss: some extra math routines ;; math.ss: some extra math routines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(module math scheme/base #lang scheme/base
(provide euler (provide euler
pi pi
sqr sqr
@ -17,34 +17,18 @@
(define pi (atan 0 -1)) (define pi (atan 0 -1))
;; sgn function ;; sgn function
(define sgn (define (sgn x)
(lambda (x)
(if (exact? x) (if (exact? x)
(cond (cond [(< x 0) -1] [(> x 0) 1] [else 0])
((< x 0) -1) (cond [(< x 0.0) -1.0] [(> x 0.0) 1.0] [else 0.0])))
((> x 0) 1)
(else 0))
(cond
((< x 0.0) -1.0)
((> x 0.0) 1.0)
(else 0.0)))))
;; complex conjugate ;; complex conjugate
(define conjugate (define (conjugate z)
(lambda (z) (make-rectangular (real-part z) (- (imag-part z))))
(make-rectangular
(real-part z)
(- (imag-part z)))))
;; real hyperbolic functions ;; real hyperbolic functions
(define sinh (define (sinh x)
(lambda (x) (/ (- (exp x) (exp (- x))) 2.0))
(/
(- (exp x) (exp (- x)))
2.0)))
(define cosh (define (cosh x)
(lambda (x) (/ (+ (exp x) (exp (- x))) 2.0))
(/
(+ (exp x) (exp (- x)))
2.0))))