Mercurial > emacs
comparison src/floatfns.c @ 694:714b8017cc6b
entered into RCS
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Jun 1992 01:50:14 +0000 |
| parents | 7f4d77d29804 |
| children | 70ed307d9047 |
comparison
equal
deleted
inserted
replaced
| 693:d66fce68e77c | 694:714b8017cc6b |
|---|---|
| 240 double d = extract_float (num); | 240 double d = extract_float (num); |
| 241 IN_FLOAT (d = lgamma (d), num); | 241 IN_FLOAT (d = lgamma (d), num); |
| 242 return make_float (d); | 242 return make_float (d); |
| 243 } | 243 } |
| 244 | 244 |
| 245 DEFUN ("cbrt", Fcbrt, Scbrt, 1, 1, 0, | |
| 246 "Return the cube root of ARG.") | |
| 247 (num) | |
| 248 register Lisp_Object num; | |
| 249 { | |
| 250 double d = extract_float (num); | |
| 251 IN_FLOAT (d = cbrt (d), num); | |
| 252 return make_float (d); | |
| 253 } | |
| 254 | |
| 245 #endif | 255 #endif |
| 246 | 256 |
| 247 DEFUN ("cube-root", Fcube_root, Scube_root, 1, 1, 0, | |
| 248 "Return the cube root of ARG.") | |
| 249 (num) | |
| 250 register Lisp_Object num; | |
| 251 { | |
| 252 double d = extract_float (num); | |
| 253 IN_FLOAT (d = cbrt (d), num); | |
| 254 return make_float (d); | |
| 255 } | |
| 256 | |
| 257 DEFUN ("exp", Fexp, Sexp, 1, 1, 0, | 257 DEFUN ("exp", Fexp, Sexp, 1, 1, 0, |
| 258 "Return the exponential base e of ARG.") | 258 "Return the exponential base e of ARG.") |
| 259 (num) | 259 (num) |
| 260 register Lisp_Object num; | 260 register Lisp_Object num; |
| 261 { | 261 { |
| 348 double d = extract_float (num); | 348 double d = extract_float (num); |
| 349 IN_FLOAT (d = sqrt (d), num); | 349 IN_FLOAT (d = sqrt (d), num); |
| 350 return make_float (d); | 350 return make_float (d); |
| 351 } | 351 } |
| 352 | 352 |
| 353 #ifndef /* Not clearly worth adding. */ | 353 #if 0 /* Not clearly worth adding. */ |
| 354 | 354 |
| 355 DEFUN ("acosh", Facosh, Sacosh, 1, 1, 0, | 355 DEFUN ("acosh", Facosh, Sacosh, 1, 1, 0, |
| 356 "Return the inverse hyperbolic cosine of ARG.") | 356 "Return the inverse hyperbolic cosine of ARG.") |
| 357 (num) | 357 (num) |
| 358 register Lisp_Object num; | 358 register Lisp_Object num; |
| 563 defsubr (&Sbessel_j1); | 563 defsubr (&Sbessel_j1); |
| 564 defsubr (&Sbessel_jn); | 564 defsubr (&Sbessel_jn); |
| 565 defsubr (&Serf); | 565 defsubr (&Serf); |
| 566 defsubr (&Serfc); | 566 defsubr (&Serfc); |
| 567 defsubr (&Slog_gamma); | 567 defsubr (&Slog_gamma); |
| 568 defsubr (&Scbrt); | |
| 568 #endif | 569 #endif |
| 569 defsubr (&Scube_root); | |
| 570 defsubr (&Sexp); | 570 defsubr (&Sexp); |
| 571 defsubr (&Sexpm1); | 571 defsubr (&Sexpm1); |
| 572 defsubr (&Sexpt); | 572 defsubr (&Sexpt); |
| 573 defsubr (&Slog); | 573 defsubr (&Slog); |
| 574 defsubr (&Slog10); | 574 defsubr (&Slog10); |