Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Build-out of (scheme complex)

Browse source
This commit is contained in:
Justin Ethier 2018-05-07 22:16:56 -04:00
parent 335be69a12
commit db7dc029b4
1 changed files with 34 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
scheme/complex.sld
View file

@ -18,20 +18,42 @@
(inline
real-part
imag-part)
(import (scheme base))
(import (scheme base)
(scheme inexact))
(begin
(define (real-part x) x)
(define (imag-part x) 0)
(define (angle z)
(error "Complex numbers are not supported at this time"))
(define (magnitude z)
(error "Complex numbers are not supported at this time"))
(define (make-rectangular x y)
(Cyc-make-rect x y))
(define (make-polar x y)
(error "Complex numbers are not supported at this time"))
(define (real-part x)
(if (complex? x)
(%real-part x)
x))
(define-c Cyc-make-rect
(define (imag-part x)
(if (complex? x)
(%imag-part x)
0))
(define (magnitude z)
(sqrt (+ (* (real-part z) (real-part z))
(* (imag-part z) (imag-part z)))))
(define (angle z) (atan (imag-part z) (real-part z)))
(define (make-polar r phi)
(make-rectangular (* r (cos phi)) (* r (sin phi))))
(define (make-rectangular x y)
(%make-rect x y))
(define-c %real-part
"(void *data, int argc, closure _, object k, object z)"
" make_double(d, creal(complex_num_value(z)));
return_closcall1(data, k, &d); ")
(define-c %imag-part
"(void *data, int argc, closure _, object k, object z)"
" make_double(d, cimag(complex_num_value(z)));
return_closcall1(data, k, &d); ")
(define-c %make-rect
"(void *data, int argc, closure _, object k, object r, object i)"
" Cyc_check_num(data, r);
Cyc_check_num(data, i);