Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in complex exp function

Browse source
This commit is contained in:
Alex Shinn 2012-03-25 10:32:24 +09:00
parent 8f69961832
commit 886d47c27b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
opt/bignum.c
View file

@ -687,13 +687,13 @@ static sexp sexp_to_complex (sexp ctx, sexp x) {
} }
sexp sexp_complex_exp (sexp ctx, sexp z) { sexp sexp_complex_exp (sexp ctx, sexp z) {
double x = sexp_to_double(sexp_complex_real(z)), double e2x = exp(sexp_to_double(sexp_complex_real(z))),
y = sexp_to_double(sexp_complex_imag(z)); y = sexp_to_double(sexp_complex_imag(z));
sexp_gc_var1(res); sexp_gc_var1(res);
sexp_gc_preserve1(ctx, res); sexp_gc_preserve1(ctx, res);
res = sexp_make_complex(ctx, SEXP_ZERO, SEXP_ZERO); res = sexp_make_complex(ctx, SEXP_ZERO, SEXP_ZERO);
sexp_complex_real(res) = sexp_make_flonum(ctx, exp(x)*cos(y)); sexp_complex_real(res) = sexp_make_flonum(ctx, e2x*cos(y));
sexp_complex_imag(res) = sexp_make_flonum(ctx, sin(y)); sexp_complex_imag(res) = sexp_make_flonum(ctx, e2x*sin(y));
sexp_gc_release1(ctx); sexp_gc_release1(ctx);
return res; return res;
} }